Y

Çözüldü Klasörden Resim Çekme /Resimlerin Boyutlandırması

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

YasarPiskin

Yıllık Forum Üyesi
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
M1 hücresindeki sicile göre I1 hücresine resim klasöründeki resimlerden sicile göre resim getiren çalışmada yapmak istediğim resimlerin I1 hücresinin boyutlarına göre getirilmesi hususunda yardımlarınızı rica ediyorum.
 

Ekli dosyalar

Merhabalar Sn. zompcu_80

Kod içindeki
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
satırını
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
satırı ile değiştiriniz.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
satırından sonra
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(2 satır)
satırlarını ekleyiniz ve
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(2 satır)
satırlarını da pasif yapınız.
 
M1 hücresindeki sicile göre I1 hücresine resim klasöründeki resimlerden sicile göre resim getiren çalışmada yapmak istediğim resimlerin I1 hücresinin boyutlarına göre getirilmesi hususunda yardımlarınızı rica ediyor
Alternatif olsun resim klasör yolunu makroda kendinize göre belirleyiniz istediğiniz gibi çalışacaktır
 

Ekli dosyalar

Bu çalışma 32 bitlik işletim sisteminde çalışır sizinki 64 bitlikse çalışmaz
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Private Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long

Hem 32bit hemde 64bitde çalışması için üstteki kodu aşağıdaki gibi değiştirin.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst