exceldeki resim boyutunu makro ile değiştirmek.

[sbayyigit]

merhaba arkadaşlar;
Ekdeki örnekte çalışma sayfası içersinde bir 125X125 px boyutunda jpg uzantılı bir logo mevcut.
makro ile bu logonun boyutunu 150X150 px boyutuna getirebilir miyim?

 

[Mustafa MUTLU]

ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.ScaleWidth 1.2, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft

Kırmızı Renli Rakamı Değiştirerek istediğin büyüklüğe ayarlayabilirsin.

 

[sbayyigit]

mustafa hocam ilgin için teşekkür ederim. sorunum bir bölümünü hallettim ama yükleklik ve ve genişliği farklı bir biçimde ayarlamak istediğimde yine orantılı olarak değişiyor. örnekte 125X125 olan boyutu bu defa 100X150 yapamıyorum.

 

[Mustafa MUTLU]

ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.ScaleWidth 1.2, msoFalse, msoScaleFromTop
Selection.ShapeRange.ScaleHeight 1.3, msoFalse, msoScaleFromLeft

Kodu bu şekilde değiştirin.
1.2 Bu rakam enine %20 oranında büyüyecektir.
1.3 bu rakam yüksekliği %30 oranında büyüyecektir..

Sen rakamları kendine göre ayarlarsın..