Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Anyone know how to cut n paste pictures?
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:=?? |
#2
|
|||
|
|||
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:=?? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
paste special - unformatted text | Microsoft Word Help | |||
Problems printing pictures in word | Microsoft Word Help | |||
Word Doc with Picture(s) not showing up when you open the document | Microsoft Word Help | |||
paste options button no longer visible | Microsoft Word Help | |||
Very Slow Copy and Paste | Microsoft Word Help |