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?
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 sEnd Sub
that is betterTaras
If you want to resize multiple objects, and keep the position of each object, then you might look at my Adjust Objects; Retain Positions macro.
Is there any chance this macro would be able to work with X4?
Jason Moore said:Is there any chance this macro would be able to work with X4?
I'm not unsympathetic to the wish, but the practical aspects of building X4 versions of my macros would be pretty daunting.
I build my macros in X7, so they work in X7 and newer versions.