shapes.addpicture aspect ratio

[akashawalker]

Hi to all
i am using the below code to insert a picture in excel. the code works and i get a picture, but i how like to size the picture to a fixe width and maintain the aspect ratio.
Any good suggestions.?


Worksheets("Approval Drawing 1").Shapes.AddPicture _
Filename:=myDir & approvaldrawing1 & T_1, _
linktofile:=msoFalse, savewithdocument:=msoTrue, _
Left:=15, Top:=50, Width:=300, Height:=350


Thanks for you time and collaboration

Akasha walker

 

[RoryA]

If you specify -1 for height and width, it will come in in the original dimensions. Setting the width after that should maintain the aspect ratio by default.

 

[akashawalker]

but where can i set after the width?
the -1 is a good way, but i would like to make the aspect ratio more automatic.

 

[RoryA]

Like this:

Dim shp as Shape
set shp = Worksheets("Approval Drawing 1").Shapes.AddPicture(_
Filename:=myDir & approvaldrawing1 & T_1, _
linktofile:=msoFalse, savewithdocument:=msoTrue, _
Left:=15, Top:=50, Width:=-1, Height:=-1)
shp.width = 300