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 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 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?
I want to be able to marquee select a bunch of objects and scale them a percentage but have each in place individually.
Myron said: I want to be able to marquee select a bunch of objects and scale them a percentage but have each in place individually.
Oh, I see now. I'm sure this can be done with a macro. I'll have to think about that one. In the mean time, perhaps a macro maker will reply.
Also, if you have not done so...you might want to post this question in the Oberon forums here so you can get a better chance at some help.
Sub Resize()Dim sr As ShapeRange, s As Shape, x#, y#, sc#Set sr = ActiveSelectionRangeActiveDocument.BeginCommandGroup "Resize"sc = InputBox("scale")For Each s In sr x = s.PositionX y = s.PositionY s.SetSize s.SizeWidth * sc, s.SizeHeight * sc s.PositionX = x s.PositionY = yNext sActiveDocument.EndCommandGroupEnd Sub
Best regards
Mek