excel中画坐标轴的备用知识

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"