Resim boyutuna göre sütun ve satır genişliğini ayarlama

[emregunduz]

Merhabalar,

Excel e eklemem gereken resimlerim var. Bazıları yatay bazıları ise dikey şekilde.

Excel de ismini benim belirlediğim bir dosyanın boyutlarına bakmasını ve buna bağlı olarak belirleyeceğim bir sütunun genişlik ve yüksekliğini ayarlamasını istiyorum.

Örn : c:\emre.jpg (640x480) ve c:\emre1.jpg (480 x 640)isminde iki dosyamız olsun. Görüldüğü gibi emre.jpg yatay olarak geniş, emre1.jpg ise dikey olarak geniş bir dosyadır.

Yazacağımız kodlar emre yi seçerken ile excel c: ye gidip emre.jpg nin ölçülerine baksın, yatay olarak geniş olduğunu anlasın ve A1 hücresinin genişliğini 100 yapsın.

Gene aynı mantıkla emre1 dosyasını seçersek c: ye gitsin, dosyanın dikey olarak geniş olduğunu anlasın ve A1 satırının yüksekliğini 100 yapsın.


Tam olarak isteğim budur. bununla ilgili nasıl bir kod yazabiliriz?

Yardımlarınız için teşekkür ederim.

 

[emregunduz]

Merhaba arkadaşlar,

biraz karıştırdım ve buldum sanırım..


Dim objImage As Object

Set objImage = CreateObject("WIA.ImageFile")
objImage.LoadFile "C:\Users\gunduz\Desktop\emre.jpg"
MsgBox (objImage.Width)
MsgBox (objImage.Height)