below macro ...
... rotates and scales the selected inline graphic.
I would like to apply this macro to all the graphics in the current document: All the graphics are located in table cells (inline with text)
The requirements in detail:
The macro is ...
... to loop thru all the graphics in all the tables of the current document
... rotate the graphics by 90 degrees
... scale the graphic by Factor 1.5
... convert them back to inline shapes
... only apply above changes to graphics with a width less than 1 cm.
Help is much appreciated. Thank you very much in advance.
Dim ils As Word.InlineShape
Dim shp As Word.Shape
Set ils = Selection.InlineShapes(1)
Set shp = ils.ConvertToShape
shp.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
Set ils = shp.ConvertToInlineShape