Question

excel vba 怎样用宏隐藏图表

Answer 1

可以用属性：
Sheets(n).Shapes(m).Visible
来设定图表的显示与否
msoTrue，表示显示，其值为-1
msoFalse，表示隐藏，其值为0
不过，当不止一个Shape时（按钮、图形、控件），你需要确定所需要处理的对象是你的图表，可以遍历Shapes(m),筛选出Shapes(m).Type=msoChart的Shape，并且由
Shapes(m).OLEFormat.Object.Chart.ChartTitle.Caption这个可自己在图表中定义的值来定位所需要的处理的图表

Answer 2

Private Sub Worksheet_Activate()
Dim SH As Worksheet
For Each SH In Worksheets
If SH.Name <> "Sheet1" Then SH.Visible = False
Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets(Target.Text).Visible = True
Sheets(Target.Text).Activate
End Sub