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
将指定填充设为统一的颜色。使用此方法可将过渡、纹理、图案或背景填充转换为统一的颜色。
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
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
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
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
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:windowstiles.bmp"
.AddShape(msoShapeRectangle, 300, 0, 200, 100).Fill _
.UserTextured "c:windowstiles.bmp"
End With
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:windowstiles.bmp"
.AddShape(msoShapeRectangle, 300, 0, 200, 100).Fill _
.UserTextured "c:windowstiles.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
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
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属性设为相应的值。
StartValue属性
当 BulletFormat对象的Type属性设置为 ppBulletNumbered 时，返回或设置项目符号列表的开始值。该值的范围是 1 到 32767。可读写。Integer 类型。
VBA示例
本示例将第一张幻灯片第二个形状指定的文本框中的项目符号起始值设置为 5。
With ActivePresentation.Slides(1).Shapes(2).TextFrame
With .TextRange.ParagraphFormat.Bullet
.Type = ppBulletNumbered
.StartValue = 5
End With
End With
State属性
返回或设置幻灯片放映的状态。可读写。PpSlideShowState 类型。
PpSlideShowState 可以是下列 PpSlideShowState 类型常数之一。
ppSlideShowBlackScreen
ppSlideShowDone
ppSlideShowPaused
ppSlideShowRunning
ppSlideShowWhiteScreen
expression.State
expression必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将第一张幻灯片放映窗口的视图状态设为黑屏。
SlideShowWindows(1).View.State = ppSlideShowBlackScreen
StopAfterSlides属性
返回或设置在媒体剪辑播放完毕前要放映的幻灯片数。可读写。Long 类型。
说明
要使 StopAfterSlides属性设置起作用，指定幻灯片的PauseAnimation属性必须设为 False，并且PlayOnEntry属性必须设为 True。
当显示指定的幻灯片数或播放完剪辑（无论哪种情况先发生）时，都将停止播放该多媒体剪辑。0（零）值指定了放映完当前幻灯片后停止播放剪辑。
VBA示例
本例指定自动播放当前演示文稿第一张幻灯片第三个形状代表的动态多媒体剪辑，并在后台播放该多媒体剪辑的同时继续放映幻灯片，而且当放映完三张幻灯片或该剪辑播放结束（无论哪种情况先发生）时，将停止播放该多媒体剪辑。第三个形状必须是声音或影片对象。
Set OLEobj = ActivePresentation.Slides(1).Shapes(3)
With OLEobj.AnimationSettings.PlaySettings
.PlayOnEntry = True
.PauseAnimation = False
.StopAfterSlides = 3
End With