Copy Picture Alanını Makro İçinde Refere Etmek

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki kod ile belli bir alanı kopyalayabiliyoruz. [E1].CopyPicture kısmını sabitr olara E1 değil de, F1 de refere edilen hücreden al nasıl diyebiliriz ?


Sub Alan_Kopyala()
Sheets("Base").Select
[E1].CopyPicture
Sheets("Table").Select
Range("D1").Select
ActiveSheet.Paste
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Option Explicit
 
Sub Alan_Kopyala()
    Sheets("Base").Select
    Range([COLOR=red][F1].Text[/COLOR]).CopyPicture
    Sheets("Table").Select
    Range("D1").Select
    ActiveSheet.Paste
End Sub

 

[baydeniro]

Sayın Korhan Ayhan ilginiz ve yardımlarınız için çok teşekkür ederim. Sağlıcakla kalın.

 

[mydestek]

yaptığım işlem sayfa1 seçili olan hücredeki resimi sayfa2 aynı hücreye linkleri ile birlikte kopyalamak.

Fakat kopyalama doğru çalışıyor, ama Hyperlink kopyalamayı yapamadım.

Sayfa2 kopyalanan resim link özelliğini yitiriyor.

bir fikri olan var mı?

Worksheets("sayfa1").Range(x).CopyPicture xlScreen, xlPicture
Worksheets("RİSK DEĞERLENDİRME").PasteSpecial _
Destination:=Worksheets("sayfa2").Range(x).PasteSpecial

 

[hamitcan]

Örnek dosya gönderirseniz, daha çabuk cevap bulabilirsiniz.

 

[mydestek]

Resimin köprü ile birlikte kopyslsysn komut lazım.

CopyPicture paremetreleri neler ?

PasteSpecial paremetreleri neler ?