VBAでシェイプ/チャートを非表示にする方法は？

Question

私はインターネット上で解決策を見つけようとしましたが、私の状況では解決できませんでした。

私は、以下のチャートを持っていると私はそれを隠したいが、私は方法がわからない：

Dim cht As Chart 

Sub CreatePie() 
    arrColors = Array(RGB(183, 212, 117), _ 
         RGB(0, 93, 172)) 
    Set cht = Sheets("Dashboard").Shapes.AddChart(Left:=600, Width:=160, Top:=290, Height:=90).Chart 
    With cht 
     .SetSourceData Source:=Sheets("Data").Range("M5:N6") 
     .ChartType = xlPie 
     .ChartArea.Format.Fill.Solid 
     .ChartArea.Format.Fill.Transparency = 1 
     .ChartArea.Border.LineStyle = xlNone 
    End With 
    With cht.SeriesCollection(1) 
     .Points(1).Format.Fill.ForeColor.RGB = arrColors(0) 
     .Points(2).Format.Fill.ForeColor.RGB = arrColors(1) 
    End With 
    cht.Visible = xlSheetVeryHidden 
End Sub 

cht.Visible = Falseはどちらか動作しません。

また、削除することもできますが、cht.Deleteも機能しません。

Answer 1

グラフ全体を非表示にするには、Parent（ChartObject）を変更する必要があります。だからではなく、あなたの行の：

cht.Visible = xlSheetVeryHidden 

は、に変更します。

cht.Parent.Visible = False