This issue can also occur if the images are scanned images.
Usually cutting the image and pasting the image back into the document resolves the issue.
In similar cases, there have been other suggestions that have worked for users.
Some have found that if the files are opened in Wordpad and saved as RTF, the file and images can then be opened on Word. Whether the file will open in Wordpad depends
on the operating system and the file format of the file. For example, WordPad in Windows 7 can open docx and rtf files.
Another option that resolves some of the issues is to try the following:
1. Right click a picture in the document, then click Format Picture.
2. Click Compress in the lower-left corner of the Picture tab.
3. Check "All pictures in document" , and "Delete cropped areas of pictures" , and uncheck "Compress pictures". Select OK.
There is also some sample code that has worked for some. However, the code needs to run on Word 2003
or where the image is appearing correctly. Basically the code cuts each image and then pastes it back into the file. There may be some resizing of the images when getting pasted back in. The code is strictly a sample.
=====CODE==========
'WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS EXAMPLE IS
'AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of
'any kind, either express or implied, including but not limited to the implied warranties of
'merchantability and/or fitness for a particular purpose.
'===========================
Sub fixInlineShapes()
'start here
'Iterate the InlineShapes collection
'select each inlineshape and then cut it.
'At the selection point pasteSpecial as a picture object.
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
oInlineShape.Select
Selection.Cut
Selection.PasteSpecial placement:=wdInLine, datatype:=14
Next
'call loopshapes
loopShapes
End Sub
Sub loopShapes()
'iterate the shapes that are pictures and are not inline
Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
If oShape.Type = msoPicture And oShape.WrapFormat.Type <> wdWrapInline Then
'select the shape and it becomes the ShapeRange of the selection
oShape.Select
'call shapeFix and pass the ShapeRange
shapeFix Selection.ShapeRange
End If
Next
End Sub
Sub shapeFix(shp As ShapeRange)
Dim lLeft As Long
Dim lTop As Long
Dim rHoriz As Integer
Dim rVert As Integer
Dim rng As Range
'get the current relative position along with the top and left values
lLeft = shp.Left 'left relative
lTop = shp.Top 'top relative
rHoriz = shp.RelativeHorizontalPosition
rVert = shp.RelativeVerticalPosition
'cut the ShapeRange
shp.Select
Selection.Cut
'move up a line to get the correct position to paste
Selection.MoveUp wdLine, 1
Set rng = Selection.Paragraphs(1).Range
rng.Select
'pasteSpecial
Selection.PasteSpecial placement:=wdInLine, datatype:=14
Set shp = rng.ShapeRange
'format the ShapeRange (Shape)
shp.WrapFormat.Type = wdWrapTight
shp.RelativeHorizontalPosition = rHoriz
shp.RelativeVerticalPosition = rVert
shp.Left = lLeft
shp.Top = lTop
End Sub
I hope this helps.
Please remember to click “Mark as Answer” on the post that helps you, and to click “Unmark as Answer” if a marked post does not actually answer your question. This can be beneficial to other community members reading the thread.
Thanks!
Adrian
Microsoft Online Community Support
