J
JethroUK©
Anyone know what 'type' of picture file this method produces? - I need to
reproduce this command in V.Basic. (it doesn't work in recorded macro)
reproduce this command in V.Basic. (it doesn't work in recorded macro)
Anyone know what 'type' of picture file this method produces? - I
need to reproduce this command in V.Basic. (it doesn't work in
recorded macro)
it specifies other picture types (jpegs, bitmaps,etc) - but not which
type of picture as defined by pastespecial/'picture' - i think it's
metafile
The problem i have is really simple but i'm not finding it easy to
solve - by default m.s. Word by retains cropped areas of pictures
so you can un-crop them again - this can lead to picture documents of
a staggering 30 meg - word has always had a built-in compression
method for dealing with this:
Format>Pictures>Compress>All Pictures>OK
which simply removes the cropped area perminently - problem is, this
picture compression doesn't work in Word XP , never has done
the none-coding work around is simply to cut the picture &
pastespecial as 'picture' - voila - this disposes of any cropped
areas (compresses the picture) - super
i need to code this process for large documents i am developing
daily, but when i record the same process by macro, the code it
produces does not do the same thing at all - it merely pastes back
the UN-cropped picture - grrrrrrrr
i beginning to feel that the best method would be to re-install word
2000 or word 97 - the code i have so far:
Sub CompressPictures()
Dim s As InlineShape
For Each s In ActiveDocument.InlineShapes
s.Select
Selection.Cut
Selection.PasteSpecial DataType:=wdInlineShapePicture
Next
End Sub
Jean-Guy Marcil said:JethroUK© was telling us:
JethroUK© nous racontait que :
OK, so if you know you are dealing with pictures, have you tried with "15"
as DataType? This pastes a JPEG and cuts out cropped areas.
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.