Assuming the shape is also selected, you can do something like:
With ActiveWindow.Selection.ShapeRange(1)
' this will be true or false depending on what
' you're after:
.LockAspectRatio = msoFalse
' set the size/position
.Left = xx
.Top = xx
.Height = xx
.Width = xx
End With
You'd need to calculate the values for each parameter. If you don't care whether
the shape is distorted or not, so long as it fits your target area, then just use
the left, top, height and width of your target area directly. In that case, also
set .LockAspectRatio to msoFalse
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ:
www.pptfaq.com
PPTools:
www.pptools.com
================================================