Sayfadan resim çağırma

[vivident]

Merhaba

"ABC" sayfasındaki "Grafik1" isimli grafiğin resmini, "X" sayfasında "A1" hücresinde "Grafik1" yazıyorsa image1'in üzerine yükleyebiliyorum. Fakat bu işlemi grafik değilde resim için yapmak istediğimde, kodları değiştirdiğimde yapamıyorum.

Yapılmak istenen işlem ;
"ABC" sayfasındaki "Resim1" isimli image resmini, "X" sayfasında "A1" hücresinde "Resim1" yazıyorsa image1'in üzerine yükleyemek.
Örnek dosya ektedir.

Sub tikla()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False

Dim Fname As String
On Error Resume Next
Sheets("ABC").Select
ActiveSheet.ChartObjects.Select
'ActiveSheet.ImageObjects.Select
Application.CommandBars("Format Object").Visible = False
Sheets("X").Select
Fname = Environ("Temp") & "\sil.jpeg"
    Set grafik = Sheets("ABC").ChartObjects(Sheets("X").Range("A1")).Chart
    'Set grafik = Sheets("ABC").ImageObjects(Sheets("X").Range("A1")).Image
        grafik.Export Fname
        'Image1.PictureSizeMode = fmPictureSizeModeStretch
        Image1.Picture = LoadPicture(Fname)
        Kill Fname
       Set grafik = Nothing: Fname = ""
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub tikla()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False

Dim Fname As String
On Error Resume Next

Image1.Picture = LoadPicture("")
Sheets("ABC").Select
ActiveSheet.Shapes([X!a1]).Select
Selection.CopyPicture

Fname = Environ("Temp") & "\sil.jpeg"

Set grafik = ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height)
grafik.Activate
grafik.Chart.Paste
grafik.Chart.Export Fname
grafik.Delete

Image1.Picture = LoadPicture(Fname)

Kill Fname

Sheets("X").Select

Set grafik = Nothing: Fname = ""
      
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

 

[vivident]

Elinize sağlık levent bey
Teşekkür ederim