Связка checkbox и картинку excel

Question

Private Sub Флажок1_Click()

If Флажок1.Value = True Then
Картинка1.Visible = False
Картинка2.Visible = True
Else
Картинка1.Visible = True
Картинка2.Visible = False
End If
End Sub

Почему это может не работатать?

Answer 1

Картинка - это элемент коллекции:

Private Sub Флажок1_Click()
    With ActiveSheet.Shapes
        .Range(Array("Картинка1")).Visible = Not Флажок1.Value
        .Range(Array("Картинка2")).Visible = Флажок1.Value
    End With
End Sub

БЛОГ НА HUSL

Связка checkbox и картинку excel

Ответы (1 шт):