Macro to automatically change the picture height based on given width

[nbuddhi]

Dear Team,

Following code insert an image at a predefined area and resize only the width of image as a predefined value (487). I need your help to change the height based on width without distorting the image (Keeping original ratio). Highly appreciated your help on this.

Private Sub CommandButton72_Click()
Dim Sample_Image As Picture
Dim Image_Location As String
Dim Image_Name As String

Image_Location = "E:\New Excel Formats_Formula & Macro\NABL Formats\" & Worksheets("Test Report").Cells(4, 21).Value & ".jpg"
With Worksheets("Test Report").Cells(4, 4)
Set Sample_Image = ActiveSheet.Pictures.Insert(Image_Location)

Sample_Image.Top = .Top
Sample_Image.Left = .Left
Sample_Image.ShapeRange.LockAspectRatio = msoFalse
Sample_Image.Placement = xlMoveAndSize
Sample_Image.ShapeRange.Width = 487

End With
Worksheets("Test Report").Cells(3, 23).Select
End Sub

Thanks & Best Rgds,
Nuwan

 

[nbuddhi]

I just change msoFalse to msoTrue. It's done. Thank you.