Resimlerin boyutunu otomatik ayarlama

[Mdemir63]

Selamlar,

Arkadaşlar resimleri nasıl otomatik boyutlandırabilirim?

örneğin ekteki dosyadaki sarı alana

Saygılar

 

[Skorpiyon]

Sayın komutan63,

Ekteki kodu bir butona bağlayarak deneyin.

Sub Makro1()
Range("H2:H7").Select
ActiveSheet.Pictures.Insert("Bu alana resminizin yolunu yazınız\resmin adı.jpg").Select
Selection.ShapeRange.ScaleWidth 0.1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.32, msoFalse, msoScaleFromTopLeft
Range("A1").Select
End Sub

Not : Bu komutlar sayfanıza bir resim ekler ve resmin boyutu belirttiğiniz hücre aralığından büyük olsa dahi H2 hücresine sığdırır.

Saygılarımla...

 

[Mdemir63]

Sn: Sertkaya

İlginize teşekkür ederim ancak ben resimleri direkt olarak sayfaya kopyalıyorum. Düşeyara fonksiyonu ile çağırdığım isimlere göre resimler geliyor. Ben bu gelen resimlerin boyutunun otomatik ayarlanmasından bahsetmiştim.

Saygılar

 

[Skorpiyon]

Sayın komutan63,

Resim ekleme işleminden sonraki kısmı "Makro Kaydet" ile bir deneyiniz. İşinizi görecektir sanıyorum.

Saygılarımla...