Sure would be nice to be able to select multiple objects that are not clones and resize/scale them but have them stay in the place? i.e. scale from center of each.
example. I have 100 text headings that have all been converted to curves but each are separated as individual headings. The headings need to be 2% smaller. Select all the headings hit the macro first part would name all selected to "whatever" next part of macro would simply loop through the design and find first object named "whatever" then scale it from 100% to 98% then delete the name of the object now find next "whatever" and do the whole process until all "whatever" objects are scaled to 98%.
Myron
you could try this macro and see if provides what you need.
COPY SHAPE SIZE
You can try this code
Sub Resize()Dim sr As ShapeRange, s As Shape, x#, y#, sw#, sh#, sc#Set sr = ActiveSelectionRange 'in your case selected headignssc = 0.98 'scaleFor Each s In sr x = s.CenterX y = s.CenterY sw = s.SizeWidth sh = s.SizeHeight s.SetSize sw * sc, sh * sc s.PositionX = x - s.SizeWidth / 2 s.PositionY = y + s.SizeHeight / 2Next sEnd Sub
Best regards
Mek
You know I worked for hours using that macro but still could not get to work like I wanted but today it works great. I think I was at home when I was trying it though and that was X3 not X4. X3 resized the objects but not from their centers. Works great with X4.
Only one problem though. If you have shapes/objects at different dimensions if makes them all the same size not proportionately scaled. Would be nice to have a macro similar to the COPY SHAPE SIZE but instead of "Copy Dimensions" you could "Copy Scale" and "Apply Scale to Selection"
Mek, not quite there.
Myron said: You know I worked for hours using that macro but still could not get to work like I wanted but today it works great. I think I was at home when I was trying it though and that was X3 not X4. X3 resized the objects but not from their centers. Works great with X4. Only one problem though. If you have shapes/objects at different dimensions if makes them all the same size not proportionately scaled. Would be nice to have a macro similar to the COPY SHAPE SIZE but instead of "Copy Dimensions" you could "Copy Scale" and "Apply Scale to Selection" Myron
You mean you want the scaled percentage copied and applied to the other objects based on a source object?