1.activatesheet.shape的type类型取值
在删除各种形状的同时,要注意防止vba程序将页面中的控制按钮也删除了。
2.addline方法 画一根横线。
shapes.addline(BeginX,BeginY,EndX,EndY)
With XLine ''设置箭头形状 .Line.EndArrowheadStyle = msoArrowheadTriangle .Line.EndArrowheadLength = msoArrowheadLengthMedium .Line.EndArrowheadWidth = msoArrowheadWidthMedium End With
3.addtextbox 增加一个文本框的shape
dim mytextbox as shape
Set MyTextbox = .Shapes.AddTextbox(msoTextOrientationHorizontal, X2 - 5, Y0 + 2, 10, 15)
参数的意思为:在坐标(x2-5,y0+2)的起点绘制长10像素,宽15像素的文本框
4.给上述添加的textbox加入文字
mytextbox.TextFrame.Characters.Text = "X"