Question

我想在某些特定条件下隐藏图表，例如，如果相应的单元格为空白，则图表将不可见。但是一旦该单元格值不为空，则图表应再次可见。我有以下程序，但对我不起作用。请帮忙。

Sub chart_visibility()

     ActiveWorkbook.Sheets("RP0004").Activate
       If Range("H32").Value = "" Then
        ActiveSheet.Charts("Chart 5").Visible = False
       Else
        ActiveSheet.Charts("Chart 5").Visible = True
      End If

End Sub

Answer 1

例如：

Sub chart_visibility()
    With ActiveWorkbook.Sheets("RP0004")
       .ChartObjects("Chart 5").Visible = (Len(.Range("H32").Value)>0) 
    End With  
End Sub

您要使用ChartObjects集合而不是Charts集合

通过VBA可见和不可见的Excel对象图

1 个答案: