• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Seçili Resmin Ölçülerini Değiştirme

  • Konbuyu başlatan Konbuyu başlatan Leturc
  • Başlangıç tarihi Başlangıç tarihi
Katılım
31 Temmuz 2008
Mesajlar
93
Excel Vers. ve Dili
2003
Mehaba Arkadaşlar,

Başlıktada yazmış olduğum gibi excele eklediğim bir resmi üzerine bir makro atamak suretiyle yeniden boyutlandırmak istiyorum.

Bunu istememin sebebi, Excel 2007'de raporlarım var ve bunların içerisinde firma logosu yer almakta. Bu raporlar içerisinde bazı makrolar çalışmakta. HErhangi bir makrodan başka bir makroya geçiş yaptığımda firma logosunun boyutları sapıtıyor.
Excel resim özelliklerinden, hücre ile kaydır ve boyutlandır seçenekleri kapalı olduğu halde bunu yapıyor. Dolayısıyla bu resim üzerine ekleyeceğim bir makro ile ya da kullandığım makolara ekleyeceğim bir kod ile bu sorunumu halletmek istiyorum. İnternette uzunca bir araştırma yaptım ama nafile.

Selection.ShapeRange.ScaleWidth 1.34, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.34, msoFalse, msoScaleFromTopLeft

anladığım kadarıyla bu kodu kullanmam gerekiyor ama yapamadım :(
 
Daha önce bir üyemizin sorusu üzerine kendi dosyasında hazırladığım ekli örnek, sanıyorum isteğinizi karşılayacaktır.
 

Ekli dosyalar

Çok teşekkürle üstadım.

Naçizhane kendimce değiştirdim. Belki lazım olur. Zoom yapmasına ihtiyacım yoktu çünkü.

Tekrar teşekkürler.

Sub buyut()
ActiveSheet.Shapes(Application.Caller).Select
Selection.ShapeRange.Height = 81
Selection.ShapeRange.Width = 81
Selection.ShapeRange.ZOrder msoBringToFront
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Activate
End Sub
 
eklı dosyaları karsılastırma

merhaba,

eklı dosyada sayfa 1 ıle sayfa 2 yı karsılastıracak sayfa 3 farklı olanları yazacak

yardım edebılırmısınız.Otomatık yapacak bır makro olabılırse ıyı olur,

tskler
 

Ekli dosyalar

Geri
Üst