1

我有一组对象“第 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。对象不支持此属性或方法”

4

1 回答 1

0

像这样：

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
于 2021-08-09T18:45:05.687 回答