Automatic size change on all imported pictures

Automatic size change on all imported pictures

Hi,

I generate word (2003) documents with several imported pictures.
But these pictures are to large so I have to change the size to 80% by hand.

How can I automatic change the size for all pictures in the file?
I have tried to record a macro to do this, but during this recording I can't 
select any pictures in the document. I don't understand why.

Best regards,
/SÃ¶ren

date: Fri, 11 Jan 2008 01:23:00 -0800 author: SÃ¶ren_MarodÃ¶ren

Re: Automatic size change on all imported pictures

Hi Sören,

your pictures are probably inlineshapes.

If so, try:

Sub Test6778a()
Dim oInl As InlineShape
For Each oInl In ActiveDocument.InlineShapes
' for testing
'  MsgBox "x = " & Format(oInl.Width, "#") & _
   Chr (13) & "y = " & Format(oInl.Height, "#")
   oInl.Width = oInl.Width * 0.8
   oInl.Height = oInl.Height * 0.8
Next
End Sub

There is also .scalewidth and .scaleheight,
but it's difficult to apply and help is misleading.

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

date: Fri, 11 Jan 2008 15:16:05 +0100 author: Helmut Weber