Excel中如何利用VBA代码画杯子

1、点击鼠标右键新建一个Excel文件。

2、点击界面上方的“宏”选项。

3、写明代码的名称，然后点击“创建”。

4、写入杯子的VBA代码，主要代码为：ActiveSheet.Shapes.AddShape(msoShapeFlowchartMagneticDisk, 364.5, 108.75, 132, _211.5).SelectActiveSheet.Shapes.AddShape(msoShapeRightBracket, 496.5, 176.25, 31.5, 87.75). _SelectWith Selection.ShapeRange.Line .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Transparency = 0 End With With Selection.ShapeRange.Line .Visible = msoTrue .Weight = 4.5 End With

5、插入一个按钮控件。

6、将编写的代码指定至按钮控件上。

7、点击一次按钮控件，杯子就绘画完成了。