Seçilen resmin boyutlarını değiştirmek.

[sdegirmenci]

Değerli Hocalarım merhaba;
Dosyam üzerinde açıkladığım gibi; Boyutları büyük olan bir resmi küçültmek için makro yaptım ama her defasında resim no sunu kod üzerinde güncellemek gerekiyor.Resmin seçili olması bu iş için yeterli olmazmı acaba. Yardımlarınız için şimdiden teşekkür ederim.

 

[hamitcan]

Sub Resmi_boyutlandır()
    ActiveSheet.Shapes(1).Select
    With Selection.ShapeRange
    .LockAspectRatio = msoTrue
    .Height = 457.5
    .Width = 360#
    .Rotation = 0#
    .PictureFormat.Brightness = 0.5
    .PictureFormat.Contrast = 0.5
    .PictureFormat.ColorType = msoPictureAutomatic
    .PictureFormat.CropLeft = 0#
    .PictureFormat.CropRight = 0#
    .PictureFormat.CropTop = 0#
    .PictureFormat.CropBottom = 0#
    End With
End Sub

şeklinde deneyin.

 

[sdegirmenci]

Değerli Hamitcan Hocam;
İlginize çok teşekkür ederim. Yazdığınız kodu değiştirdim ancak resmi boyutlandır düğmesine tıkladığımızda düğmenin kendisini boyutlandırmakta veya diğer makro düğmesini boyutlandırmakta, tekrar bakabilirseniz sevinirim.

 

[ersoyalan]

Merhaba,

Örnek dosya ile istediğin hücreye istediğin resmi ekliye bilirsin.İstersen tıkladığın zaman resim büyüyebilirde.

 

[hamitcan]

ActiveSheet.Shapes(1).Select

satırını aşağıdaki satır değiştirip deneyin.

ActiveSheet.Pictures(1).Select

 

[sdegirmenci]

Hamitcan Hocam ;
Bu sefer oldu , çok teşekkür ediyorum. İşlerinizim kolay gelmesi dileğiyle Hoşçakalın