基于命名单元格修改形状可视性

我的代码不能修改形状可视性…你能帮忙吗？

已经命名一个单元[testing]，并希望一个线标注形状出现/消失基于单元格中的值。 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