- Katılım
- 24 Kasım 2007
- Mesajlar
- 769
- Excel Vers. ve Dili
- Office 365 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 30-01-2024
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.
"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.
Kod:
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
Ekli dosyalar
-
279.9 KB Görüntüleme: 17