在活动工作表中显示和隐藏形状

Question

ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Visible = Not ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Visible
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 3")).Visible = Not ActiveSheet.Shapes.Range(Array("Rounded Rectangle 3")).Visible
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 4")).Visible = Not ActiveSheet.Shapes.Range(Array("Rounded Rectangle 4")).Visible
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 5")).Visible = Not ActiveSheet.Shapes.Range(Array("Rounded Rectangle 5")).Visible

这是我使用的代码宏示例

我想知道我们如何才能运行此代码以仅隐藏矩形 1 行

喜欢

For i = 1 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle *")).Visible = _ 
    Not ActiveSheet.Shapes.Range(Array("Rounded Rectangle *")).Visible
Next i

我只是不知道如何正确简化

Answer 1

你不远了，这就是如何使用循环遍历所有Rounded Rectangles

Dim i As Long
For i = 1 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle " & i)).Visible = _
    Not ActiveSheet.Shapes.Range(Array("Rounded Rectangle " & i)).Visible
Next i

注意"Rounded Rectangle " & i 是如何被替换为
"Rounded Rectangle 1"
"Rounded Rectangle 2"
"Rounded Rectangle n" 其中n = i （表示循环运行的次数）

---

因此，如果您只想隐藏第一个 Rounded Rectangle 1，则在循环中添加 If/else 语句
注意：此代码将永远不会显示第一个 Rounded Rectangle 1 并在显示所有其他 Rounded Rectangle 1 之间切换。如果您想始终显示它们，则只需在 else 语句中分配 true

Dim i As Long
For i = 1 To ActiveSheet.Shapes.Count
    If i = 1 Then
        ActiveSheet.Shapes.Range(Array("Rounded Rectangle " & i)).Visible = False
    Else
        ActiveSheet.Shapes.Range(Array("Rounded Rectangle " & i)).Visible = _
        ActiveSheet.Shapes.Range(Array("Rounded Rectangle " & i)).Visible
    End If
Next i