通过

TextRange.InlineShapes 属性 (Publisher)

  • 项目

返回一个 InlineShapes 集合，该集合代表包含在文字范围内的内嵌形状。 只读。

语法

表达式。InlineShapes

表达 一个代表 TextRange 对象的变量。

返回值

InlineShapes

备注

使用 TextFrame.Story.TextRange.InlineShapes 返回文本框架中的所有内联形状，包括溢出形状。

使用 TextFrame.TextRange.InlineShapes 仅返回文本框架中可见的内联形状，而不返回处于溢出状态的形状。

示例

下面的示例在当前出版物的第一页上查找第一个形状 (一个文本框)。 然后使用 InlineShapes 属性以确定文本框中是否存在任何内嵌形状。 如果发现任何垂直翻转每个内嵌形状和其前景色设置为红色。

请注意，通过使用 TextFrame.Story.TextRange.InlineShapes，还将找到溢出中的任何内联形状。

Dim theShape As Shape 
Dim i As Integer 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
With theShape.TextFrame.Story.TextRange 
 If .InlineShapes.Count > 0 Then 
 For i = 1 To .InlineShapes.Count 
 .InlineShapes(i).Flip (msoFlipVertical) 
 .InlineShapes(i).Fill.ForeColor.RGB = vbRed 
 Next 
 End If 
End With

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。