ppt学习资料

weiyingde

设置 Index 指定的结点后面的段的段类型。如果该结点为一条曲线段的控制点，则该方法设置该曲线的段类型。请注意，该方法可能由于插入或删除相邻的结点而影响结点总数。
expression.SetSegmentType(Index, SegmentType)
expression  必选。该表达式返回一个 ShapeNodes对象。
Index  必选。Long 类型。要设置段类型的结点。
SegmentType  必选。MsoSegmentType 类型。指定段是直线还是曲线。
MsoSegmentType 可以是下列 MsoSegmentType 类型常数之一。
msoSegmentCurve
msoSegmentLine
VBA示例
本示例将myDocument 中第三个形状的所有直线段更改为曲线段。第三个形状必须是任意多边形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    n = 1
    While n <= .Count
        If .Item(n).SegmentType = msoSegmentLine Then
            .SetSegmentType n, msoSegmentCurve
        End If
        n = n + 1
    Wend
End With
SetShapesDefaultProperties方法
将指定形状的格式应用于默认形状。默认情况下，使用该方法后创建的形状都将使用此格式。
expression.SetShapesDefaultProperties
expression  必选。该表达式返回一个 Shape对象。
VBA示例
本示例向myDocument 中添加矩形，格式化矩形的填充，将该矩形的格式应用于默认形状，再向该文档中添加一个较小的矩形。第二个矩形的填充与第一个矩形相同。
Set mydocument = ActivePresentation.Slides(1)
With mydocument.Shapes
    With .AddShape(msoShapeRectangle, 5, 5, 80, 60)
        With .Fill
            .ForeColor.RGB = RGB(0, 0, 255)
            .BackColor.RGB = RGB(0, 204, 255)
            .Patterned msoPatternHorizontalBrick
        End With
    ' Sets formatting for default shapes
        .SetShapesDefaultProperties
    End With
' New shape has default formatting
    .AddShape msoShapeRectangle, 90, 90, 40, 30
End With

weiyingde

SetThreeDFormat方法
返回预设的延伸格式。每个预设的延伸格式包含一组各种延伸属性的预设值。
expression.SetThreeDFormat(PresetThreeDFormat)
expression  必选。该表达式返回一个 ThreeDFormat对象。
PresetThreeDFormat  必选。MsoPresetThreeDFormat 类型。指定预设的延伸格式，该格式对应于单击“绘图”工具栏上的“3-D”按钮时显示的选项（从左向右、从上到下编号）之一。
MsoPresetThreeDFormat 可以是下列 MsoPresetThreeDFormat 类型常数之一。
msoPresetThreeDFormatMixed 指定此常数将导致出错。
msoThreeD1
msoThreeD2
msoThreeD3
msoThreeD4
msoThreeD5
msoThreeD6
msoThreeD7
msoThreeD8
msoThreeD9
msoThreeD10
msoThreeD11
msoThreeD12
msoThreeD13
msoThreeD14
msoThreeD15
msoThreeD16
msoThreeD17
msoThreeD18
msoThreeD19
msoThreeD20
说明
该方法将PresetThreeDFormat属性设为由 PresetThreeDFormat参数指定的格式。
VBA示例
本示例向myDocument 中添加椭圆并将其延伸格式设置为 3D 样式 12。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
        .AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD
    .Visible = True
    .SetThreeDFormat msoThreeD12
End With
SmallScroll方法
按行和列滚动指定的文档窗口。
expression.SmallScroll(Down, Up, ToRight, ToLeft)
expression  必选。该表达式返回一个 DocumentWindow对象。
Down  可选。Long 类型。指定向下滚动的行数。
Up  可选。Long 类型。指定向上滚动的行数。
ToRight  可选。Long 类型。指定向右滚动的列数。
ToLeft  可选。Long 类型。指定向左滚动的列数。
说明
如果未指定参数，该方法向下滚动一行。如果同时指定 Down 和 Up，则它们共同起作用。例如，如果 Down 为 2 而 Up 为 4，该方法向上滚动两行。同理，如果同时指定 Right 和 Left，则效果是二者的叠加。
任何参数均可为负数。
VBA示例
本示例将当前窗口向下滚动三行。
Application.ActiveWindow.SmallScroll Down:=3

weiyingde

将指定填充设为统一的颜色。使用此方法可将过渡、纹理、图案或背景填充转换为统一的颜色。
expression.Solid
expression  必选。该表达式返回一个 FillFormat对象。
VBA示例
本示例将myDocument 中的所有填充转换为统一的红色填充。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    With s.Fill
        .Solid
        .ForeColor.RGB = RGB(255, 0, 0)
    End With
Next
Split方法
将表格中的单个单元格拆分成多个单元格。
expression.Split NumRows, NumColumns
expression  必选。该表达式返回 Cell对象。
NumRows  必选。Long 类型。表示单元格将被拆分成的行数。
NumColumns  必选。Long 类型。表示单元格将被拆分成的列数。
VBA示例
本示例将引用的表格中的第一个单元格拆分成两个单元格，这两个单元格上下相邻。
ActivePresentation.Slides(2).Shapes(5).Table.Cell(1, 1).Split 2, 1
SwapNode方法
交换源图示节点与目标图示节点。如果没有指定其他方式，所有图示子节点将随相应的根节点一起移动。
expression.SwapNode(TargetNode, SwapChildren)
expression  必选。该表达式返回“应用于”列表中的对象之一。
TargetNode  必选。DiagramNode对象。目标图示节点。
SwapChildren  可选。Boolean 类型。如果所有图示子节点随相应的目标或源图示节点一起移动，则值为 True（默认值）。值为 False 时，则只交换目标图示节点与源图示节点，并使它们继承相互的图示子节点。
VBA示例
以下示例交换新建图示的第一个和第三个节点。
Sub SwapTwoNodes()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    'Adds radial diagram and first node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramRadial, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    'Adds three additional nodes
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
    'Swaps the first and the third nodes
    dgnNode.Children.Item(1).SwapNode _
        TargetNode:=dgnNode.Children.Item(3)
End Sub

weiyingde

ToggleVerticalText方法
将指定的艺术字中的文字排列从水平切换为垂直，反之亦然。
expression.ToggleVerticalText
expression  必选。该表达式返回一个 TextEffectFormat对象。
说明
使用 ToggleVerticalText方法可以交换代表艺术字的 Shape对象的 Width 和 Height属性的值，但不改变 Left 和 Top属性。
Shape对象的Flip方法和Rotation属性以及 TextEffectFormat对象的RotatedChars属性和 ToggleVerticalText方法都影响代表艺术字的 Shape对象的文字排列的方向。您可能需要多次试验，才能找出组合这些属性和方法的效果的方法以获得预期结果。
VBA示例
本示例向myDocument 中添加包含“Test”文本的艺术字，并且将水平文字排列（指定艺术字的默认字体，msoTextEffect1）切换为垂直文字排列。
Set myDocument = ActivePresentation.Slides(1)
Set newWordArt = myDocument.Shapes.AddTextEffect _
    (PresetTextEffect:=msoTextEffect1, Text:="Test", _
    FontName:="Arial Black", FontSize:=36, _
    FontBold:=False, FontItalic:=False, Left:=100, Top:=100)
newWordArt.TextEffect.ToggleVerticalText
TransferChildren方法
将一个图示节点的子节点移动到另一个图示节点。
expression.TransferChildren(ReceivingNode)
expression  必选。该表达式返回“应用于”列表中的对象之一。
ReceivingNode  必选。DiagramNode对象。目标（接收的）图示节点。
VBA示例
以下示例将新建图示中第一个节点的子节点传送到第三个节点。
Sub TransferChildNodes()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    'Adds org chart and root node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    'Adds three child nodes to root node
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
    'Adds three child nodes to first child node
    For intNodes = 1 To 3
        dgnNode.Children.Item(1).Children.AddNode
    Next intNodes
    ' Transfers children of the first node to the third node
    dgnNode.Children.Item(1).TransferChildren _
        ReceivingNode:=dgnNode.Children.Item(3)
End Sub

weiyingde

TrimText方法
返回一个 TextRange对象，该对象代表除去结尾空格的指定文本。
expression.TrimText
expression  必选。该表达式返回一个 TextRange对象。
VBA示例
本示例在当前演示文稿中第一张幻灯片的第二个形状的文本的开始处插入字符串“ Text to trim  ”，然后显示消息框，该消息框中显示整理前和整理后的字符串。
With Application.ActivePresentation.Slides(1).Shapes(2) _
        .TextFrame.TextRange
    With .InsertBefore("   Text to trim   ")
        MsgBox "Untrimmed: " & """" & .Text & """"
        MsgBox "Trimmed: " & """" & .TrimText.Text & """"
    End With
End With
TwoColorGradient方法
设置指定填充为双色过渡。
expression.TwoColorGradient(Style, Variant)
expression  必选。该表达式返回“应用于”列表中的对象之一。
Style  必选。MsoGradientStyle 类型。过渡样式。
MsoGradientStyle 可以是下列 MsoGradientStyle 类型常数之一。
msoGradientDiagonalDown
msoGradientDiagonalUp
msoGradientFromCenter
msoGradientFromCorner
msoGradientFromTitle
msoGradientHorizontal
msoGradientMixed
msoGradientVertical
Variant  必选。Long 类型。过渡变量。可为 1 到 4 之间的值，对应于“填充效果”对话框中“过渡”选项卡上的四个变量。如果 Style 为 msoGradientFromTitle 或 msoGradientFromCenter，则参数可为 1 或 2。
VBA示例
本示例向myDocument 中添加一个具有双色过渡填充效果的矩形，并设置填充的前景色和背景色。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, Left:=0, _
        Top:=0, Width:=40, Height:=80).Fill
    .ForeColor.RGB = RGB(Red:=128, Green:=0, Blue:=0)
    .BackColor.RGB = RGB(Red:=0, Green:=170, Blue:=170)
    .TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
End With

weiyingde

Ungroup方法
取消对指定形状或形状范围内所有组合形状的组合。分解指定形状或形状范围内的图片和 OLE对象。将取消组合的形状作为单个ShapeRange对象返回。
expression.Ungroup
expression  必选。该表达式返回一个 ShapeRange对象。
说明
由于将一组形状当作单个对象，所以对形状组合和取消组合将改变 Shapes集合中的项目数，并且将改变部分项目的索引编号，这些项目位于集合中受影响的项目之后。
VBA示例
本示例取消对myDocument 中任何组合形状的组合，而且分解myDocument 中任何图片或 OLE对象。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    s.Ungroup
Next
本示例取消对myDocument 中任何组合形状的组合，但是并不分解幻灯片中的图片或 OLE对象。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    If s.Type = msoGroup Then s.Ungroup
Next
Unselect方法
取消对当前内容的选定。
expression.Unselect
expression  必选。该表达式返回一个 Selection对象。
VBA示例
本示例取消对第一个窗口中当前内容的选定。
Windows(1).Selection.Unselect
Update方法
更新指定的链接 OLE对象。要一次更新演示文稿中的所有链接，可使用UpdateLinks方法。
expression.Update
expression  必选。该表达式返回一个 LinkFormat对象。
VBA示例
本示例更新当前演示文稿中所有链接的 OLE对象。
For Each sld In ActivePresentation.Slides
    For Each sh In sld.Shapes
        If sh.Type = msoLinkedOLEObject Then
            sh.LinkFormat.Update
        End If
    Next
Next
UpdateLinks方法
更新指定演示文稿中链接的 OLE对象。
expression.UpdateLinks
expression  必选。该表达式返回一个 Presentation对象。
VBA示例
本示例更新当前演示文稿中的所有 OLE 链接。
ActivePresentation.UpdateLinks

weiyingde

UseDefaultFolderSuffix方法
将指定演示文稿的文件夹后缀设置为默认的后缀，以实现用户所选定或安装的语言支持。
expression.UseDefaultFolderSuffix
expression  返回 WebOptions对象的表达式。
说明
当用户将整个或部分演示文稿作为 Web 页保存或发布，或者使用长文件名以及选择在其他文件夹中保存支持文件时（也就是说，当UseLongFileNames 和OrganizeInFolder属性为 True 时），Microsoft PowerPoint 将使用文件夹后缀。
后缀出现在演示文稿名称后的文件夹名称中。例如，如果演示文稿名为“Pres1”且语言设置为英语，则文件夹名称就是“Pres1_files”。各种语言的文件夹后缀列在FolderSuffix属性主题中。
VBA示例
本示例将当前演示文稿的文件夹后缀设置为默认的后缀。
ActivePresentation.WebOptions.UseDefaultFolderSuffix
UserPicture方法
用较大的图像填充指定的形状。如果要用平铺的小图像来填充形状，可使用UserTextured方法。
expression.UserPicture(PictureFile)
expression  必选。该表达式返回一个 FillFormat对象。
PictureFile  必选。String 类型。图片文件的名称。
VBA示例
本示例向myDocument 中添加两个矩形。用 Tiles.bmp 文件中的一幅大图像填充左边的矩形；用 Tiles.bmp 文件中若干平铺的小图像填充右边的矩形
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    .AddShape(msoShapeRectangle, 0, 0, 200, 100).Fill _
        .UserPicture "c:\windows\tiles.bmp"
    .AddShape(msoShapeRectangle, 300, 0, 200, 100).Fill _
        .UserTextured "c:\windows\tiles.bmp"
End With

weiyingde

UserTextured方法
用平铺的小图像填充指定形状。如果要用一个大图像来填充该形状，请使用 UserPicture方法。
expression.UserTextured(TextureFile)
expression  必选。该表达式返回一个 FillFormat对象。
TextureFile  必选。String 类型。图片文件的名称。
VBA示例
本示例向myDocument 中添加了两个矩形。用 Tiles.bmp 文件中的一幅大图像填充左边的矩形；用 Tiles.bmp 文件中若干平铺的小图像填充右边的矩形
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    .AddShape(msoShapeRectangle, 0, 0, 200, 100).Fill _
        .UserPicture "c:\windows\tiles.bmp"
    .AddShape(msoShapeRectangle, 300, 0, 200, 100).Fill _
        .UserTextured "c:\windows\tiles.bmp"
End With
Value方法
以 String 类型返回一个指定标记的值。
expression.Value(Index)
expression  必选。该表达式返回一个 Tags集合。
Index  必选。Long 类型。标记编号。
VBA示例
本示例显示与当前演示文稿的第一张幻灯片关联的每个标记的名称和值。
With Application.ActivePresentation.Slides(1).Tags
    For i = 1 To .Count
        MsgBox "Tag #" & i & ": Name = " & .Name(i)
        MsgBox "Tag #" & i & ": Value = " & .Value(i)
    Next
End With
本示例搜索当前演示文稿中每张幻灯片的标记，如果存在名为“PRIORITY”的标记，将出现消息框显示该标记的值；如果不存在，则添加该标记，并设定标记值为“Unknown”。
For Each s In Application.ActivePresentation.Slides
    With s.Tags
        found = False
        For i = 1 To .Count
            If .Name(i) = "PRIORITY" Then
                found = True
                slNum = .Parent.SlideIndex
                MsgBox "Slide " & slNum & " priority: " & .Value(i)
            End If
        Next
        If Not found Then
            slNum = .Parent.SlideIndex
            .Add "Name", "New Figures"
            .Add "Priority", "Unknown"
            MsgBox "Slide " & slNum & _
               " priority tag added: Unknown"
        End If
    End With
Next

weiyingde

WebPagePreview方法
在当前 Web 浏览器中预览演示文稿。
expression.WebPagePreview
expression  必选。该表达式返回一个 Presentation对象。
VBA示例
本示例将第二篇演示文稿作为 Web 页进行预览。
Presentations(2).WebPagePreview
Words方法
返回一个代表指定文本单词子集的 TextRange对象。有关计算或浏览文本范围的单词的详细信息，请参阅TextRange对象。
expression.Words(Start, Length)
expression  必选。该表达式返回一个 TextRange对象。
Start  可选。Long 类型。返回的文本范围内的第一个单词。
Length  可选。Long 类型。要返回的字数。
说明
如果省略 Start参数和 Length参数，返回的内容为指定文本范围的第一个单词到最后一段。
如果指定 Start 而忽略 Length，返回的内容包含一个单词。
如果指定 Length 而忽略 Start，返回的内容从指定文本域的第一个单词开始。
如果 Start参数大于指定文本中的字数，返回的内容从指定文本范围的最后一个单词开始。
如果 Length参数大于从指定的起始单词到文本末尾的字数，返回的内容包括所有这些单词。
VBA示例
本示例将当前演示文稿第一张幻灯片第二个形状中第一段的第二、三、四个单词设为加粗。
Application.ActivePresentation.Slides(1).Shapes(2) _
    .TextFrame.TextRange.Paragraphs(1).Words(2, 3).Font _
    .Bold = True

weiyingde

ZOrder方法
将集合中指定的形状移动到其他形状前面或后面（也就是说，改变形状在 Z 顺序中的位置）。
expression.ZOrder(ZOrderCmd)
expression  必选。该表达式返回一个 Shape对象。
ZOrderCmd  必选。MsoZOrderCmd 类型。指定所指定形状相对于其他形状移动的位置。
MsoZOrderCmd 可以是下列 MsoZOrderCmd 类型常数之一。
msoBringForward
msoBringInFrontOfText 仅用于 Microsoft Word。
msoBringToFront
msoSendBackward
msoSendBehindText 仅用于 Microsoft Word。
msoSendToBack
说明
使用ZOrderPosition属性判断一个形状在 Z 顺序中的当前位置。
VBA示例
本示例向myDocument 中添加椭圆，如果幻灯片中有至少一个其他形状，则将该椭圆放置在 Z 顺序中倒数第二的位置上。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(msoShapeOval, 100, 100, 100, 300)
    While .ZOrderPosition > 2
        .ZOrder msoSendBackward
    Wend
End With
对象
ActionSetting对象
多个对象
ActionSettings (ActionSetting)
Hyperlink
SoundEffect
包含指定形状或文本范围在幻灯片放映中对鼠标动作的反应的信息。ActionSetting对象是ActionSettings集合的成员。ActionSettings集合包含一个 ActionSetting对象（该对象代表幻灯片放映中用户单击指定对象时的反应）和一个 ActionSetting对象（该对象代表幻灯片放映中用户将鼠标移过指定对象时的反应）。
使用 ActionSetting对象
使用 ActionSettings(index) 返回单个 ActionSetting对象，其中 index 是 ppMouseClick 或 ppMouseOver。以下示例设定单击当前演示文稿第一张幻灯片第三个形状中的文本时，连接到 Internet 上。
With ActivePresentation.Slides(1).Shapes(3) _
        .TextFrame.TextRange.ActionSettings(ppMouseClick)
    .Action = ppActionHyperlink
    .Hyperlink.Address = "http://www.microsoft.com"
End With
说明
如果设置了 ActionSetting对象的属性但没有效果，请确认将Action属性设为相应的值。