精选优质文档-倾情为你奉上用VBA在WORD中绘制图形及函数图象Sub Macro1()用VBA在WORD中绘制图形及函数图象1.绘制一个“开关”图形宏 Switch实现在指定位置绘制一个“开关”图形。Sub Switch() ActiveDocument.Shapes.AddLine(100, 110, 120, 110).Name = shp1 ActiveDocument.Shapes.AddShape(msoShapeOval, 120, 108, 4, 4).Name = shp2 Oval 椭圆形 ActiveDocument.Shapes.AddShape(msoShapeOval, 130, 108, 4, 4).Name = shp3 ActiveDocument.Shapes.AddLine(134, 110, 154, 110).Name = shp4 ActiveDocument.Shapes.AddLine(122, 108, 13
