Make Pictures Auto Fit When Dropped In

macropod · #2 03-11-2012, 08:47 PM

Hi gapi,

In all likelihood, the pasted images are coming out as small as they are because of their limited resolution. The printout of a 655 x 480 image stretched to page width would look quite poor. Nevertheless, if that's what you want, you can re-format the lot in bulk with a macro like:

Code:

Sub ReformatPics()
Dim iShp As InlineShape
For Each iShp In ActiveDocument.InlineShapes
  With iShp
    .LockAspectRatio = True
    .Width = InchesToPoints(6.5)
  End With
Next iShp
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using pictures as background	Zeeb	Word	1	11-04-2011 01:43 AM
Can you auto fill pictures into a slide show?	darkcyber	PowerPoint	0	07-20-2011 09:11 PM
Two pictures in one figure?	seanspotatobusiness	Word	1	06-08-2011 03:25 PM
Resizing pictures	alamorchgirl	PowerPoint	3	05-27-2011 04:30 PM
Excel Pictures	Launchnet	Excel	1	06-06-2010 04:59 AM