Picture Compression doesn't work in Word XP for some reason (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:=??

i realise this is a difficult one


"JethroUK©" wrote in message
...
Picture Compression doesn't work in Word XP for some reason (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:=??