ppt学习资料

hedyjing

Previous方法
显示紧挨当前显示的幻灯片之前的幻灯片。如果当前正处于展台幻灯片放映的第一张幻灯片上，Previous方法可以在幻灯片放映中切换到上一张幻灯片上；另外，如果当前显示的使演示文稿中的第一张幻灯片，此方法无效。使用 SlideShowWindow对象的View属性返回 SlideShowView对象。
expression.Previous
expression  必选。该表达式返回“应用于”列表中的项目之一。
VBA示例
本示例在第一个幻灯片放映窗口中放映当前播放的幻灯片的上一张。
SlideShowWindows(1).View.Previous
PrevNode方法
返回DiagramNode对象，该对象代表图示节点集合中的上一个图示节点。
expression.PrevNode
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例向第一个子节点中添加附加的子节点，第一个子节点是新建图示中位于第二个节点前的节点）。
Sub AddNodeToFirstChild()
    Dim dgnNode As DiagramNode
    Dim dgnPrev As DiagramNode
    Dim shpOrgChart As Shape
    Dim intNodes As Integer
    'Adds org chart and root node
    Set shpOrgChart = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpOrgChart.DiagramNode.Children.AddNode
    'Adds three child nodes to root node
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
    'Sets dgnPrev equal to first child node (the node
    'previous to the second child node)
    Set dgnPrev = dgnNode.Children.Item(2).PrevNode
    'Adds three child nodes to first child node
    For intNodes = 1 To 3
        dgnPrev.Children.AddNode
    Next intNodes
End Sub

俩人世界

PrintOut方法
打印指定演示文稿。
expression.PrintOut(From, To, PrintToFile, Copies, Collate)
expression  必选。该表达式返回一个 Presentation对象。
From  可选。Integer 类型。要打印的第一页的页码。如果省略此参数，打印从演示文稿的开头开始。指定 To 和 From参数为演示文稿设置PrintRanges对象的内容并设置RangeType属性的值。
To  可选。Integer 类型。要打印的最后一页的页码。如果省略此参数，打印会持续到演示文稿结束。指定 To 和 From参数为演示文稿设置PrintRanges对象的内容并设置RangeType属性的值。
PrintToFile  可选。String 类型。输出打印的文件名。如果指定此参数，则要打印的文件将被输出到文件而非打印机。省略此参数时，文件被传送至打印机。
Copies  可选。Integer 类型。要打印的份数。如果省略此参数，只打印一个副本。指定此参数来设置NumberOfCopies属性的值。
Collate  可选。MsoTriState 类型。如果省略此参数，多个副本会分页复制。指定此参数设置Collate属性的值。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 在打印下一副本的第一页之前打印该演示文稿的完整副本。
VBA示例
本示例打印每个幻灯片（从当前演示文稿的第二个幻灯片到第五个幻灯片）的两个不分页复制的副本（不管是可见的还是隐藏的）。
With Application.ActivePresentation
    .PrintOptions.PrintHiddenSlides = True
    .PrintOut From:=2, To:=5, Copies:=2, Collate:=msoFalse
End With
本示例将当前演示文稿中的所有幻灯片作为单个副本输出到文件“Testprnt.prn”。
Application.ActivePresentation.PrintOut _
PrintToFile:="TestPrnt"

user_pkifs

PrintOut方法
打印指定演示文稿。
expression.PrintOut(From, To, PrintToFile, Copies, Collate)
expression  必选。该表达式返回一个 Presentation对象。
From  可选。Integer 类型。要打印的第一页的页码。如果省略此参数，打印从演示文稿的开头开始。指定 To 和 From参数为演示文稿设置PrintRanges对象的内容并设置RangeType属性的值。
To  可选。Integer 类型。要打印的最后一页的页码。如果省略此参数，打印会持续到演示文稿结束。指定 To 和 From参数为演示文稿设置PrintRanges对象的内容并设置RangeType属性的值。
PrintToFile  可选。String 类型。输出打印的文件名。如果指定此参数，则要打印的文件将被输出到文件而非打印机。省略此参数时，文件被传送至打印机。
Copies  可选。Integer 类型。要打印的份数。如果省略此参数，只打印一个副本。指定此参数来设置NumberOfCopies属性的值。
Collate  可选。MsoTriState 类型。如果省略此参数，多个副本会分页复制。指定此参数设置Collate属性的值。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 在打印下一副本的第一页之前打印该演示文稿的完整副本。
VBA示例
本示例打印每个幻灯片（从当前演示文稿的第二个幻灯片到第五个幻灯片）的两个不分页复制的副本（不管是可见的还是隐藏的）。
With Application.ActivePresentation
    .PrintOptions.PrintHiddenSlides = True
    .PrintOut From:=2, To:=5, Copies:=2, Collate:=msoFalse
End With
本示例将当前演示文稿中的所有幻灯片作为单个副本输出到文件“Testprnt.prn”。
Application.ActivePresentation.PrintOut _
PrintToFile:="TestPrnt"
Publish方法
通过加载的任意演示文稿创建 Web 演示文稿（HTML 格式）。可以在 Web 浏览器中查看发布的演示文稿。
expression.Publish
expression  必选。该表达式返回 PublishObject对象。
说明
可以通过设置PublishObject对象的不同属性值来指定所发布的演示文稿的内容和属性。例如，SourceType属性用于定义加载的演示文稿中需要进行发布的部分。RangeStart属性和RangeEnd属性用于指定要发布的幻灯片的范围，而SpeakerNotes属性则用于指定是否发布演讲者备注。
VBA示例
本示例将当前演示文稿的第三张幻灯片到第五张幻灯片发布为 HTML 格式，并将发布的幻灯片命名为“Mallard.htm”。
With ActivePresentation.PublishObjects(1)
    .FileName = "C:TestMallard.htm"
    .SourceType = ppPublishSlideRange
    .RangeStart = 3
    .RangeEnd = 5
    .Publish
End With
Quit方法
退出 PowerPoint。此方法等价于单击“文件”菜单的“退出”命令。
expression.Quit
expression  必选。该表达式返回一个 Application对象。
说明
若要避免在保存改动时显示提示，可在调用 Quit方法之前使用 Save方法或者 SaveAs方法保存所有打开的演示文稿。
VBA示例
本示例保存所有打开的演示文稿，然后退出 PowerPoint。
With Application
    For Each w In .Presentations
        w.Save
    Next w
    .Quit
End With

user_txibq

Range方法
应用于 Shapes对象的 Range方法。
返回ShapeRange对象，该对象代表一个Shapes集合中的形状子集。
expression.Range(Index)
expression  必选。该表达式返回一个 Shapes集合对象。
Index  可选。Variant 类型。要包含在范围内的单个形状。可以是 Integer 类型值（指定形状的索引号）、String 类型值（指定形状的名称）或者数组（包括整数或字符串）。如果忽略此参数，则 Range方法返回指定集合中的所有对象。
应用于 GroupShapes对象的 Range方法。
返回一个 ShapeRange对象。
expression.Range(Index)
expression  必选。该表达式返回上述对象之一。
Index  必选。Variant 类型。要包含在范围内的单个形状。可以是 Integer 类型值（指定形状的索引号）、String 类型值（指定形状的名称）或者数组（包括整数或字符串）。如果忽略此参数，则 Range方法返回指定集合中的所有对象。
应用于 Slides对象的 Range方法。
返回SlideRange对象，该对象代表一个Slides集合中的幻灯片子集。
expression.Range(Index)
expression  必选。该表达式返回一个 Slides集合对象。
Index  可选。Variant 类型。要包含在范围内的单张幻灯片。可以是 Integer 类型值（指定形状的索引号）、String 类型值（指定形状的名称）或者数组（包括整数或字符串）。如果忽略此参数，则 Range方法返回指定集合中的所有对象。
说明
虽然用 Range方法可以返回任意数量的形状或幻灯片，但是如果只想返回集合中的单个成员，则使用Item方法更简单。例如，Shapes(1) 比Shapes.Range(1) 简单，Slides(2) 比Slides.Range(2) 简单。
若要为 Index 指定一个整数或字符串数组，可以使用 Array函数。例如，以下指令返回用名称指定的两个形状。
Dim myArray() As Variant, myRange As Object
myArray = Array("Oval 4", "Rectangle 5")
Set myRange = ActivePresentation.Slides(1).Shapes.Range(myArray)
VBA示例
应用于 Shapes对象。
本示例设置myDocument 中第一个形状和第三个形状的填充图案。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.Range(Array(1, 3)).Fill _
    .Patterned msoPatternHorizontalBrick
本示例设置第一张幻灯片中形状 Oval 4 和 Rectangle 5 的填充图案。
Dim myArray() As Variant, myRange As Object
myArray = Array("Oval 4", "Rectangle 5")
Set myRange = ActivePresentation.Slides(1).Shapes.Range(myArray)
myRange.Fill.Patterned msoPatternHorizontalBrick
本示例设置第一张幻灯片中所有形状的填充图案。
ActivePresentation.Slides(1).Shapes.Range.Fill _
    .Patterned Pattern:=msoPatternHorizontalBrick
本示例设置第一张幻灯片中第一个形状的填充图案。
Set myDocument = ActivePresentation.Slides(1)
Set myRange = myDocument.Shapes.Range(1)
myRange.Fill.Patterned msoPatternHorizontalBrick
本示例创建一个包含第一张幻灯片中所有自选图形的数组，并用它定义一个形状范围，然后在该范围内水平地分布所有这些形状。
With myDocument.Shapes
    numShapes = .Count
    'Continues if there are shapes on the slide
    If numShapes > 1 Then
        numAutoShapes = 0
        ReDim autoShpArray(1 To numShapes)
        For i = 1 To numShapes
            'Counts the number of AutoShapes on the Slide
            If .Item(i).Type = msoAutoShape Then
                numAutoShapes = numAutoShapes + 1
                autoShpArray(numAutoShapes) = .Item(i).Name
            End If
        Next
        'Adds AutoShapes to ShapeRange
        If numAutoShapes > 1 Then
            ReDim Preserve autoShpArray(1 To numAutoShapes)
            Set asRange = .Range(autoShpArray)
            asRange.Distribute msoDistributeHorizontally, False
        End If
    End If
End With
应用于 Slides对象。
本示例设置第一张幻灯片和第三张幻灯片的标题颜色。
Set mySlides = ActivePresentation.Slides.Range(Array(1, 3))
mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)
本示例设置幻灯片“Slide6”和幻灯片“Slide8”的标题颜色。
Set mySlides = ActivePresentation.Slides _
    .Range(Array("Slide6", "Slide8"))
mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)
本示例设置当前演示文稿中所有幻灯片的标题颜色。
Set mySlides = ActivePresentation.Slides.Range
mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(255, 0, 0)
本示例创建一个包含当前演示文稿中所有标题幻灯片的数组，并用它定义一个幻灯片范围，然后设置该范围内所有幻灯片的标题颜色。
Dim MyTitleArray() As Long
Set pSlides = ActivePresentation.Slides
ReDim MyTitleArray(1 To pSlides.Count)
For Each pSlide In pSlides
    If pSlide.Layout = ppLayoutTitle Then
        nCounter = nCounter + 1
        MyTitleArray(nCounter) = pSlide.SlideIndex
    End If
Next pSlide
ReDim Preserve MyTitleArray(1 To nCounter)
Set rngTitleSlides = ActivePresentation.Slides.Range(MyTitleArray)
rngTitleSlides.ColorScheme.Colors(ppTitle).RGB = RGB(255, 123, 99)

fdsbuyw

RangeFromPoint方法
返回位于指定位置（通过屏幕上的坐标对指定）上的 Shape对象。如果该坐标对所指定的位置上没有任何形状，则此方法将返回 Nothing。
expression.RangeFromPoint(x, y)
expression  必选。该表达式返回一个 DocumentWindow对象。
x  必选。Long 类型。从屏幕左边缘到该点的横向距离（单位：像素）。
y  必选。Long 类型。从屏幕上边缘到该点的纵向距离（单位：像素）。
VBA示例
本示例使用坐标 (288, 100) 向第一张幻灯片中添加一个新的五角星。然后，再将坐标由单位磅转换为像素，并使用 RangeFromPoint方法返回一个对该新对象的引用，最后更改此五角星的填充色。
Dim myPointX As Integer, myPointY As Integer
Dim myShape As Object
ActivePresentation.Slides(1).Shapes _
    .AddShape(msoShape5pointStar, 288, 100, 100, 72).Select
myPointX = ActiveWindow.PointsToScreenPixelsX(288)
myPointY = ActiveWindow.PointsToScreenPixelsY(100)
Set myShape = ActiveWindow.RangeFromPoint(myPointX, myPointY)
myShape.Fill.ForeColor.RGB = RGB(80, 160, 130)
Regroup方法
将指定形状原先所属的形状区域重新组合。以单一的 Shape对象返回重新组合的形状。
expression.Regroup
expression  必选。该表达式返回一个 ShapeRange对象。
说明
Regroup方法仅对在指定 ShapeRange集合中找到的第一个以前组合的形状进行恢复。因此，如果指定的形状区域包含以前属于其他组的形状，则只恢复其中一组。
请注意，由于一组形状作为单个形状处理，将形状组合及取消组合都会改变 Shapes集合中的项目数，而且由于影响集合中的项目，还会改变部分项目的索引号。
VBA示例
本示例将当前窗口中选中的形状重新组合。如果这些形状以前未被组合和取消组合，则本示例将失败。
ActiveWindow.Selection.ShapeRange.Regroup

redappleisme

ReloadAs方法
根据指定的 HTML 文档编码重新加载演示文稿。
expression.ReloadAs (cp)
expression  必选。该表达式返回“应用于”列表中的对象之一。
cp  必选。MsoEncoding 类型。重新加载 Web 页时要使用的文档编码。
MsoEncoding 可以是下列 MsoEncoding 类型常数之一。
msoEncodingArabicAutoDetect
msoEncodingAutoDetect
msoEncodingCyrillicAutoDetect
msoEncodingGreekAutoDetect
msoEncodingJapaneseAutoDetect
msoEncodingKoreanAutoDetect
msoEncodingSimplifiedChineseAutoDetect
msoEncodingTraditionalChineseAutoDetect
VBA示例
本示例使用西方编码重新加载当前演示文稿。
ActivePresentation.ReloadAs (msoEncodingWestern)
Remove方法
从加载宏集合中删除一个加载宏。
expression.Remove(Index)
expression  必选。该表达式返回一个 AddIns对象。
Index  必选。Variant 类型。要从集合中删除的加载宏的名称。
VBA示例
本示例从可用加载宏的列表中删除名为“MyTools”的加载宏。
AddIns.Remove "mytools"
RemoveBaseline方法
从演示文稿中删除基准线。
expression.RemoveBaseline
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
如果演示文稿是一个作者演示文稿或如果其中没有基准线，此方法将产生错误。
VBA示例
以下代码行删除当前演示文稿中的基准线。
Sub RmvBaseline()
    ActivePresentation.RemoveBaseline
End Sub
RemovePeriods方法
删除指定文本每段末尾的句号。
expression.RemovePeriods
expression  必选。该表达式返回一个 TextRange对象。
VBA示例
本示例删除活动演示文稿第一张幻灯片第二个形状中每段末尾的句号。
Application.ActivePresentation.Slides(1) _
    .Shapes(2).TextFrame.TextRange _
    .RemovePeriods

user_xkinr

Replace方法
应用于 TextRange对象的 Replace方法。
在文本范围内查找特定文本，用指定字符串替换查找到的文本，返回代表查找到的第一个文本内容的 TextRange对象。如果找不到匹配的内容，则返回 Nothing。
expression.Replace(FindWhat, ReplaceWhat, After, MatchCase, WholeWords)
expression  必选。该表达式返回上述对象之一。
FindWhat  必选。String 类型。要搜索的文本。
ReplaceWhat  必选。String 类型。要替换查找文本的文本。
After  可选。Integer 类型。字符（在指定文本范围内）的位置，从该字符后开始搜索 FindWhat 的下一个内容。例如，如果要从文本内容的第五个字符开始搜索，指定 After 为 4。如果省略此参数，将从文本范围的第一个字符开始搜索。
MatchCase  可选。MsoTriState 类型。决定搜索时是否区分大小写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认。
msoTriStateMixed
msoTriStateToggle
msoTrue 区分字符的大小写。
WholeWords  可选。MsoTriState 类型。决定是否只查找完整的单词。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认。
msoTriStateMixed
msoTriStateToggle
msoTrue 只查找完整的单词，不包括大单词的部分字符。
应用于 Fonts对象的 Replace方法。
替换 Fonts集合中的一个字体。
expression.Replace(Original, Replacement)
expression  必选。该表达式返回上述对象之一。
Original  必选。String 类型。要替换的字体名称。
Replacement  必选。String 类型。替换字体的名称。
VBA示例
应用于 TextRange对象的 Replace方法。
本示例将当前演示文稿中所有形状的每个完整单词“like”替换为“NOT LIKE”。
Sub ReplaceText()
    Dim oSld As Slide
    Dim oShp As Shape
    Dim oTxtRng As TextRange
    Dim oTmpRng As TextRange
    Set oSld = Application.ActivePresentation.Slides(1)
    For Each oShp In oSld.Shapes
        Set oTxtRng = oShp.TextFrame.TextRange
        Set oTmpRng = oTxtRng.Replace(FindWhat:="like", _
            Replacewhat:="NOT LIKE", WholeWords:=True)
        Do While Not oTmpRng Is Nothing
            Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, _
                oTxtRng.Length)
            Set oTmpRng = oTxtRng.Replace(FindWhat:="like", _
                Replacewhat:="NOT LIKE", WholeWords:=True)
        Loop
    Next oShp
End Sub
应用于 Fonts 对象。
本示例将 Times New Roman 字体替换为活动演示文稿的 Courier 字体。
Application.ActivePresentation.Fonts _
    .Replace Original:="Times New Roman", Replacement:="Courier"

user_unuds

ReplaceNode方法
用源图示节点替换目标图示节点。目标图示节点将被删除，而源图示节点（包括其所有子节点）将移动到目标图示节点所在的位置。
expression.ReplaceNode(TargetNode)
expression  必选。该表达式返回“应用于”列表中的对象之一。
TargetNode  必选。DiagramNode对象。要替换的图示节点。
VBA示例
以下示例用新建图示的第二个节点替换最后一个图示节点。
Sub ReplaceLastNode()
    Dim dgnNode As DiagramNode
    Dim shpRadial As Shape
    Dim intNodes As Integer
    'Adds radial diagram and root node
    Set shpRadial = ActivePresentation.Slides(1).Shapes.AddDiagram _
        (Type:=msoDiagramRadial, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    Set dgnNode = shpRadial.DiagramNode.Children.AddNode
    'Adds three additional child nodes
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
    'Displays the number of nodes in the diagram
    MsgBox "The number of nodes in the diagram : " & _
         dgnNode.Diagram.Nodes.Count
    'Second node replaces the last node.
    dgnNode.Diagram.Nodes(2).ReplaceNode _
        TargetNode:=dgnNode.Diagram.Nodes(4)
    'Node count is three because the replaced node was deleted
    MsgBox "The number of nodes in the diagram : " & _
        dgnNode.Diagram.Nodes.Count
End Sub

谈婚嫁网

ReplyWithChanges方法
给发送用于审阅的演示文稿的作者发一个电子邮件，通知他们审阅者已审阅完演示文稿。
expression.ReplyWithChanges(ShowMessage)
expression  必选。该表达式返回“应用于”列表中的对象之一。
ShowMessage  可选。Boolean 类型。值为 True 时，在发送邮件前显示该邮件。值为 False 时，自动发送邮件而不事先显示。默认值为 True。
说明
使用SendForReview方法启动演示文稿的协作审阅。如果 ReplyWithChanges方法在非协作审阅流程的演示文稿中执行，用户将收到一个错误消息。
VBA示例
本示例向审阅文档的作者发送一个邮件，通知他审阅者已完成审阅；并且在发送该邮件前不对审阅者显示该电子邮件。本示例假设当前演示文稿处于协作审阅流程中。
Sub ReplyMsg()
    ActivePresentation.ReplyWithChanges ShowMessage:=False
End Sub
RerouteConnections方法
重置连接符使其以最短的路径连接形状。重置时，RerouteConnections方法可能会断开连接符的两端并将其重新连接到形状的其他位置。
该方法重置指定形状的所有连接符，如果指定形状为一个连接符，则重置该连接符。
expression.RerouteConnections
expression  必选。该表达式返回一个 Shape 或 ShapeRange对象。
说明
如果该方法应用于一个连接符，则只重置该连接符；如果该方法应用于一个已连接的形状，则重置该形状上所有的连接符。
VBA示例
本示例将两个矩形添加到myDocument，用曲线连接符连接两个矩形，然后重置连接符使两个矩形间采用最短的路径。请注意，RerouteConnections方法用于调整连接符的大小和位置并决定要连接到哪个连接位置，因此最初为 ConnectionSite参数指定与 BeginConnect 和 EndConnect方法一起使用的值是不相关的。
Set myDocument = ActivePresentation.Slides(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
Set newConnector = s _
    .AddConnector(msoConnectorCurve, 0, 0, 100, 100)
With newConnector.ConnectorFormat
    .BeginConnect firstRect, 1
    .EndConnect secondRect, 1
End With
newConnector.RerouteConnections

2088alex

ResetRotation方法
将延伸绕 x 轴和 y 轴的旋转重设为零，使延伸的正面向前。该方法不重设绕 z 轴的旋转。
expression.ResetRotation
expression  必选。该表达式返回一个 ThreeDFormat对象。
说明
若要将延伸绕 x 轴和 y 轴的旋转设为任何非零值，请使用 ThreeDFormat对象的RotationX 和RotationY属性。若要设置延伸绕 z 轴的旋转，请使用代表该延伸形状的Shape对象的Rotation属性。
VBA示例
本示例将myDocument 上第一个形状的延伸绕 x 轴和 y 轴的旋转重设为 0（零）。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).ThreeD.ResetRotation
ResetSlideTime方法
将当前放映的幻灯片播放时间（由SlideElapsedTime属性代表）重设为 0（零）。
expression.ResetSlideTime
expression  必选。该表达式返回一个 SlideShowView对象。
VBA示例
本示例将当前幻灯片放映窗口中放映的幻灯片播放时间重设为 0（零）。
SlideShowWindows(1).View.ResetSlideTime
RotatedBounds方法
返回指定文本范围内文本边界框的顶点坐标。
expression.RotatedBounds(X1, Y1, X2, Y2, X3, Y3, X4, Y4)
expression  必选。该表达式返回一个 TextRange对象。
X1，Y1  必选。Single 类型。返回指定文本范围内文本边界框第一个顶点的位置，以磅为单位。
X2，Y2  必选。Single 类型。返回指定文本范围内文本边界框第二个顶点的位置，以磅为单位。
X3，Y3  必选。Single 类型。返回指定文本范围内文本边界框第三个顶点的位置，以磅为单位。
X4，Y4  必选。Single 类型。返回指定文本范围内文本边界框第四个顶点的位置，以磅为单位。
VBA示例
本示例使用 RotatedBounds方法的参数返回值绘制任意多边形，此任意多边形的尺寸为当前活动演示文稿中第一张幻灯片上第一个形状的文本域内的第三个字的文本边界框的尺寸。
Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
Dim x3 As Single, y3 As Single
Dim x4 As Single, y4 As Single
Dim myDocument As Slide
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).TextFrame.TextRange.Words(3).RotatedBounds _
    x1, y1, x2, y2, x3, y3, x4, y4
With myDocument.Shapes.BuildFreeform(msoEditingCorner, x1, y1)
    .AddNodes msoSegmentLine, msoEditingAuto, x2, y2
    .AddNodes msoSegmentLine, msoEditingAuto, x3, y3
    .AddNodes msoSegmentLine, msoEditingAuto, x4, y4
    .AddNodes msoSegmentLine, msoEditingAuto, x1, y1
    .ConvertToShape.ZOrder msoSendToBack
End With