word文档中的图片显示不出来怎么办？急求

xukunpeng88888

我以前编辑的一份word文档，今天打开突然所有的图片都显示一个小方框里面一个红色的×，并且显示“无法显示该图片”，请问如何解决？急求，谢谢。

duquancai

当时插入图片的方式： 是以链接图片的方法插入的， 没有随文档一起保存图片。这有什么奇怪的。

duquancai

现在来谈解决，晚矣！除非 磁盘中的图片还存在且图片位置与文档在磁盘中的位置相对一致，也就是说保证能显示图片的情况下，再执行VBA代码使得图片跟随文档一起保存，那么就会永久保存图片了！！！

13907933959

duquancai 发表于 2017-8-21 18:14
现在来谈解决，晚矣！除非 磁盘中的图片还存在且图片位置与文档在磁盘中的位置相对一致，也就是说保证能显 ...

杜前辈好！
这个代码真是想见很晚！我以前类似的中草药图片也消失了很多，导致花了很多时间的文档报废重来，由于不懂，后来为了保险，都是采用截图后再随文档一起保存，相当麻烦累人！现在好了，有了前辈的这个代码以后就再也不怕了！感谢前辈！

1. Sub test()
   
2.     Dim c As Integer
   
3.     Dim shp As InlineShape
   
4.     Dim sp As Shape
   
5.     c = 0
   
6.     For i = 1 To ActiveDocument.InlineShapes.Count
   
7.      Set shp = ActiveDocument.InlineShapes(i)
   
8.       If Not shp.LinkFormat Is Nothing Then
   
9.        If Not shp.LinkFormat.SavePictureWithDocument Then
   
10.         c = c + 1
    
11.         shp.LinkFormat.SavePictureWithDocument = True
    
12.        End If
    
13.       End If
    
14.      Next i
    
15.     For i = 1 To ActiveDocument.Shapes.Count
    
16.      Set sp = ActiveDocument.Shapes(i)
    
17.       If Not sp.LinkFormat Is Nothing Then
    
18.        If Not sp.LinkFormat.SavePictureWithDocument Then
    
19.         c = c + 1
    
20.         sp.LinkFormat.SavePictureWithDocument = True
    
21.        End If
    
22.       End If
    
23.      Next i
    
24.     MsgBox CStr(c) + "个图片改为与文档一起保存"
    
25. End Sub
    

复制代码

xukunpeng88888

谢谢大侠，以后要加强学习啊！