resme göre hücre boyutlandır

[işsiz123]

Merhabalar
Dosyadan seçtiğim resme göre hücreyi nasıl boyutlandırabilirim.

Aşağıdaki kodu kullandım yüksekliği ayarlıyor ama genişlik için kod eklediğimde hata veriyor.

    ActiveSheet.Pictures.Delete

PictureLoc = "C:\Users\M.Emin\Desktop\Untitled-2 copy.jpg"

With Range("B2")
    Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
    .RowHeight = myPict.Height
    
    myPict.Top = .Top
    myPict.Left = .Left
    myPict.Placement = xlMoveAndSize
End With

 

[halit3]

Niçin olmadığını şöyle öğrenebilirsiniz.
mausenin herhangi bir satır üzerlndeyken satır yüksekliğini 1000 yapın ve tamam diyin uyarı mesajı size olması gereken satır yüksekliğini yazacaktır.

bu yüzden resmin yüksekliği hücrenin azami yüksekliğinden çok büyük olduğunu göreceksiniz.

 

[işsiz123]

Anladım teşekkürler