Kod ile Sayfadaki Grafiği Kopya Altına Almak

[meka5121]

Merhaba,

Hücreleri kopyalarken aşağıdaki satırı kullanıyorum.

Worksheets("Durum İstatistikleri").Range("A1", Range("A1").End(xlDown).End(xlToRight)).Copy

Mesela Durum İstatistikleri tablosunda Chart 1 adında bir grafik var. Hücreye atanmadığı için Range ile seçemiyorum. Muhtemelen isim ile okutmak gerekiyor ama ilgili kodu bulamadım.

Yardımcı olabilir misiniz?

 

[TEGCreative]

Merhabalar sayın meka5121 ;

ActiveSheet.ChartObjects("[COLOR="Red"]Chart 1[/COLOR]").Activate
    ActiveChart.ChartArea.Copy

Bu kod ile sayfanız üzerindeki Chart1 isimli grafiği kopyalarsınız.

 

[meka5121]

Merhabalar sayın meka5121 ;

ActiveSheet.ChartObjects("[COLOR="Red"]Chart 1[/COLOR]").Activate
    ActiveChart.ChartArea.Copy

Bu kod ile sayfanız üzerindeki Chart1 isimli grafiği kopyalarsınız.

İşimi gördü, teşekkürler

 

[Ömer BARAN]

Merhaba.

Sanırım, Select veya Activate satırı olmadan doğrudan kopyalanabilir.

Yani ActiveSheet.ChartObjects("Chart 1").Copy yeterli olması lazım.
.