Makro'larda Düzenleme, Resim Alan Makrolar

[1Al2Ver]

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.

 

[antonio]

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]

Sayın antonio merhaba,

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

Saygılarımla.

 

[antonio]

Sayın antonio merhaba,

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

Saygılarımla.

Sevindim. İyi çalışmalar, kolay gelsin.