IMPROVE MACRO

ItzelRmz151
over 1 year ago 
Hello, I hope someone can help me with this macro.

I want to change the size of all the images that I have and I tried recording my actions and making adjustments but I always end up grabbing all the images together to be made of a single size, not one by one, so after trying and trying I finally could, but There will always be variations in the amount of images, is there a way to adjust it depending on how many there are in the layer?

Thank you
Parents
No Data
Reply
  • +1 over 1 year ago

    Sub ShapeSize()
        Dim s As Shape, SR As ShapeRange
        Dim w As Double, h As Double

        ActiveDocument.Unit = cdrMillimeter
        ' ActiveDocument.Unit = cdrInch

        ActiveDocument.ReferencePoint = cdrCenter

        w = 3.937043
        h = 3.937012

        Set SR = ActiveSelectionRange
        For Each s In SR
            s.SetSize w, h
        Next s
    End Sub



    that is better
    Taras

Children

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