作者：乔山办公网日期：
返回目录：word文档
没有缩抄略图是很正常的现象，手机连接电脑一般袭也没有缩略图，可以试试下面的百
在文件夹选项里打开缩略图度
尝试对C盘的缩略图缓存进行清理
以管理员运行命令提示符问，输入powercfg -h off
有些格式答的图片无法建立缩略图
提供网上示例代码供参考（此代码的思路是遍历 word 文档中的 Shapes ，缩放到原始图片尺寸，再转粘贴到 Excel 中，借用 Excel 的 ChartObjects 提供的导出功能实现图片原e69da5e887aae79fa5e98193362样导出）：
Sub test()
Rem 工具--引用--勾选 Microsoft Excel x.x Object Library..
Dim myshape As Object, ExcelApp As New Excel.Application
Dim Excel As Workbook, i%, z%
Set Excel = ExcelApp.Workbooks.Add
For Each myshape In ActiveDocument.InlineShapes
If myshape.Type = 3 Then
i = i + 1
myshape.Select
Set myshape = myshape.ConvertToShape
Rem 以下代码将图片以原始比例展示
With myshape
.ScaleHeight 1, True, msoScaleFromMiddle
.ScaleWidth 1, True, msoScaleFromMiddle
End With
Selection.Copy
With Excel.ActiveSheet.ChartObjects.Add(0, 0, myshape.Width, myshape.Height).Chart
.Paste
.Export ActiveDocument.Path & "" & i & ".png"
.Parent.Delete
End With
End If
Next
Excel.Close False
ExcelApp.Quit
End Sub
以Word 2016为例，有以下步骤：
1、打开一个Word文档，如度下图所示：
2、点击菜单中的插入，如下图所示：专
3、选择图片，如下图所示：
4、选择电脑中的一个图片，点击插入，如下图所示：
5、选中插入的图片，选属择按鼠标右键选择另存为图片，如下图所示：
6、输入文件名，如下图所示：
7、选择存储的地址，点击确定，如下图所示：
8、返回桌面看到刚才从Word中另存的图片，如下图所示：
于图片来说，，分为二种的，，
第一种：是Shape对象（Word中自带的“自选图形”）
第二种：是InlineShape对象(嵌入式图片，也就是所谓的通过点击菜单栏中的“插入”－＞“图片”－＞“来自文件”）
－－－－－－－－－－－－－－－－－－－
如何判断word文档中是否存在一张图片呢？这个问题。
我来解答：判断word文档中是否存在一张图片，可以通过看一看word文档中的inlineshape对象的数量来判断。
举例：
Dim doc As Document '当前打开的文档对象Document
Dim MyApp As Word.Application 'Word应用程序对象
Dim MyFileName As String '当前打开的文件名e799bee5baa6e59b9ee7ad94339
MyFileName="c;\aaa.doc" '此处可以改成你的文件名字
Set MyApp = CreateObject("Word.Application")
Set doc = MyApp.Documents.Open(MyFileName)
If doc.InlineShapes.Count <> 0 then
msgbox "有嵌入式图片存在!"
Else
msgbox "没有嵌入式图片存在!"
End if
-------------------------------------------------------
如果你非要想知道，用户到底是不是插入了你要求的图片的话，你要必须要再他进行插入图片操作时进行控制，也就是说，你必须把用户所插入的图片的（绝对地址）或者（图片名字）添加到用户所插入图片的“可选文字”中记录下来。
MydocInlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)
FileName String 类型，必需。指定要创建对象的文件名。如果忽略本参数，则使用当前文件夹。
LinkToFile Variant 类型，可选。如果此属性设置为 True，则将 OLE 对象与创建该对象的文件链接。如果设置为 False，则令该 OLE 对象成为该文件的独立副本。默认值为 False。
SaveWithDocument Variant 类型，可选。如果此属性为 True，则将链接的图片与文档一起保存。默认值为 False。
Range Variant 类型，可选。指定一个区域，OLE 对象放置在该区域的文字中。如果该区域未折叠，那么图片将覆盖该区域。如果忽略此参数，则自动放置图片。
ActiveDocument.Shapes.AddPicture "C:\stone.bmp",True, True,MyRange
ActiveDocument.InlineShapes(ID).AlternativeText = App.Path & "\temp" & shapeII & ".bmp" '添加“可选文字”