Excel VBA 选择多个形状 - VBA

在 Excel 中，我们可以使用 VBA 语言编写宏来控制多个形状，这可以大大提高我们的工作效率。

选择多个形状的方法

方法一：使用 Select Case 语句

要从多个形状中选择其中一个，可以使用 Select Case 语句。以下是代码示例：

Sub SelectMultiShapes()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        Select Case shp.Name
            Case "Rectangle 1", "Oval 1", "Triangle 1" '按名称选择形状
                shp.Select (True)
        End Select
    Next shp
End Sub

注意，上述代码中的形状名称需要与实际名称匹配。

方法二：使用 For Each 循环

使用 For Each 循环也可以选择多个形状，以下是示例代码：

Sub SelectMultiShapes()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoAutoShape Then '仅选择自动形状
            If shp.TopLeftCell.Row >= 3 And shp.TopLeftCell.Row <= 5 Then '选择顶部位置位于第3-5行的形状
                shp.Select (True)
            End If
        End If
    Next shp
End Sub

上述代码可以选择所有顶部位置位于第3-5行且为自动形状的形状。

结论

以上就是使用 VBA 选择多个形状的两种方法。可以根据具体情况选择适合自己的方法。