Macro to automatically change the picture height based on given width

nbuddhi

New Member
Joined
Jun 23, 2020
Messages
16
Office Version
  1. 2016
Platform
  1. Windows
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.

VBA Code:
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
 

Excel Facts

Square and cube roots
The =SQRT(25) is a square root. For a cube root, use =125^(1/3). For a fourth root, use =625^(1/4).

nbuddhi

New Member
Joined
Jun 23, 2020
Messages
16
Office Version
  1. 2016
Platform
  1. Windows
I just change msoFalse to msoTrue. It's done. Thank you.
 
Solution

Forum statistics

Threads
1,144,154
Messages
5,722,815
Members
422,460
Latest member
VBA_Noob01

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top