Macro in word to size objects

[ceecld]

I am trying to create a macro which will change the size of a selected object to 55%.

Im wanting to do this so that i dont have to keep manually changing each object so that two can fit on a page.

When i try to record a macro word wont allow me to select the object and in not familiar enough with VBA to construct my own code.

Any help would be much appreciated.

 

[MakeItSo]

Hi Ceecld.

This should work for (did for me):

Dim Inl As InlineShape

For Each Inl In ActiveDocument.InlineShapes
    Inl.ScaleHeight = 55
    Inl.ScaleWidth = 55
Next

Put it in your macro and try it.
;-)

Cheers,
Andy

[blue]The last voice we will hear before the world explodes will be that of an expert saying:
"This is technically impossible!" - Sir Peter Ustinov[/blue]

 

[ceecld]

Cheers!

I came up with a solution but yours is even better, now i can select 40-50 screen dumps and do them all at the same time.

Nice one!

Cheers again

 

[Phaed]

of course if you have a Shape object, rather than an InLineShape object.......above will not work. if it appears all you have are InLineShapes obejcts, fine and dandy.