scale selected objects

Myron
over 9 years ago

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

Myron
  • over 9 years ago

    Got it! Thanks Ronnie Axelsson.

    Sub TemporaryMacro()

        ' Recorded 10/9/2014

        Dim OrigSelection As ShapeRange

        Set OrigSelection = ActiveSelectionRange

        ActiveDocument.ReferencePoint = cdrCenter

        OrigSelection.Stretch 0.75

    End Sub

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.