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
No Data
  • 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