Aktif sayfadaki resimleri sayfa1 e aynı şekilde kopyala

[hsayar]

aktif sayfada belki 1 belki de 10 tane resim var
bunları sayfa2 ye aynı boyutta aynı yere kopyalacak bir makro nasıl olmalıdır.

aynı yere dediğim mesala resim1 aktif sayfada e5 in olduğu yerde ise kopyalandığı yerdede aynı yerde olacak

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub resimkopyala()
ad = ActiveSheet.Name
Application.ScreenUpdating = False
Dim nesne As Shape
For Each nesne In ActiveSheet.Shapes
nesne.Copy
Sheets("sayfa2").Select
Range("" & nesne.TopLeftCell.Address).Select
ActiveSheet.Paste
Sheets(ad).Select
Next
End Sub

 

[hsayar]

Sub resimkopyala()
ad = ActiveSheet.Name
Application.ScreenUpdating = False
Dim nesne As Shape
    For Each nesne In ActiveSheet.Shapes
[B][color="red"]    nesne.Copy[/color][/B]
    Sheets("sayfa2").Select
    Range("" & nesne.TopLeftCell.Address).Select
    ActiveSheet.Paste
    Sheets(ad).Select
Next
End Sub

kırmızı satırda 1004 hatası veriyor hocam

 

[hsayar]

bu sorunun cevabı yokmudur hocam

 

[Haluk]

Ben denedim, bir problem çıkmadı.

Kodu çalıştırmadan önce, resimlerin olduğu sayfanın aktif sayfa olmasına ve dosyanızda Sayfa2 isimli bir sayfanın olmasına dikkat edin.

 

[hsayar]

dikkat ediyorum hocam

 

[hsayar]

yalnız evde denediğim aktif sayfamda gizlenmiş satır ve sütunlar vardı.........
temiz bir sayfada sorun çıkmadı
evde tekrar deneyip sonucu yazarım.