Как скрыть или показать прямоугольник на основе переменной

Question

Я надеюсь, что кто-то может помочь, название говорит само за себя, но здесь есть немного глубины.

Запуск Excel 2011 на Mac

Я хотел бы знать, как я могу скрыть или показать прямоугольник на основе переменной, например

У меня есть переменная в a1, которая представляет собой простой случай ссылки на другую ячейку, поэтому содержимое a1 =f20

Если что-то есть в f20, то a1 отобразит это, если не a1 с show 0

Если a1 показывает 0, то я бы хотел, чтобы прямоугольник показывал, который в данный момент скрыт, чтобы скрыть две картинки и текстовое поле, а не скрывать другие элементы.

Я не против, чтобы это работало с помощью кнопки, но я бы предпочел, чтобы оно работало как неотъемлемая часть листа.

Я уже просмотрел форумы и видео, и они не решают то, что, на мой взгляд, может быть чем-то действительно простым, может быть, я пытаюсь слишком усложнить это.

Я надеюсь, что это имеет смысл для кого-то

Помогите пожалуйста, уже две бессонные ночи пытались разобраться:-)

Answer 1

Это может быть не самый эффективный ответ, но он должен сделать свое дело:

Sub Hide_Rectangle()
    If Range("A1").Value = "0" Then
        ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
        Selection.ShapeRange.Line.Visible = msoFalse
        Selection.ShapeRange.Fill.Visible = msoFalse
    ElseIf Range("A1").Value <> "0" Then
        ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
        Selection.ShapeRange.Line.Visible = msoTrue
        Selection.ShapeRange.Fill.Visible = msoTrue
    End If
End Sub

Замените "Прямоугольник 1" именем фигуры, а остальное должно работать.