excel2007 VBA如何加shape

Private Sub AddShape()

Dim ws As Worksheet

Set ws = ActiveSheet

ws.Shapes.AddShape msoShape24pointStar, 100, 100, 100, 100

End Sub

上面的代码在活动工作表上绘制1个星形

addshape的第一个参数决定插入形状的类型

私人小组CommandButton2_Click()

对于i

=

1到[A65536]。结束(xlUp)。行

??Cells.Find(什么:=

TextBox1.Text，后::=

ActiveCell)的。激活

??ActiveCell.Offset(0，5)。激活

?如果ActiveCell.FormulaR1C1

=

TextBox2.Text，然后退出对于

??ActiveCell.FormulaR1C1

=

TextBox2.Text

下

END

SUB

1.选择WORD中的SHAPE

ActiveDocument.Shapes(1).Select

2.提取WORD中的Shape的数量

ActiveDocument.Shapes.Count

3.提取WORD中的Shape的名称

ActiveDocument.Shapes(1).Name

' Selection.ShapeRange.Fill.Visible = msoFalse

---