set width and height without lock aspect ratio

[murali]

I paste a picture in my presentation with a macro and then
I try to set the height and width this way:
*************
With PPPres.Application.ActiveWindow.Selection.ShapeRange
.Left = 0
.Top = 46.38
.Width = 719.75
.Height = 493.62
End With
************
The problem is that once I have set the width, when I set
the height, the width is changed automatically in order to
keep the aspect ratio. How can I deactivate this?
Thanks

 

[Guest]

You need to add:

..LockAspectRatio = msoFalse

right before your .Width line.

--David

David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

 

[Suvodip Moitra]

Dear Murali,

Your revised code :

With PPPres.Application.ActiveWindow.Selection.ShapeRange
.Left = 0
.Top = 46.38
.LockAspectRatio = msoFalse
.Width = 719.75
.Height = 493.62
End With

Suvodip Moitra