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
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