根據命名單元修改形狀可見性

Question

我的代碼無法修改形狀可見性...您能幫忙嗎？

已命名一個單元格[test]，並希望基於單元格中的值顯示/消失線條標注形狀。 1 =可見0 =不可見

Sub Macro1()
Dim ws As Worksheet
    With ws.Shapes.Range(Array("Line Callout 1 1"))
           .Fill.Visible = [test]
           .Line.Visible = [test]
    End With
End Sub

Answer 1

嘗試這個

Sub Macro1()
Dim ws As Worksheet

Set ws = ThisWorkbook.ActiveSheet
    With ws.Shapes.Range(Array("Line Callout 1 1"))
           .Fill.Visible = Range("test")
           .Line.Visible = Range("test")
    End With
End Sub