ppt学习资料

weiyingde

SlideOrientation属性
返回或设置指定演示文稿中幻灯片的屏幕和打印方向。可读写。MsoOrientation 类型。
MsoOrientation 可以是下列 MsoOrientation 类型常数之一。
msoOrientationHorizontal
msoOrientationMixed
msoOrientationVertical
expression.SlideOrientation
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将当前演示文稿所有幻灯片的方向设为垂直（纵向）。
Application.ActivePresentation.PageSetup.SlideOrientation = _
    msoOrientationVertical
SlideRange属性
返回一个SlideRange对象，该对象代表选定的幻灯片范围。只读。
说明
可以在幻灯片视图、幻灯片浏览视图、普通视图、备注页视图以及大纲视图中构造幻灯片范围。在幻灯片视图中，SlideRange 返回当前显示的幻灯片。
VBA示例
本示例设置第一个窗口中所有选定幻灯片的背景方案颜色。
Windows(1).Selection.SlideRange.ColorScheme _
    .Colors(ppBackground).RGB = RGB(0, 0, 255)
Slides属性
返回一个代表指定演示文稿中所有幻灯片的Slides集合。只读。
VBA示例
本示例向当前演示文稿添加一张幻灯片。
Application.ActivePresentation.Slides.Add 1, ppLayoutTitle

weiyingde

SlideShowName属性
应用于 ActionSetting、PrintOptions、PublishObject 和 SlideShowSettings对象的 SlideShowName属性。
返回或设置自定义幻灯片放映的名称以便运行该放映，从而响应幻灯片放映（ActionSetting对象）期间在形状上的鼠标动作；返回或设置自定义幻灯片放映的名称以便打印（PrintOptions对象）；返回或设置发布为 Web 演示文稿（PublishObject对象）的自定义幻灯片放映的名称。可读写。String 类型。
expression.SlideShowName
expression  必选。该表达式返回上述对象之一。
说明
必须将RangeType属性设为 ppPrintNamedSlideShow 以打印自定义幻灯片放映。
应用于 SlideShowView对象的 SlideShowName属性。
返回当前在指定幻灯片放映视图中运行的自定义幻灯片放映的名称。只读。String 类型。
expression.SlideShowName
expression  必选。该表达式返回上述对象之一。
VBA示例
应用于 ActionSetting、PrintOptions、PublishObject 和 SlideShowSettings对象。
本示例打印名为“tech talk”的现有自定义幻灯片放映。
With ActivePresentation.PrintOptions
    .RangeType = ppPrintNamedSlideShow
    .SlideShowName = "tech talk"
End With
ActivePresentation.PrintOut
下例将当前演示文稿保存为 HTML 4.0 文件格式，文件名为“mallard.htm”。然后显示一条消息，说明正将当前名称的演示文稿保存为 PowerPoint 和 HTML 两种格式。
With Pres.PublishObjects(1)
    PresName = .SlideShowName
    .SourceType = ppPublishAll
    .FileName = "C:\HTMLPres\mallard.htm"
    .HTMLVersion = ppHTMLVersion4
    MsgBox ("Saving presentation " & "'" _
        & PresName & "'" & " in PowerPoint" _
        & Chr(10) & Chr(13) _
        & " format and HTML version 4.0 format")
    .Publish
End With
应用于 SlideShowView对象。
如果第一个幻灯片放映窗口中正在运行自定义幻灯片放映，本示例显示其名称。
With SlideShowWindows(1).View
    If .IsNamedShow Then
        MsgBox "Now showing in slide show window 1: " _
            & .SlideShowName
    End If
End With

weiyingde

SlideShowSettings属性
返回一个SlideShowSettings对象，该对象代表指定演示文稿的幻灯片放映设置。只读。
VBA示例
本示例启动一个预设使用扬声器的幻灯片放映。运行该幻灯片放映时关闭动画和旁白。
With Application.ActivePresentation.SlideShowSettings
    .ShowType = ppShowTypeSpeaker
    .ShowWithNarration = False
    .ShowWithAnimation = False
    .Run
End With
SlideShowTransition属性
返回一个SlideShowTransition对象，该对象代表指定幻灯片切换的特殊效果。只读。
VBA示例
本示例设置在幻灯片放映过程中，当前演示文稿的第二张幻灯片在 5 秒后自动换片，并在幻灯片切换时播放犬吠声。
With ActivePresentation.Slides(2).SlideShowTransition
    .AdvanceOnTime = True
    .AdvanceTime = 5
    .SoundEffect.ImportFromFile "c:\windows\media\dogbark.wav"
End With
ActivePresentation.SlideShowSettings.AdvanceMode = _
    ppSlideShowUseSlideTimings
SlideShowWindow属性
返回一个SlideShowWindow对象，该对象代表正在运行的指定演示文稿所在的幻灯片放映窗口。只读。
说明
可以将本属性与关键字 Me 和属性 Parent 连接以返回产生了 ActiveX 控件事件的幻灯片放映窗口，如例所示。
VBA示例
下例显示“cmdBack”和“cmdForward”按钮的“Click”事件过程。如果将这些按钮添加到幻灯片母版将事件过程添加到这些按钮，基于此母版的所有幻灯片（设置为显示母版背景图形）将具有这些导航按钮（在幻灯片放映过程中可用）。Me 关键字返回代表此包含控件的幻灯片母版的 Master对象。如果控件位于单独的幻灯片上，此控件的事件过程中的 Me 关键字将返回一个 Slide对象。
Private Sub cmdBack_Click()
    Me.Parent.SlideShowWindow.View.Previous
End Sub
Private Sub cmdForward_Click()
    Me.Parent.SlideShowWindow.View.Next
End Sub

weiyingde

SlideShowWindows属性
返回一个SlideShowWindows集合，该集合代表所有打开的幻灯片放映窗口。只读。
有关返回集合中单个成员的详细信息，请参阅返回集合中的对象。
VBA示例
本示例在一个窗口中运行幻灯片放映，并设置该幻灯片放映窗口的高度和宽度。
With Application
    .Presentations(1).SlideShowSettings.Run
    With .SlideShowWindows(1)
        .Height = 250
        .Width = 250
    End With
End With
SlideSize属性
返回或设置指定演示文稿的幻灯片大小。可读写。PpSlideSizeType 类型。
PpSlideSizeType 可以是下列 PpSlideSizeType 类型常数之一。
ppSlideSize35MM
ppSlideSizeA3Paper
ppSlideSizeA4Paper
ppSlideSizeB4ISOPaper
ppSlideSizeB4JISPaper
ppSlideSizeB5ISOPaper
ppSlideSizeB5JISPaper
ppSlideSizeBanner
ppSlideSizeCustom
ppSlideSizeHagakiCard
ppSlideSizeLedgerPaper
ppSlideSizeLetterPaper
ppSlideSizeOnScreen
ppSlideSizeOverhead
expression.SlideSize
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将当前演示文稿的幻灯片设为投影机幻灯片大小。
Application.ActivePresentation.PageSetup _
    .SlideSize = ppSlideSizeOverhead
SlideWidth属性
以磅为单位返回或设置幻灯片的宽度。可读写。Single 类型。
VBA示例
本示例将当前演示文稿幻灯片的高度设为 8.5 英寸，宽度设为 11 英寸。
With Application.ActivePresentation.PageSetup
    .SlideWidth = 11 * 72
    .SlideHeight = 8.5 * 72
End With

weiyingde

Smooth属性
设置或返回MsoTriState 类型值，该值代表从一个动画点到另一个动画点的切换是否是平稳。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 动画点不应该是平稳的。
msoTriStateMixed
msoTriStateToggle
msoTrue 默认值。动画应该是平稳的。
expression.Smooth
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例更改动画点的平稳性。
Sub ChangeSmooth(ByVal ani As AnimationBehavior, ByVal bln As MsoTriState)
    ani.PropertyEffect.Points.Smooth = bln
End Sub

SmoothEnd属性
设置或返回MsoTriState 类型常数，该常数代表动画结束时是否应该减速。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。动画结束时不减速。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 动画结束时减速。
expression.SmoothEnd
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例向幻灯片添加一个形状并使该形状具有动画效果，然后指示该形状在动画结束时减速。
Sub AddShapeSetTiming()
    Dim effDiamond As Effect
    Dim shpRectangle As Shape
    'Adds shape and sets animation effect
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effDiamond = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectPathDiamond)
    'Sets duration of effect and slows animation at end
    With effDiamond.Timing
        .Duration = 5
        .SmoothEnd = msoTrue
    End With
End Sub

weiyingde

SmoothStart属性
设置或返回MsoTriState 类型常数，该常数代表动画启动时是否应该加速。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。动画启动时不加速。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 动画启动时加速。
expression.SmoothStart
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例向幻灯片添加一个形状并使该形状具有动画效果，然后指示该形状在动画启动时加速。
Sub AddShapeSetTiming()
    Dim effDiamond As Effect
    Dim shpRectangle As Shape
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effDiamond = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectPathDiamond)
    With effDiamond.Timing
        .Duration = 5
        .SmoothStart = msoTrue
    End With
End Sub
SnapToGrid属性
属性值为 MsoTrue 时，在指定的演示文稿中将形状与网格线对齐。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue
expression.SnapToGrid
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例在当前演示文稿中切换形状相对于网格线的对齐。
Sub ToggleSnapToGrid()
    With ActivePresentation
        If .SnapToGrid = msoTrue Then
            .SnapToGrid = msoFalse
        Else
            .SnapToGrid = msoTrue
        End If
    End With
End Sub

weiyingde

SoundEffect属性
ActionSetting对象：返回SoundEffect对象，该对象代表单击指定形状或鼠标移过该形状时播放的声音。如果运行幻灯片放映时无法听到为该形状设置的声音，请确保将TextLevelEffect属性设为非 ppAnimateLevelNone 的值，并且将Animate属性设置为 True。
AnimationSettings 和EffectInformation对象：返回 SoundEffect对象，该对象代表指定形状的动画中播放的声音。
SlideShowTransition对象：返回一个 SoundEffect对象，该对象代表转换到指定幻灯片时播放的声音。
expression.SoundEffect
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例设置在当前演示文稿第一张幻灯片第一个形状演示动画时播放文件 Bass.wav。
With ActivePresentation.Slides(1).Shapes(1).AnimationSettings
    .Animate = True
    .TextLevelEffect = ppAnimateByAllLevels
    .SoundEffect.ImportFromFile "c:\bass.wav"
End With
SourceFullName属性
返回或设置链接 OLE对象的源文件的名称或路径。可读写。String 类型。
VBA示例
本示例将当前演示文稿第一张幻灯片第一个形状的源文件设为 Wordtest.doc，并指定该对象的图像自动更新。
With ActivePresentation.Slides(1).Shapes(1)
    If .Type = msoLinkedOLEObject Then
        With .LinkFormat
            .SourceFullName = "c:\my documents\wordtest.doc"
            .AutoUpdate = ppUpdateOptionAutomatic
        End With
    End If
End With

weiyingde

SourceType属性
返回或设置要发布为 HTML 格式的演示文稿的源类型。可读写。PpPublishSourceType 类型。
PpPublishSourceType 可以是下列 PpPublishSourceType 类型常数之一。
ppPublishAll
ppPublishNamedSlideShow 使用此值发布自定义幻灯片放映，用SlideShowName属性指定该自定义幻灯片放映的名称。

ppPublishSlideRange
expression.SourceType
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将当前演示文稿中指定的幻灯片范围（第三张幻灯片到第五张幻灯片）以 HTML 格式发布，并将发布的演示文稿命名为“Mallard.htm”。
With ActivePresentation.PublishObjects(1)
    .FileName = "C:\Test\Mallard.htm"
    .SourceType = ppPublishSlideRange
    .RangeStart = 3
    .RangeEnd = 5
    .Publish
End With
SpaceAfter属性
以磅或行为单位返回或设置指定文本中每段末行后的间距大小。可读写。Single 类型。
VBA示例
本示例将当前演示文稿第一张幻灯片第二个形状中文本的段落后的间距设为 6 磅。
With Application.ActivePresentation.Slides(1).Shapes(2)
    With .TextFrame.TextRange.ParagraphFormat
        .LineRuleAfter = False
        .SpaceAfter = 6
    End With
End With
SpaceBefore属性
以磅或行为单位返回或设置指定文本中每段首行前的间距大小。可读写。Single 类型。
VBA示例
本示例将当前演示文稿第一张幻灯片第二个形状中文本的段落前的间距设为 6 磅。
With Application.ActivePresentation.Slides(1).Shapes(2)
    With .TextFrame.TextRange.ParagraphFormat
        .LineRuleBefore = False
        .SpaceBefore = 6
    End With
End With

weiyingde

SpaceWithin属性
以磅或行为单位返回或设置指定文本中基准行之间的距离。可读写。Single 类型。
VBA示例
本示例将当前演示文稿第二张幻灯片第二个形状中的文本的行间距设为 21 磅。
With Application.ActivePresentation.Slides(2).Shapes(2)
    With .TextFrame.TextRange.ParagraphFormat
        .LineRuleWithin = False
        .SpaceWithin = 21
    End With
End With
SpeakerNotes属性
决定是否要将演讲者备注随演示文稿一起发布。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 演讲者备注不随演示文稿一起发布。
VBA示例
本示例将当前演示文稿的第三张幻灯片到第五张幻灯片以 HTML 格式发布。发布的演示文稿中包含相关的演讲者备注，并将其命名为“Mallard.htm”。
With ActivePresentation.PublishObjects(1)
    .FileName = "C:\Test\Mallard.htm"
    .SourceType = ppPublishSlideRange
    .RangeStart = 3
    .RangeEnd = 5
    .SpeakerNotes = msoTrue
    .Publish
End With

weiyingde

Speed属性
应用于 SlideShowTransition对象的 Speed属性。
返回或设置PpTransitionSpeed 类型常数，该常数代表切换到指定幻灯片的速度。可读写。
PpTransitionSpeed 可以是下列 PpTransitionSpeed 类型常数之一。
ppTransitionSpeedFast
ppTransitionSpeedMedium
ppTransitionSpeedMixed
ppTransitionSpeedSlow
expression.Speed
expression  必选。该表达式返回一个SlideShowTransition对象。
应用于 Timing对象的 Speed属性。
返回或设置 Single 类型值，该值代表指定动画的速度（以秒为单位）。可读写。
expression.Speed
expression  必选。该表达式返回一个Timing对象。
VBA示例
应用于 SlideShowTransition对象。
本示例设置切换到当前演示文稿第一张幻灯片的特殊效果，并指定切换为快速。
With ActivePresentation.Slides(1).SlideShowTransition
    .EntryEffect = ppEffectStripsDownLeft
    .Speed = ppTransitionSpeedFast
End With
应用于 Timing对象。
本示例将主序列动画设置为正向播放后再反向播放，并且将速度设置为一秒。
Sub AnimPoints()
    Dim tmlAnim As TimeLine
    Dim spdAnim As Timing
    Set tmlAnim = ActivePresentation.Slides(1).TimeLine
    Set spdAnim = tlnAnim.MainSequence(1).Timing
    With spdAnim
        .AutoReverse = msoTrue
        .Speed = 1
    End With
End Sub
SplitHorizontal属性
返回或设置普通视图中大纲窗格所占文档窗口宽度的百分比。它反映了幻灯片窗格和大纲窗格之间窗格分隔符的位置。可读写。Long 类型。
说明
SplitHorizontal属性的最大值总是小于 100%，这是因为幻灯片窗格应具有一个最小宽度，以保证 10% 的缩放。而实际的最大值则可能会随应用程序窗口的大小不同而变化。
VBA示例
以下示例对当前文档窗口的纵向窗格分隔符进行设置，以使大纲窗格占 15% 而幻灯片窗格占 85% 的区域。
ActiveWindow.SplitHorizontal = 15