Scale to boundingbox of Active selection

pkg_sriram
2 days ago

would like to scale each object of the active selection to the bounding box of the activeselection.  

  • 0 2 days ago

    Sub ScaleToBoundingBox1()

    Dim s As shape
    Dim sr As New ShapeRange
    Dim x As Double, y As Double, w As Double, h As Double

    Set sr = ActiveSelectionRange
    x = sr.BoundingBox.x
    y = sr.BoundingBox.y
    w = sr.BoundingBox.width
    h = sr.BoundingBox.height

    For Each s In sr
    s.SetSize w, h
    Next s

    End Sub
    i tried this upto... not working at all

© 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.