Grafik üzerinde kopyalama

[semerkant]

Grafik üzerinde kopyalama yapıldığı zaman grafikte bulunan butonlarda kopyalanıyor.Aşağıdaki kod ile bu sorunu çözmeye çalıştım ancak grafik farklı sheetlerde oluşuyor ve ben herbiri için ayrı kod yazmam lazım.
Kopyalama yaparken sadece grafiği seçtirebilirmiyim veya butonları gizleyebilirmiyim?

Sub deneme()
ActiveChart.Shapes.Range(Array("Button 1059", "Button 1058")).Select
Selection.Cut
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export Filename:=Fname, FilterName:="GIF"
ActiveChart.Paste
End Sub

 

[hamitcan]

Küçük bir dosya ekleyin.

 

[semerkant]

Küçük bir dosya ekleyin.

Sayın Hamitcan
İstemiş olduğunuz dosya ekte.Yardımlarınız için teşekkürler...

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub grafik()
Charts.Select
With ActiveChart
 Fname = ThisWorkbook.Path & "\" & .Name & ".gif"
.Export Filename:=Fname, FilterName:="GIF"
End With
End Sub

 

[semerkant]

Hala resimler çıkıyor.Bir şekilde grafiği kopyalarken butonları gizlemek gerekiyor.

 

[hamitcan]

Sayın semerkant, bende çıkmıyor. Versiyon farklılığından kaynaklanıyor olabilir mi?

 

[semerkant]

Sizde çıkmadığına göre versiyondan olma olasılığı yüksek ancak bu dosyayı kullanıcak olan arkadaşlar ve benim kullandığım excell 2003 herşey için teşekkür ederim ben biraz daha araştırayım belkide bir çözüm bulabilirim.