Wie Form/Diagramm in VBA ausblenden?

Question

Ich habe versucht, die Lösung im Internet zu finden, aber keiner von ihnen hat für meine Situation funktioniert.

Ich habe die folgende Tabelle, und ich will, es verbergen, aber ich weiß nicht, wie:

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 funktioniert auch nicht.

Löschen ist auch eine Option, aber cht.Delete funktioniert auch nicht.

Answer 1

Sie müssen die Parent (die ChartObject) ändern, um das gesamte Diagramm zu verbergen. Anstatt also Ihre Linie:

cht.Visible = xlSheetVeryHidden 

ändern zu:

cht.Parent.Visible = False