用VBA在WORD中绘制图形及函数图象.pdf
版权申诉
5星 · 超过95%的资源 116 浏览量
2023-08-16
22:42:02
上传
评论
收藏 70KB PDF 举报 
______________________________________________________________________________________________________________
精品资料
用 VBA 在 WORD 中绘制图形及函数图象
Sub Macro1()
用 VBA 在 WORD 中绘制图形及函数图象
1.绘制一个“开关”图形
'宏 Switch 实现在指定位置绘制一个“开关”图形。
Sub Switch() Sub Switch() Sub Switch()
'Oval 椭圆形
End Sub
2.添加绘图画布
'下列示例在新文档中添加绘图画布，然后在绘图画布上添加两个图形，并设置填充和线条
属性。
Sub AddInlineCanvas()
Dim docNew As Document
Dim shpCanvas As Shape
Set docNew = Documents.Add
'Add a drawing canvas to the new document
Set shpCanvas = docNew.Shapes.AddCanvas( _
Left:=150, Top:=150, Width:=70, Height:=70)
shpCanvas.WrapFormat.Type = wdWrapInline
'Add shapes to drawing canvas
With shpCanvas.CanvasItems
.AddShape msoShapeHeart, Left:=10, _
Top:=10, Width:=50, Height:=60
资源评论
洋中药2023-08-28资源使用价值高，内容详实，给了我很多新想法，感谢大佬分享~
hhappy0123456789
- 粉丝: 58
- 资源: 5万+
