Grafiği Butona Çevirme

[zafer.kargin]

Arkadaşlar Merhaba,

A2 Satırında Verilerim Var Ve Bunu Grafik Haline Dönütürdüm.A2 Satırının p2 hücresine bu grafiği buton haline getirip istediğimde grafiği görmek istiyorum nasıl yardımcı olabilirsiniz.

 

[Emir Hüseyin Çoban]

. . .

Sub Gizle()
    ActiveSheet.ChartObjects("Grafik 1").Activate
    ActiveChart.ChartTitle.Select
    ActiveSheet.Shapes.Range(Array("Grafik 1")).Visible = msoFalse
End Sub


Sub Göster()
    ActiveSheet.Shapes.Range(Array("Grafik 1")).Visible = msoTrue
End Sub

. . .