隐藏一组而另一组可见 vba

Question

我有一组对象“第 34 组”和另一组“第 6 组”。我希望一组可见而另一组隐藏。我认为制作两个按钮而不是一个可切换的按钮会更容易，因为我不知道该怎么做，所以如果你们中的任何人可以提供帮助那会很棒但是，我遇到了两个按钮选项的错误。这是我的两个按钮的代码：

Private Sub CommandButton3_Click()

ActiveSheet.Shapes("Group 34").Visible = False
ActiveSheet.Shapes("Group 6").Visible

End Sub

Private Sub CommandButton4_Click()

ActiveSheet.Shapes("Group 34").Visible
ActiveSheet.Shapes("Group 6").Visible = False

End Sub

错误出现在代码的第三行，其中显示“运行时错误 438。对象不支持此属性或方法”

Answer 1

像这样：

Sub Tester()

    Dim vis
    With ActiveSheet
        vis = .Shapes("Group 34").Visible
        .Shapes("Group 34").Visible = Not vis 'Toggle visibility
        .Shapes("Group 6").Visible = vis
    End With

End Sub

隐藏一组而另一组可见 vba

Hide one group while the other is visible vba

excel

vba

excel-2019