J
JethroUK©
Picture Compression doesn't work in Word XP (worked fine on previous
versions) - by default Word retains cropped areas of any picture so you can
uncrop it - this can lead to a 12 page document being a whoooooooooping 12
megabytes big - compression basically removes any cropped areas of the
picture perminently
I can do it manually:
Cut the picture
Paste Special (as Picture) - (This discards any cropped areas perminently)
Doesn't work in Code ? - It merely pastes back the pictures in their
entirety (still includes cropped areas)
Sub CompressInlinePictures()
'
' Macro1 Macro
' Macro recorded 28/07/2005 by chris ketchell
'
Application.ScreenUpdating = False
For x% = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(x%).Select
Selection.Cut
Selection.PasteAndFormat (wdPasteDefault)
Next
Application.ScreenUpdating = True
End Sub
Any Clues? I'm pretty sure it needs a special data type but i don't know the
value for plain pictures:
Selection.PasteSpecial Link:=False, DataType:=??
versions) - by default Word retains cropped areas of any picture so you can
uncrop it - this can lead to a 12 page document being a whoooooooooping 12
megabytes big - compression basically removes any cropped areas of the
picture perminently
I can do it manually:
Cut the picture
Paste Special (as Picture) - (This discards any cropped areas perminently)
Doesn't work in Code ? - It merely pastes back the pictures in their
entirety (still includes cropped areas)
Sub CompressInlinePictures()
'
' Macro1 Macro
' Macro recorded 28/07/2005 by chris ketchell
'
Application.ScreenUpdating = False
For x% = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(x%).Select
Selection.Cut
Selection.PasteAndFormat (wdPasteDefault)
Next
Application.ScreenUpdating = True
End Sub
Any Clues? I'm pretty sure it needs a special data type but i don't know the
value for plain pictures:
Selection.PasteSpecial Link:=False, DataType:=??