Question

我试图隐藏我通过复选框放入群组的一堆图像，我可以通过相同的工作表执行此操作但文本框中的工作表没有。

Sub hideimages()
    If ActiveSheet.CheckBoxes("Check Box 1").Value = 1 Then
        ActiveSheet.Shapes("Group 21").Visible = True
        Else: ActiveSheet.Shapes("Group 21").Visible = False
    End If
End Sub

但我似乎无法弄清楚正确的语法，让它影响我可以为单个图像做的组的另一张表：

Sub CheckBox33_Click()
Dim obj As Shape
Set obj = Worksheets("sheet3").Shapes("picture 2")
If obj.Visible Then
    obj.Visible = True
Else
    obj.Visible = False
End If

我怎么能合并这些？我尝试过的方式并不快乐！

Sub hidaway()
    If Worksheets("sheet1").CheckBoxes("Check Box 34").Value = 1 Then
        Worksheets("sheet3").group("Group 21").Visible = True
        Else: Worksheets("sheet3").group("Group 21").Visible = False
    End If
End Sub

先谢谢！

Answer 1

您的复选框返回True / False，因此您只需将此值提供给您的论坛可见属性：

Private Sub CheckBox1_Click()

    ThisWorkbook.Worksheets("Sheet3").Shapes("Group 21").Visible = Me.CheckBox1.Value

End Sub

Excel组图像隐藏在另一个工作表复选框上

1 个答案: