用VBA在中绘制图形及函数图象.docxVIP

精品文档 精品文档 PAGE PAGE 3欢。迎下载 用 VBA 在 WORD 中绘制图形及函数图象 Sub Macro1() 用 VBA 在 WORD 中绘制图形及函数图象 绘制一个“开关”图形 宏 Switch 实现在指定位置绘制一个“开关”图形。Sub Switch() ActiveDocument.Shapes.AddLine(100, 110, 120, 110).Name = shp1 ActiveDocument.Shapes.AddShape(msoShapeOval, 120, 108, 4, 4).Name = shp2 Oval 椭圆形 ActiveDocument