【word vba】自学日志18：精准作图，人教第五章相交线与平行线

欢迎大家来到IT世界,在知识的湖畔探索吧!

精准作图

以前在word里面作图，全凭感觉以及把页面放大来仔细观察。学了vba，那么就可以精准画图了。vba里面关于画图的函数也不多，只要学会几个就能作出各种各样的图形了。

一、画线段：

With ActiveDocument.Shapes.AddLine（x1,y1,x2,y2）

‘(x1:起点横坐标, y1:起点纵坐标, x2:终点横坐标, y2:终点纵坐标)

.Line.ForeColor.RGB = RGB(0, 0, 0)

.Line.EndArrowheadStyle = 1

.Line.DashStyle = 1

.Select (msoFalse) ‘选择图形，为了组合图形

End With

二、画圆弧（也是为了画角的符号）

With ActiveDocument.Shapes.AddShape(msoShapeArc, 左上角横坐标, 左上角纵坐标, 直径, 直径)

.Line.ForeColor.RGB = RGB(0, 0, 0)

.Line.DashStyle = 1

.Adjustments.Item(1) = 起点角度 ‘顺时针方向

.Adjustments.Item(2) =终点角度

End With

为了更好适应画图，重新构造一个画圆弧的函数：

Sub 添加圆弧(ByVal 圆心横坐标 As Integer, ByVal 圆心纵坐标 As Integer, ByVal 半径长度 As Integer, ByVal 起点角度 As Integer, ByVal 终点角度 As Integer)

With ActiveDocument.Shapes.AddShape(Type:=msoShapeArc, Left:=圆心横坐标 – 半径长度, Top:=圆心纵坐标 – 半径长度, Width:=2 * 半径长度, Height:=2 * 半径长度)

.Fill.Visible = msoFalse

.Line.ForeColor.RGB = RGB(0, 0, 0)

.Line.DashStyle = 1

.Adjustments.Item(1) = 起点角度

.Adjustments.Item(2) = 终点角度

.Select (msoFalse)

End With

End Sub

三、添加文本框：

With ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 左上角横坐标, 左上角纵坐标, 40, 40)

.TextFrame.TextRange.Text = “文本框内容”

.TextFrame.TextRange.Font.Size = 6

.TextFrame.TextRange.Font.Color = RGB(255, 0, 0)

.Fill.Visible = msoFalse

.Line.Visible = msoFalse

.Select (msoFalse)

End With

文本框的位置比较难掌握，因为添加的坐标是文本框的左上角，而字位于文本框的中间，而且文本框还像页面一样有边页距，不过只要添加了，格式对了，最后输出后调整一下就可以了。

四、组合

With Selection.ShapeRange.Group

.name =”组合名字”

End With

只要会了这四个步骤，画出的图形就很美观准确。

五、为了批量画图，需要把图形移到固定位置：

With ActiveDocument.Shapes(组合名字)

.WrapFormat.Type = wdWrapNone

.ZOrder ZOrderCmd:=msoSendBehindText ‘设置图片环绕方式为”衬与文字下方”

.Left = 水平位置

.Top = 竖直位置

.Anchor.Cut

Selection.GoTo wdGoToPage, wdGoToAbsolute, , i ‘把图片移动到相应位置

Selection.Paste

End With

下面是使用这些出的人教版七下第五单元：相交线与平行线的基础题：全班每个学生都不一样。