用VBA怎样判断word表格单元格内是否有图片

zhn158

word内有如下表格，判断单元格内是否有图片，求大神帮忙，谢谢

413191246se

楼主，我搜索网络好久，终于找到答案！（一个2003年的帖子，一位网友回复的）
在 Word 文档中，图形有两种：一种是 Shapes（图形/图片/文本等），另一种是 InlineShapes（嵌入式图形/图片/文本等）。
请将光标放在表格中，试试下面的宏：
Sub test()
'    MsgBox ActiveDocument.Shapes.Count
'    MsgBox ActiveDocument.InlineShapes.Count

    Dim c As Cell
    For Each c In Selection.Tables(1).Range.Cells
        If c.Range.InlineShapes.Count > 0 Then c.Range.HighlightColorIndex = wdBrightGreen '设置单元格突出显示
    Next
   
    MsgBox "普通图形/图片 Shapes=" & ActiveDocument.Shapes.Count & "  " & "嵌入式图形/图片 InlineShapes=" & ActiveDocument.InlineShapes.Count
End Sub

413191246se

********下面的是 VBA 微软官方帮助：*********
InlineShapes 属性
参阅应用于示例特性本属性返回一个 InlineShapes 集合，此集合表示文档、区域或所选内容中的所有 InlineShape 对象。只读。

有关返回集合中单个成员的内容，请参阅返回集合中的对象。

示例
本示例显示活动文档中的图形和嵌入式图形的数目。

Set doc = ActiveDocument
Msgbox "InlineShape = " & doc.InlineShapes.Count & _
    vbCr & "Shapes = " & doc.Shapes.Count
               
*********************
InlineShapes 集合对象
参阅属性方法事件特性多个对象
InlineShapes
InlineShape
多个对象


由 InlineShape 对象组成的集合，该集合代表文档、区域或选定内容的所有嵌入式图形。

使用 InlineShapes 集合
用 InlineShapes 属性可返回 InlineShapes 集合。下列示例将活动文档中的每个嵌入式图形转换为 Shape 对象。

For Each iShape In ActiveDocument.InlineShapes
    iShape.ConvertToShape
Next iShape
               
可用 New 方法，以嵌入式图形的形式创建新图片。可用 AddPicture 和 AddOLEObject 方法添加图片和 OLE 对象，并将其与源文件链接。用 AddOLEControl 方法可添加 ActiveX 控件。

说明
尽管 Shape 对象锁定于某一文本区域，但可将其自由浮移，并可将其放置于页面上的任何位置。可用 ConvertToInlineShape 方法和 ConvertToShape 方法来转换图形的类型。只能将图片、OLE 对象和 ActiveX 控件转换为嵌入式图形。

文档中该集合的 Count 属性仅返回正文部分的项目数。使用集合的 Range 对象可计算其他部分的项目数。

当打开一篇在以前版本的 Word 中创建的文档时，图片将转换为嵌入式图形。

zhn158

多谢，改天试试

ww0000

413191246se 发表于 2015-8-15 21:48
********下面的是 VBA 微软官方帮助：*********
InlineShapes 属性
参阅应用于示例特性本属性返回一个 In ...

怎样判断word表格单元格内是否有图片,不是吧？这是返回图片单元格的数量！