Chartobject

[ahmethasim]

Merhaba arkadaşlar

Dim myChtObj As ChartObject
Set myChtObj = Sheets("Sayfa2").ChartObjects.Add

şeklinde chartobject oluşturuyorum Modül 3 ün içindeki subroutine de

ama module1deki subroutine de de Sayfa2 deki bu chartobjecti silmek istiyorum nasıl yapabilirim acaba?

Teşekkürler

İyi çalışmalar

 

[zemeckiss]

degisken = Sheets("Sayfa2").ChartObjects.Count
Sheets("Sayfa2").ChartObjects(degisken).delete

*sonuncu chartobject i siler
**eğer modül 3 ün içine yazacağınız bir kodla chart title eklerseniz
modül1'de o chart title'a göre arama yapıp
chartobject'in index numarasını bulup
ona göre silme de yaptırabilirsiniz