Shapes对象是指定工作表上的所有Shape对象的集合。
- 使用Shapes属性可返回Shapes集合
Worksheets(1).Shapes.SelectAll
' ↑ 选定工作表一上的所有形状。
- 使用Shapes(index)可返回一个Shape对象。index是形状的名称或索引号。
Worksheets(1).Shapes(1).Fill.PresetGradient msoGradientHorizontal, 1, msoGradientBrass
' ↑ 设置工作表一上形状一的预设阴影的填充。
- 使用Shapes.Range(Index)可返回一个ShapesRange集合，该集合代表Shapes集合的一个子集。index是形状的名称或索引号。
Worksheets(1).Shapes.Range(Array(1, 3)).Fill.Patterned msoPatternHorizontalBrick
' ↑ 设置工作表一上形状一和形状三的填充图案。
- 形状名称和代码名称：形状名称是在工作表中选定该控件时名称框中显示的名称；代码名称时在VBA界面属性窗口中的名称。新增添加控件时形状名称和代码名称是一致的默认名称（例如ChechBox1），但后续更改一个的话、另一个不会自动同步改变。在事件过程中必须使用代码名称，在选择控件时必须使用形状名称。
Shape对象代表绘图层中的对象。例如自选图形、任意多边形、OLE对象或图片。
- 使用Selection.ShapeRange(index)可返回选定区域中的形状的Shape对象。
Worksheets(1).Shapes(1).Flip msoFlipHorizontal
' ↑ 将工作表一上的形状一进行水平翻转。
Worksheets(1).Shapes("Rectangle 1").Flip msoFlipHorizontal
' ↑ 将工作表一上的名为“Rectangle 1”的形状进行水平翻转。
ActiveWindow.Selection.ShapeRange(1).Fill.ForeColor.RGB = RGB(255, 0, 0)
' ↑ 设置活动窗口内选定区域中的第一个形状的填充格式，假定至少选定了一个形状。
- 使用Name属性可以返回或设置形状的名称。操作中发现可以给多个形状起相同的名字，后续通过名字选择和操作的时候只会针对第一个命名的那个形状。
With Worksheets(1).Shapes.AddShape(msoShapeRectangle, 144, 144, 72, 72)
' ↑ 在工作表一中添加一个矩形
.Name = "Red Square"' ↑ 将其命名为“Red Squre”
.Fill.ForeColor.RGB = RGB(255, 0, 0)' ↑ 为其设置前景色
.Line.DashStyle = msoLineDashDot' ↑ 为其设置线条样式
End With