Hücredeki resmi belirtilen hücreye kopyalama.

[leumruk]

Selamlar...
Belli bir hücredeki resmi, resmin ismini belirtmeden başka bir hücreye nasıl kopyalarız? Örneğin;A4'teki resmi Sayfa2'deki A4'e nasıl aktarırız?
Saygılar...

 

[ECYavuz]

Worksheets("Sayfa1").Shapes(Range("A4")).CopyPicture
Worksheets("Sayfa2").Image1.Picture = PastePicture

Şeklinde denermisiniz ?

 

[leumruk]

Syn. ECYavuz,
Denedim ama kodlar çalışmadı.

 

[leumruk]

Değerli arkadaşlar,
Hazırlamaya çalıştığım dosyayı ekliyorum. dosya üzerinde isteğim daha net anlaşılır sanırım.
Anasayfadaki metin kaydet butonu tıklandığında resmin altındaki isimle sayfa oluşturuyor ve bu sayfanın içeriğini oraya kopyalıyor; fakat resmi kopyalamıyor. Userformdan ise bu sayfayı geri çağırabiliyorum. Ben kaydederken resmide beraber kaydetmesini istiyorum.
Saygılar