如何運(yùn)用vba繪制游標(biāo)卡尺

張小建

(江蘇省木并茶高級(jí)中學(xué),江蘇 如東 226406)

游標(biāo)卡尺作為基本測量工具之一,自然是考查的熱點(diǎn).物理教師在編制試卷時(shí),最困難的就是繪制游標(biāo)卡尺.很多教師就采用其他軟件繪制然后以圖片的形式復(fù)制到word里,再經(jīng)過縮放等操作后往往會(huì)出現(xiàn)模糊、變形、鋸齒等現(xiàn)象.實(shí)際上用word里嵌套的vba編程工具就可很準(zhǔn)確的畫出游標(biāo)卡尺.下面就把筆者在實(shí)際工作中積累的一點(diǎn)經(jīng)驗(yàn)介紹給大家,以供參考.

1 Word的對(duì)象及坐標(biāo)系

運(yùn)用vba畫游標(biāo)卡尺主要用到一個(gè)集合對(duì)象:Shapes.其方法又與Word坐標(biāo)系有關(guān)系.

1.1 Shapes集合對(duì)象

Shapes集合對(duì)象是隸屬于 Document對(duì)象.Shapes集合對(duì)象代表文檔中或者文檔頁眉和頁腳中的所有圖形.本文運(yùn)用Shapes集合對(duì)象的兩個(gè)方法添加形狀.Addline方法添加直線,AddTextbox方法添加文本框.

1.2 word的坐標(biāo)系

Word坐標(biāo)系的坐標(biāo)原點(diǎn)在Document對(duì)象的左上角,橫向向右為x軸正方向,縱向向下為y軸正方向.量度值為磅,允許兩位小數(shù),可以滿足一般用戶的精度要求.

2 Addline方法和AddTextbox方法

運(yùn)用vba繪制游標(biāo)卡尺主要就是用Shapes集合對(duì)象的這兩種方法.

2.1 Addline方法

在文檔中添加一條直線.返回一個(gè)代表該直線的Shape對(duì)象,并將其添加到Shapes集合.

語法:expression.AddLine(BeginX,BeginY,EndX,EndY)

各參數(shù)解釋:

expression 必需.該表達(dá)式返回一個(gè)Shapes對(duì)象.

BeginX Single 類型,必需.直線起點(diǎn)相對(duì)于鎖定標(biāo)記的水平位置,以磅為單位.

BeginY Single 類型,必需.直線起點(diǎn)相對(duì)于鎖定標(biāo)記的垂直位置,以磅為單位.

EndX Single 類型,必需.直線終點(diǎn)相對(duì)于鎖定標(biāo)記的水平位置,以磅為單位.

EndY Single 類型,必需.直線終點(diǎn)相對(duì)于鎖定標(biāo)記的垂直位置,以磅為單位.

2.2 AddTextbox方法

在文檔中添加一個(gè)文本框.返回一個(gè)代表該文本框Shape對(duì)象,并將其添加到Shapes集合.

語法:expression.AddTextbox(Orientation,Left,Top,Width,Height)

各參數(shù)解釋:

expression 必需.該表達(dá)式返回“應(yīng)用于”列表中的一個(gè)對(duì)象.

Orientation MsoTextOrientation 必需.指定文本的方向.

Left Single 類型,必需.文本框左側(cè)邊緣的位置,以磅為單位.

Top Single 類型,必需.文本框上部邊緣的位置,以磅為單位.

Width Single 類型,必需.文本框的寬度,以磅為單位.

Height Single 類型,必需.文本框的高度,以磅為單位.

提示:在編寫vba代碼時(shí),要充分利用好vba的幫助.

3 算法及主程序

以10格游標(biāo)卡尺為例進(jìn)行算法說明,20格、50格游標(biāo)卡尺算法類似.

ybcgs=10′游標(biāo)尺格數(shù).

l=TextBox1.Text′ 通過文本框獲取需要繪制游標(biāo)卡尺的讀數(shù)值,以mm單位.

zcl=Int(l)′ 需要繪制游標(biāo)卡尺的讀數(shù)值的整數(shù)部分,主尺上的第一條刻度是zcl-3.

zczxfd=10′ 主尺最小分度的屏幕長度,以磅為單位.相當(dāng)于游標(biāo)卡尺主尺的最小分度1 mm.

zkds=7+ybcgs′ 主尺總刻度數(shù).

zccd=80+ybcgs*zczxfd′ 主尺總長度(磅).

If zcl＜6 Then′ 通過以下算法返回主尺整厘米刻度值的第1個(gè)刻度值.

bzckd=Round((zcl/10),0)

Else

bzckd=Round((zcl/10)+0.1,0)

End If

ybzxfd=zczxfd*(1-(1/ybcgs))′ 游標(biāo)卡尺最小分度的屏幕長度(磅).

Set docActive=ActiveDocument

docActive.Shapes.AddLine(80,180,80+zccd,180).Select′ 畫主尺橫線.

再利用line的屬性設(shè)置直線的格式(代碼略).

For i=1 To zkds′ 畫主尺刻度線.

If(zcl-4+i)/10=bzckd Then

docActive.Shapes.AddLine(80+zczxfd*i,172,80+zczxfd*i,180).Select′畫整數(shù)厘米刻度線.

docActive.Shapes.AddTextbox

(msoTextOrientationHorizontal,80+zczxfd*i-2,162,8,10).Select′在整數(shù)厘米刻度線位置添加一個(gè)文本框.再利用TextFrame屬性設(shè)置文本框的格式(代碼略).

Selection.TypeText Text:=bzckd′ 寫整數(shù)厘米刻度值.

bzckd=bzckd+1

ElseIf l＜6 And i=1 Then′ 讀數(shù)值小于6mm,主尺的第一個(gè)刻度線為零值.

docActive.Shapes.AddLine(80+zczxfd*i,172,80+zczxfd*i,180).Select′ 畫整數(shù)厘米刻度線

docActive.Shapes.AddTextbox

(msoTextOrientationHorizontal,80+zczxfd*i-2,162,8,10).Select′在整數(shù)厘米刻度線位置添加一個(gè)文本框.再利用TextFrame屬性設(shè)置文本框的格式(代碼略).Selection.TypeText Text:=bzckd′ 寫整數(shù)厘米刻度值

bzckd=bzckd+1′ 刻度值加 1,返回下一個(gè)整厘米刻度值.

zcl=3′因?yàn)橐话阒鞒叩牡谝粭l刻度線是zcl-3,而讀數(shù)值小于6mm的第一條刻度線是零,故要給zcl重新賦值,根據(jù)算法推算為zcl=3.

Else

docActive.Shapes.AddLine(80+zczxfd*i,175,80+zczxfd*i,180).Select′ 畫主尺刻度線.

End If Next

′畫游標(biāo)尺刻度線

n=0

If l＜6 Then′ 通過以下算法返回游標(biāo)尺零刻度線的位置.

ybl=zczxfd*(l+1)

Else

ybl=zczxfd*(l-Int(l)+4)

End If

For II=0 To ybcgs ′畫游標(biāo)尺的刻度線.

If II=5*n Then ′每 5格標(biāo)一個(gè)格數(shù)值

n=n+1

docActive.Shapes.AddLine(80+ybl+ybzxfd*II,180,80+ybl+ybzxfd*II,187).Select

docActive.Shapes.AddTextbox (msoTextOrientationHorizontal,80+ybl+ybzxfd*II-2,188,15,10).Select

再利用TextFrame屬性設(shè)置文本框的格式(代碼略).

Selection.TypeText Text:=II

Else

docActive.Shapes.AddLine

(80+ybl+ybzxfd*II,180,80+ybl+ybzxfd*II,185).Select

End If

Next

With docActive.Shapes′ 畫游標(biāo)尺的邊框.

AddLine(75+ybl,180,75+ybl,200).Select

AddLine(88+ybl+ybzxfd*ybcgs,180,88+ybl+ybzxfd*ybcgs,200).Select

AddLine(75+ybl,200,88+ybl+ybzxfd*ybcgs,200).Select

End With

繪制游標(biāo)卡尺的效果如圖1所示:

圖1

4 結(jié)束語

利用vba編程能拓展office辦公軟件的功能和提升工作效率,提高教學(xué)質(zhì)量.此代碼也可移植到PPT中制作交互性很強(qiáng)的課件,也可仿照著繪制其他基本測量工具的讀數(shù)練習(xí),如螺旋測微器、電表讀數(shù)等.