Anyone know of a way to scale selected objects by a percentage yet keep the objects in place? Try to record a macro but it uses a specified size in inches not by a percentage.
Sub TemporaryMacro()
' Recorded 10/9/2014
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
ActiveDocument.ReferencePoint = cdrCenter
OrigSelection.SetSize 2.518906, 1.453386
End Sub
Got it! Thanks Ronnie Axelsson.
OrigSelection.Stretch 0.75