Sayfa içindeki resimi düzenleme

[pNouma]

Merhabalar,

Excel sayfa içinde sadece 1 adet bulunan görselin boyutunu nasıl düzenleyebiliriz?

sayfa içindeki görseli bulacak ve bunu tanımlayacak Set img = ActiveSheet.Pictures

Not: sayfa içindeki görsel sürekli değiştiği için isimlendirmek mümkün olmuyor.

yardımlarınız için şimdiden teşekkürler,
iyi akşamlar.

Sub ResizePic()
Dim img As Picture

    Set img = ActiveSheet.Pictures
    
With img
       'Resize Picture to fit in the range....
       .Left = ActiveSheet.Range("D9").Left
       .Top = ActiveSheet.Range("D9").Top
       .Width = ActiveSheet.Range("D9:H9").Width
       .Height = ActiveSheet.Range("D9:D28").Height
       .Placement = 1
       .PrintObject = True
    End With
End Sub

End Sub

 

[Muzaffer Ali]

Merhaba.

Sub ResizePic()
    
    Dim img As Object
    Dim Bak As Object
    Set Bak = Selection
    Set img = ActiveSheet.Shapes(1)
    
    With img
       .Left = ActiveSheet.Range("D9").Left
       .Top = ActiveSheet.Range("D9").Top
       .Width = ActiveSheet.Range("D9:H9").Width
       .Height = ActiveSheet.Range("D9:D28").Height
       .Placement = 1
       .Select
       Selection.PrintObject = True
    End With
    Bak.Select
End Sub

 

[pNouma]

Merhaba.

Sub ResizePic()
   
    Dim img As Object
    Dim Bak As Object
    Set Bak = Selection
    Set img = ActiveSheet.Shapes(1)
   
    With img
       .Left = ActiveSheet.Range("D9").Left
       .Top = ActiveSheet.Range("D9").Top
       .Width = ActiveSheet.Range("D9:H9").Width
       .Height = ActiveSheet.Range("D9:D28").Height
       .Placement = 1
       .Select
       Selection.PrintObject = True
    End With
    Bak.Select
End Sub

çok teşekkürler Muzaffer Hocam