ppt学习资料

weiyingde

OffsetY属性
以磅为单位返回或设置指定形状阴影的垂直偏移。正偏移值将阴影向下偏移，负偏移值将阴影向上偏移。可读写。Single 类型。
说明
使用IncrementOffsetX方法或IncrementOffsetY方法可将阴影从当前位置水平或垂直轻微移动而无须指定其绝对位置。
VBA示例
本示例在myDocument 中为第三个形状的阴影设置水平和垂直偏移。阴影向形状的右边偏移 5 磅其上边偏移 3 磅。如果形状原来无阴影，下面的程序可以为其添加。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Shadow
    .Visible = True
    .OffsetX = 5
    .OffsetY = -3
End With
OLEFormat属性
返回一个包含指定形状的 OLE 格式属性的OLEFormat对象。应用于代表 OLE对象的 Shape 或 ShapeRange对象。只读。
VBA示例
本示例将活动演示文稿所有幻灯片中的形状循环一遍，并将所有已链接的 Microsoft Word 文档设置为手动修改格式。
For Each sld In ActivePresentation.Slides
    For Each sh In sld.Shapes
        If sh.Type = msoLinkedOLEObject Then
            If sh.OLEFormat.ProgID = "Word.Document" Then
                sh.LinkFormat.AutoUpdate = ppUpdateOptionManual
            End If
        End If
    Next
Next
OperatingSystem属性
返回操作系统名称。只读。String 类型。
VBA示例
本示例检测 OperatingSystem属性的值以确定 PowerPoint 是否运行在 32 位版本的 Microsoft Windows 中。
os = Application.OperatingSystem
If InStr(os, "Windows (32-bit)") <> 0 Then
    MsgBox "Running a 32-bit version of Microsoft Windows"
End If
Options属性
返回Options对象，该对象代表 Microsoft PowerPoint 中的应用程序选项。
expression.Options
expression  必选。该表达式返回一个Application对象。
VBA示例
使用 Options属性返回 Options对象。以下示例设置 PowerPoint 的三个应用程序选项。
Sub TogglePasteOptionsButton()
    With Application.Options
        If .DisplayPasteOptions = False Then
            .DisplayPasteOptions = True
        End If
    End With
End Sub

weiyingde

OrganizeInFolder属性
决定把指定演示文稿作为 Web 页保存或发行时是否将所有的支持文件（例如，背景纹理和图形）组织在一个独立的文件夹中。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 支持文件作为 Web 页保存在同一文件夹中。
msoTriStateMixed
msoTriStateToggle
msoTrue 默认值。把指定演示文稿作为 Web 页保存或发行时将所有的支持文件（例如，背景纹理和图形）组织在一个独立的文件夹中。
说明
新建文件夹位于保存该 Web 页的文件夹中，且根据演示文稿对其进行命名。如果UseLongFileNames属性设置为 True，则会为文件夹名称添加后缀。
对于上次保存时 OrganizeInFolder属性设置为其他值的演示文稿，Microsoft PowerPoint 会自动将支持文件移入或移出适当的文件夹。
如果未使用长文件名（即，UseLongFileNames属性设置为 False），则 PowerPoint 会自动将任何支持文件保存在独立文件夹中。这些文件不能与 Web 页保存在相同的文件夹中。
VBA示例
本示例的功能：当以 Web 页保存第二篇演示文稿时，将所有支持文件保存在同一个文件夹中。
Presentations(2).WebOptions.OrganizeInFolder = msoFalse
Orientation属性
返回或设置文本方向。可读写。MsoTextOrientation 类型。依据所选择或安装的语言支持系统（例如，U.S. English），这些常数中的某些常数是不可用的。
MsoTextOrientation 可以是下列 MsoTextOrientation 类型常数之一。
msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast
expression.Orientation
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例在myDocument 上将第三个形状中的文本定为水平方向。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(3).TextFrame _
    .Orientation = msoTextOrientationHorizontal

weiyingde

OutputType属性
返回或设置一个值，该值指定演示文稿中哪些组件要打印（幻灯片、讲义、备注页或大纲）。可读写。PpPrintOutputType 类型。
PpPrintOutputType 可以是下列 PpPrintOutputType 类型常数之一。
ppPrintOutputBuildSlides
ppPrintOutputFourSlideHandouts
ppPrintOutputNineSlideHandouts
ppPrintOutputNotesPages
ppPrintOutputOneSlideHandouts
ppPrintOutputOutline
ppPrintOutputSixSlideHandouts
ppPrintOutputSlides
ppPrintOutputThreeSlideHandouts
ppPrintOutputTwoSlideHandouts
expression.OutputType
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例打印当前演示文稿的讲义，每页打印六张幻灯片。
With ActivePresentation
    .PrintOptions.OutputType = ppPrintOutputSixSlideHandouts
    .PrintOut
End With
PageSetup属性
返回一个PageSetup对象，该对象的属性控制指定演示文稿的幻灯片的页面设置属性。只读。
VBA示例
本示例为演示文稿“Pres1”设置幻灯片的大小和方向。
With Presentations("pres1").PageSetup
    .SlideSize = ppSlideSize35MM
    .SlideOrientation = msoOrientationHorizontal
End With
Panes属性
返回Panes集合，它代表文档窗口中的窗格。只读。
VBA示例
本示例检测活动窗口中窗格的数目。如果其值为 1，则表明是非普通视图的任意其他视图，然后本示例将激活普通视图。
If ActiveWindow.Panes.Count = 1 Then
    ActiveWindow.ViewType = ppViewNormal
End If

weiyingde

Paragraph属性
返回或设置表示文本范围内应用动画效果的段落的 Long 类型值。可读写。
expression.Paragraph
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例添加带有文本的形状，并动画显示形状中的第二和第四段。
Sub AnimateParagraphTwo()
    Dim shpStar As Shape
    Dim effOne As Effect
    Dim effTwo As Effect
    Dim intCount As Integer
    With ActivePresentation.Slides(1)
        Set shpStar = .Shapes.AddShape(Type:=msoShape5pointStar, _
            Left:=150, Top:=72, Width:=400, Height:=400)
        Set effOne = .TimeLine.MainSequence _
            .AddEffect(Shape:=shpStar, _
            EffectId:=msoAnimEffectStretchy, _
            Trigger:=msoAnimTriggerAfterPrevious)
        Set effTwo = .TimeLine.MainSequence _
            .AddEffect(Shape:=shpStar, _
            EffectId:=msoAnimEffectSpinner, _
            Trigger:=msoAnimTriggerAfterPrevious)
    End With
    For intCount = 1 To 5
        shpStar.TextFrame.TextRange _
            .InsertAfter "This is a test." & vbCrLf
    Next intCount
    effOne.Paragraph = 2
    effTwo.Paragraph = 4
End Sub
ParagraphFormat属性
返回一个ParagraphFormat对象，该对象代表指定文本的段落格式的。只读。
VBA示例
本示例设置当前演示文稿第二张幻灯片中第二个形状的每段的段前、段内和段后的行间距。
With Application.ActivePresentation.Slides(2).Shapes(2)
    With .TextFrame.TextRange.ParagraphFormat
        .LineRuleWithin = msoTrue
        .SpaceWithin = 1.4
        .LineRuleBefore = msoTrue
        .SpaceBefore = 0.25
        .LineRuleAfter = msoTrue
        .SpaceAfter = 0.75
    End With
End With

weiyingde

Parent属性
返回指定对象的父对象。
expression.Parent
expression 必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例在当前演示文稿的第一张幻灯片中添加一个包含文本的椭圆并将该椭圆及文本旋转 45 度。文本框的父对象就是包含文本的 Shape对象。
Set myShapes = ActivePresentation.Slides(1).Shapes
With myShapes.AddShape(Type:=msoShapeOval, Left:=50, _
        Top:=50, Width:=300, Height:=150).TextFrame
    .TextRange.Text = "Test text"
    .Parent.Rotation = 45
End With
ParentGroup属性
返回 Shape对象，该对象代表子形状或子形状范围共同的父形状。
expression.ParentGroup
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例在当前演示文稿的第一张幻灯片中创建两个形状并且组合这两个形状；然后使用该组中的一个形状访问父组并用同一种填充颜色填充该父组中的所有形状。本示例假设当前演示文稿的第一张幻灯片中当前不包含任何形状。如果它包含形状，则会产生错误。
Sub ParentGroup()
    Dim sldNewSlide As Slide
    Dim shpParentGroup As Shape
    'Add two shapes to active document and group
    Set sldNewSlide = ActivePresentation.Slides _
        .Add(Index:=1, Layout:=ppLayoutBlank)
    With sldNewSlide.Shapes
        .AddShape Type:=msoShapeBalloon, Left:=72, _
            Top:=72, Width:=100, Height:=100
        .AddShape Type:=msoShapeOval, Left:=110, _
            Top:=120, Width:=100, Height:=100
        .Range(Array(1, 2)).Group
    End With
    Set shpParentGroup = ActivePresentation.Slides(1).Shapes(1) _
        .GroupItems(1).ParentGroup
    shpParentGroup.Fill.ForeColor.RGB = RGB _
        (Red:=151, Green:=51, Blue:=250)
End Sub

weiyingde

PasswordEncryptionFileProperties属性
如果 Microsoft PowerPoint对密码保护的文档的文件属性进行加密，则返回 MsoTrue属性值。只读。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue
expression.PasswordEncryptionFileProperties
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
使用SetPasswordEncryptionOptions方法以指定 PowerPoint 通过密码加密文档时使用的算法。
VBA示例
本示例中，如果使用密码保护的文档的文件属性没有加密，则设置密码加密选项。
Sub PasswordSettings()
    With ActivePresentation
        If .PasswordEncryptionFileProperties = msoFalse Then
            .SetPasswordEncryptionOptions _
                PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
                PasswordEncryptionAlgorithm:="RC4", _
                PasswordEncryptionKeyLength:=56, _
                PasswordEncryptionFileProperties:=True
        End If
    End With
End Sub
PasswordEncryptionKeyLength属性
返回 Long 类型值，该值表示 Microsoft PowerPoint 通过密码加密文档时所使用算法的密钥长度。只读。
expression.PasswordEncryptionKeyLength
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
使用SetPasswordEncryptionOptions方法以指定 PowerPoint 通过密码加密文档所使用的算法。
VBA示例
本示例中，如果密码加密密钥的长度小于 40，将设置密码加密选项。
Sub PasswordSettings()
    With ActivePresentation
        If .PasswordEncryptionKeyLength < 40 Then
            .SetPasswordEncryptionOptions _
                PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
                PasswordEncryptionAlgorithm:="RC4", _
                PasswordEncryptionKeyLength:=56, _
                PasswordEncryptionFileProperties:=True
        End If
    End With
End Sub

weiyingde

PasswordEncryptionProvider属性
返回 String 类型值，该值指定 Microsoft PowerPoint 通过密码加密文档时所使用加密算法的供应商名称。只读。
expression.PasswordEncryptionProvider
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
使用SetPasswordEncryptionOptions方法以指定 PowerPoint 通过密码加密文档所使用的算法。
VBA示例
本示例中，如果使用的密码加密算法不是 Microsoft RSA SChannel Cryptographic Provider，将设置密码加密选项。
Sub PasswordSettings()
    With ActivePresentation
        If .PasswordEncryptionProvider <> "Microsoft RSA SChannel Cryptographic Provider" Then
            .SetPasswordEncryptionOptions _
                PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
                PasswordEncryptionAlgorithm:="RC4", _
                PasswordEncryptionKeyLength:=56, _
                PasswordEncryptionFileProperties:=True
        End If
    End With
End Sub
Path属性
返回 String 类型值，该值代表到指定的AddIn、Application 或Presentation对象的路径，或MotionEffect对象沿行的路径。只读。
expression.Path
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
如果使用此属性返回一个尚未保存的演示文稿的路径，则会得到一个空字符串。如果使用此属性返回未加载的加载宏的路径，则会导致错误。
路径中不包括最后的反斜线 (\) 或指定对象的名称。使用 Presentation对象的Name属性可返回不带路径的文件名，使用FullName属性则可返回带路径的文件名。
MotionEffect对象返回的 String 类型值是一个特殊路径，它使用与 VML 路径说明相同的语法描述移动效果在 From 和 To 之间沿行的路径。
VBA示例
本示例将当前演示文稿保存到与 PowerPoint 相同的文件夹中。
With Application
    fName = .Path & "\test presentation"
    ActivePresentation.SaveAs fName
End With

weiyingde

Pattern属性
应用于 LineFormat对象的 Pattern属性。
设置或返回某值，该值代表应用于指定行的图案。可读写。MsoPatternType 类型。
MsoPatternType 可以是下列 MsoPatternType 类型常数之一。
msoPattern10Percent
msoPattern20Percent
msoPattern25Percent
msoPattern30Percent
msoPattern40Percent
msoPattern50Percent
msoPattern5Percent
msoPattern60Percent
msoPattern70Percent
msoPattern75Percent
msoPattern80Percent
msoPattern90Percent
msoPatternDarkDownwardDiagonal
msoPatternDarkHorizontal
msoPatternDarkUpwardDiagonal
msoPatternDashedDownwardDiagonal
msoPatternDashedHorizontal
msoPatternDashedUpwardDiagonal
msoPatternDashedVertical
msoPatternDiagonalBrick
msoPatternDivot
msoPatternDottedDiamond
msoPatternDottedGrid
msoPatternHorizontalBrick
msoPatternLargeCheckerBoard
msoPatternLargeConfetti
msoPatternLargeGrid
msoPatternLightDownwardDiagonal
msoPatternLightHorizontal
msoPatternLightUpwardDiagonal
msoPatternLightVertical
msoPatternMixed
msoPatternNarrowHorizontal
msoPatternNarrowVertical
msoPatternOutlinedDiamond
msoPatternPlaid
msoPatternShingle
msoPatternSmallCheckerBoard
msoPatternSmallConfetti
msoPatternSmallGrid
msoPatternSolidDiamond
msoPatternSphere
msoPatternTrellis
msoPatternWave
msoPatternWeave
msoPatternWideDownwardDiagonal
msoPatternWideUpwardDiagonal
msoPatternZigZag
msoPatternDarkVertical
xpression.Pattern
expression  必选。该表达式返回上述对象之一。
应用于 FillFormat对象的 Pattern属性。
设置或返回某值，该值代表应用于指定填充的图案。使用BackColor 和ForeColor属性设置在图案中使用的颜色。只读。MsoPatternType 类型
MsoPatternType 可以是下列 MsoPatternType 类型常数之一。
msoPattern10Percent
msoPattern20Percent
msoPattern25Percent
msoPattern30Percent
msoPattern40Percent
msoPattern50Percent
msoPattern5Percent
msoPattern60Percent
msoPattern70Percent
msoPattern75Percent
msoPattern80Percent
msoPattern90Percent
msoPatternDarkDownwardDiagonal
msoPatternDarkHorizontal
msoPatternDarkUpwardDiagonal
msoPatternDashedDownwardDiagonal
msoPatternDashedHorizontal
msoPatternDashedUpwardDiagonal
msoPatternDashedVertical
msoPatternDiagonalBrick
msoPatternDivot
msoPatternDottedDiamond
msoPatternDottedGrid
msoPatternHorizontalBrick
msoPatternLargeCheckerBoard
msoPatternLargeConfetti
msoPatternLargeGrid
msoPatternLightDownwardDiagonal
msoPatternLightHorizontal
msoPatternLightUpwardDiagonal
msoPatternLightVertical
msoPatternMixed
msoPatternNarrowHorizontal
msoPatternNarrowVertical
msoPatternOutlinedDiamond
msoPatternPlaid
msoPatternShingle
msoPatternSmallCheckerBoard
msoPatternSmallConfetti
msoPatternSmallGrid
msoPatternSolidDiamond
msoPatternSphere
msoPatternTrellis
msoPatternWave
msoPatternWeave
msoPatternWideDownwardDiagonal
msoPatternWideUpwardDiagonal
msoPatternZigZag
msoPatternDarkVertical
expression.Pattern
expression  必选。该表达式返回上述对象之一。
VBA示例
应用于 LineFormat对象。
本示例在myDocument 中添加具有图案的行。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(10, 100, 250, 0).Line
    .Weight = 6
    .ForeColor.RGB = RGB(0, 0, 255)
    .BackColor.RGB = RGB(128, 0, 0)
    .Pattern = msoPatternDarkDownwardDiagonal
End With
应用于 FillFormat对象。
本示例向myDocument 中添加矩形，并且设置矩形的填充图案以适应名为“rect1”的形状中的填充图案。新矩形使用和 rect1 相同的图案，但是颜色没有必要相同。通过 BackColor 和 ForeColor属性设置在该图案中使用的颜色。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    pattern1 = .Item("rect1").Fill.Pattern
    With .AddShape(msoShapeRectangle, 100, 100, 120, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .BackColor.RGB = RGB(0, 0, 255)
        .Patterned pattern1
    End With
End With

weiyingde

PauseAnimation属性
决定是否在播放完指定的媒体剪辑后再开始幻灯片放映。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 在背景中播放媒体剪辑时继续幻灯片放映。
msoTriStateMixed
msoTriStateToggle
msoTrue 在播放完指定的媒体剪辑后再开始幻灯片放映。
说明
要使 PauseAnimation属性设置生效，指定形状的PlayOnEntry属性必须设置为 msoTrue 类型。
VBA示例
本示例指定当前演示文稿第一张幻灯片的第三个形状被激活后自动播放，并且幻灯片放映在该影片播放时暂停。第三个形状必须是声音或影片对象。
Set OLEobj = ActivePresentation.Slides(1).Shapes(3)
With OLEobj.AnimationSettings.PlaySettings
    .PlayOnEntry = msoTrue
    .PauseAnimation = msoTrue
End With
Perspective属性
决定延伸是否显示为透视图。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 该延伸是平行或正射投影，即投影到消失点没有逐渐变窄。
msoTriStateMixed
msoTriStateToggle
msoTrue 延伸显示为透视图，即到消失点的过程中投影逐渐变窄。
VBA示例
本示例将myDocument 中第一个形状延伸的深度设置为 100 磅，并且指定该延伸是平行或正射投影。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
    .Visible = True
    .Depth = 100
    .Perspective = msoFalse
End With

weiyingde

PlaySettings属性
返回一个PlaySettings对象，该对象包含指定的媒体剪辑在幻灯片放映中播放方式的信息。
expression.PlaySettings
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例在当前演示文稿的第一张幻灯片中插入名为 Clock.avi 的影片，设置它在幻灯片切换后自动播放，并指定该影片对象在不播放时隐藏。
With ActivePresentation.Slides(1).Shapes.AddOLEObject(Left:=10, _
        Top:=10, Width:=250, Height:=250, _
        FileName:="c:\winnt\Clock.avi")
    With .AnimationSettings.PlaySettings
        .PlayOnEntry = True
        .HideWhileNotPlaying = True
    End With
End With
PointerColor属性
应用于 SlideShowSettings对象的 PointerColor属性。
作为ColorFormat对象返回指定演示文稿的指针颜色。该颜色随演示文稿一起保存，并且是该演示文稿每次运行时的默认绘图笔颜色。只读。
应用于 SlideShowView对象的 PointerColor属性。
幻灯片放映时返回 ColorFormat对象，该对象代表指定演示文稿的指针颜色。一旦幻灯片放映结束，该颜色转变为演示文稿的默认颜色。只读。
说明
要将指针改变为绘图笔，可将PointerType属性设为 ppSlideShowPointerPen。
VBA示例
应用于 SlideShowSettings 对象。
本示例将当前演示文稿的默认绘图笔颜色设为蓝色，然后开始一个幻灯片放映，将指针改变为绘图笔，并设定绘图笔颜色仅在此幻灯片放映中为红色。
With ActivePresentation.SlideShowSettings
    .PointerColor.RGB = RGB(0, 0, 255)          'blue
    With .Run.View
        .PointerColor.RGB = RGB(255, 0, 0)      'red
        .PointerType = ppSlideShowPointerPen
    End With
End With
PointerType属性
返回或设置在幻灯片放映中使用的指针类型可读写。PpSlideShowPointerType 类型。
PpSlideShowPointerType 可以是下列 PpSlideShowPointerType 类型常数之一。
ppSlideShowPointerAlwaysHidden
ppSlideShowPointerArrow
ppSlideShowPointerAutoArrow
ppSlideShowPointerNone
ppSlideShowPointerPen
expression.PointerType
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例执行当前演示文稿的一个幻灯片放映，将指针改变为绘图笔，并将该幻灯片放映的绘图笔颜色设为红色。
Set currView = ActivePresentation.SlideShowSettings.Run.View
With currView
    .PointerColor.RGB = RGB(255, 0, 0)
    .PointerType = ppSlideShowPointerPen