Makro'larda Düzenleme, Resim Alan Makrolar

1Al2Ver

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,713
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Altın Üyelik Bitiş Tarihi
04-01-2026
Merhabalar,

Ekli Klasörde 2 sayfalı bir dosya ve 3 adet .jpg uzantılı fotoğraf var.

"Tekli" sayfasında B2 hücresine yazılan isime göre F2'ye,

"Çoklu" sayfasında B:B sütununa yazılan isimlere göre de F:F sütununa fotoğrafları getirmek istedim.

Bunlarla ilgili, anılan sayfaların VBA kodlarını oluşturdum.

Klasör masaüstünde, adı FOTO, fotoğraflar ve dosya (adı foto.xlsm) klasörün içinde,

Tüm denemelere rağmen fotoğrafları ilgili hücre ve sütuna alamadım.

Yardımınızı rica ediyorum.

Not; Klasör'ün yolunu D:\ RESİMAL olarak ta değiştirebilir siniz.
 

Ekli dosyalar

antonio

Destek Ekibi
Destek Ekibi
Katılım
13 Şubat 2011
Mesajlar
1,161
Excel Vers. ve Dili
Microsoft Office Professional Plus 2013 Türkçe
Merhabalar,

Ekli Klasörde 2 sayfalı bir dosya ve 3 adet .jpg uzantılı fotoğraf var.

"Tekli" sayfasında B2 hücresine yazılan isime göre F2'ye,

"Çoklu" sayfasında B:B sütununa yazılan isimlere göre de F:F sütununa fotoğrafları getirmek istedim.

Bunlarla ilgili, anılan sayfaların VBA kodlarını oluşturdum.

Klasör masaüstünde, adı FOTO, fotoğraflar ve dosya (adı foto.xlsm) klasörün içinde,

Tüm denemelere rağmen fotoğrafları ilgili hücre ve sütuna alamadım.

Yardımınızı rica ediyorum.

Not; Klasör'ün yolunu D:\ RESİMAL olarak ta değiştirebilir siniz.
Kodlarınızdaki
ActiveSheet.DrawingObject.Delete
satırını,
ActiveSheet.DrawingObjects.Delete
olarak düzenlerseniz çalışacaktır. (sadece belirttiğim yere "s" harfini ilave ederek deneyiniz.
 

1Al2Ver

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,713
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Altın Üyelik Bitiş Tarihi
04-01-2026
Sayın antonio merhaba,

Teşekkür ederim, sorun hallolmuştur.

Saygılarımla.
 

antonio

Destek Ekibi
Destek Ekibi
Katılım
13 Şubat 2011
Mesajlar
1,161
Excel Vers. ve Dili
Microsoft Office Professional Plus 2013 Türkçe
Üst