ppt学习资料

weiyingde

Hyperlink对象
多个对象
Hyperlink
代表与非占位符形状或文本相关联的超链接。可以使用超链接跳转到一个 Internet 或 Intranet 站点、另一个文件或当前演示文稿中的一张幻灯片上。Hyperlink对象是Hyperlinks集合的成员。Hyperlinks集合包含幻灯片或母版中的所有超链接。
使用 Hyperlink对象
使用Hyperlink属性返回形状的超链接。一个形状可以被赋予两种不同的超链接：一种在幻灯片放映中用户单击该形状时响应，另一种在幻灯片放映中用户将鼠标移过形状时响应。要使超链接在幻灯片放映中激活，必须将 Action属性设为 ppActionHyperlink。以下示例设置单击当前演示文稿第一张幻灯片的第三个形状时，连接到 Internet 上。
With ActivePresentation.Slides(1).Shapes(3) _
        .ActionSettings(ppMouseClick)
    .Action = ppActionHyperlink
    .Hyperlink.Address = "http://www.microsoft.com"
End With
一张幻灯片可以包含多个超链接。每个非占位符形状都可以有一个超链接；形状中的文本也可以有自己的超链接；而且每个单独的字符也可以有自己的超链接。使用 Hyperlinks(index) 可返回单个 Hyperlink对象，其中 index 表示超链接编号。以下示例可以将第三个形状的鼠标单击超链接添加到“收藏夹”文件夹。
ActivePresentation.Slides(1).Shapes(3) _
    .ActionSettings(ppMouseClick).Hyperlink.AddToFavorites
注意  在使用本方法向 Microsoft Internet Explorer 的“收藏夹”文件夹中添加超链接时，会向“收藏”菜单中添加一个图标，但并没有相应的名称。必须在 Internet Explorer 中为其添加名称。
Hyperlinks集合对象
多个对象
Hyperlinks
  Hyperlink
幻灯片或母版中所有Hyperlink对象的集合。
使用 Hyperlinks集合
使用Hyperlinks属性返回 Hyperlinks集合。以下示例更新当前演示文稿第一张幻灯片中所有指定地址的超链接。
For Each hl In ActivePresentation.Slides(1).Hyperlinks
    If hl.Address = "c:\current work\sales.ppt" Then
        hl.Address = "c:\new\newsales.ppt"
    End If
Next
使用Hyperlink属性创建一个超链接并将其添加到 Hyperlinks集合中。以下示例设置一个超链接，当用户在幻灯片放映中单击当前演示文稿第一张幻灯片第三个形状时，该链接响应；本示例还将该超链接添加到集合中。请注意，以下示例中，如果第三个形状定义了一个单击鼠标的超链接，则在添加新超链接的同时会将此超链接从集合中删除，因此 Hyperlinks集合中的项目数不变。
With ActivePresentation.Slides(1).Shapes(3) _
        .ActionSettings(ppMouseClick)
    .Action = ppActionHyperlink
    .Hyperlink.Address = "http://www.microsoft.com"
End With
LineFormat对象
多个对象
LineFormat
  ColorFormat
代表线条和箭头格式。对于线条，LineFormat对象包含该线条自身的格式信息；对于有边界的形状，该对象包含形状的边界的格式信息。
使用 LineFormat对象
使用 Line属性返回单个 LineFormat对象。以下示例向myDocument 中添加蓝色的虚线。在该线条的起点有一个短而窄的椭圆，在终点有一个长而宽的三角形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(100, 100, 200, 300).Line
    .DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(50, 0, 128)
    .BeginArrowheadLength = msoArrowheadShort
    .BeginArrowheadStyle = msoArrowheadOval
    .BeginArrowheadWidth = msoArrowheadNarrow
    .EndArrowheadLength = msoArrowheadLong
    .EndArrowheadStyle = msoArrowheadTriangle
    .EndArrowheadWidth = msoArrowheadWide
End With
LinkFormat对象
Shapes (Shape)
LinkFormat
包含应用于链接 OLE对象的属性和方法。无论 OLE对象是否被链接，OLEFormat对象都包含应用于所有 OLE对象的属性和方法。PictureFormat对象包含应用于图片和 OLE对象的属性和方法。
使用 LinkFormat对象
使用 LinkFormat属性返回 LinkFormat对象。以下示例检查当前演示文稿所有幻灯片中的形状，并将所有链接的 Microsoft Excel 工作表设为手动更新。
For Each sld In ActivePresentation.Slides
    For Each sh In sld.Shapes
        If sh.Type = msoLinkedOLEObject Then
            If sh.OLEFormat.ProgID = "Excel.Sheet" Then
                sh.LinkFormat.AutoUpdate = ppUpdateOptionManual
            End If
        End If
    Next
Next

weiyingde

Master对象
多个对象
Master
  多个对象
代表一个幻灯片母版、标题母版、讲义母版、备注母版或设计母版。
使用 Master对象
若要返回一个 Master对象，请使用Slide对象或SlideRange集合的Master属性，或使用Presentation对象的HandoutMaster、NotesMaster、SlideMaster 或TitleMaster属性。请注意，这些属性中的某些也可用于Design对象。以下示例设置当前演示文稿的幻灯片母版的背景填充。
ActivePresentation.SlideMaster.Background.Fill _
    .PresetGradient msoGradientHorizontal, 1, msoGradientBrass
若要为演示文稿添加标题母版或设计并返回代表新标题母版或设计的 Master对象，请使用AddTitleMaster属性。以下示例在当前演示文稿中添加一个标题母版，并将标题占位符放置在距母版顶部 10 磅的位置。
ActivePresentation.AddTitleMaster.Shapes.Title.Top = 10
MotionEffect对象
AnimationBehavior
MotionEffect
  ShapeNodes
代表 AnimationBehavior对象的动作效果。
使用 MotionEffect对象
使用 AnimationBehavior对象的MotionEffec属性返回 MotionEffect对象。以下示例引用给定动画动作的动作效果。
ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).MotionEffect
使用 MotionEffect对象的ByX、ByY、FromX、FromY、ToX 和ToY属性创建动作路径。以下示例在第一张幻灯片中添加一个形状并创建动作路径。
Sub AddMotionPath()
    Dim shpNew As Shape
    Dim effNew As Effect
    Dim aniMotion As AnimationBehavior
    Set shpNew = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShape5pointStar, Left:=0, _
        Top:=0, Width:=100, Height:=100)
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpNew, effectId:=msoAnimEffectCustom, _
        Trigger:=msoAnimTriggerWithPrevious)
    Set aniMotion = effNew.Behaviors.Add(msoAnimTypeMotion)
    With aniMotion.MotionEffect
        .FromX = 0
        .FromY = 0
        .ToX = 500
        .ToY = 500
    End With
End Sub
NamedSlideShow对象
SlideShowSettings
NamedSlideShows (NamedSlideShow)
代表自定义幻灯片放映，该幻灯片放映是演示文稿中幻灯片的一个命名子集。NamedSlideShow对象是NamedSlideShows集合的成员。NamedSlideShows集合包含演示文稿中的所有命名幻灯片放映。
使用 NamedSlideShow对象
使用 NamedSlideShows(index) 返回单个 NamedSlideShow对象，其中 index 是自定义幻灯片放映的名称或索引号。以下示例删除自定义幻灯片放映“Quick Show”。
ActivePresentation.SlideShowSettings _
    .NamedSlideShows("Quick Show").Delete
使用SlideIDs属性返回一个数组，该数组包含指定自定义放映中所有幻灯片的唯一幻灯片标识符。以下示例显示自定义放映“Quick Show”中幻灯片的幻灯片标识符。
idArray = ActivePresentation.SlideShowSettings _
    .NamedSlideShows("Quick Show").SlideIDs
For i = 1 To UBound(idArray)
    MsgBox idArray(i)
Next
NamedSlideShows集合对象
SlideShowSettings
NamedSlideShows (NamedSlideShow)
演示文稿中所有NamedSlideShow对象的集合。每个 NamedSlideShow对象代表一个自定义幻灯片放映。
使用 NamedSlideShows集合
使用NamedSlideShows属性返回 NamedSlideShows集合。使用 NamedSlideShows(index) 返回单个 NamedSlideShow对象，其中 index 是自定义幻灯片放映名称或索引号。以下示例删除自定义幻灯片放映“Quick Show”。
ActivePresentation.SlideShowSettings _
    .NamedSlideShows("Quick Show").Delete
使用Add方法创建一个新幻灯片放映并添加到 NamedSlideShows集合中。以下示例在当前演示文稿中添加命名幻灯片放映“Quick Show”，其中包含第二、七、九张幻灯片。然后，以下示例执行该自定义幻灯片放映。
Dim qSlides(1 To 3) As Long
With ActivePresentation
    With .Slides
        qSlides(1) = .Item(2).SlideID
        qSlides(2) = .Item(7).SlideID
        qSlides(3) = .Item(9).SlideID
    End With
    With .SlideShowSettings
        .NamedSlideShows.Add "Quick Show", qSlides
        .RangeType = ppShowNamedSlideShow
        .SlideShowName = "Quick Show"
        .Run
    End With

weiyingde

ObjectVerbs对象
Shapes (Shape)
OLEFormat
  ObjectVerbs
代表指定 OLE对象的 OLE 动作的集合。OLE 动作是 OLE对象支持的操作。常用的 OLE 动作有“play”和“edit”。
使用 ObjectVerbs对象
使用 ObjectVerbs属性返回一个 ObjectVerbs对象。以下示例显示当前演示文稿第二张幻灯片第一个形状中 OLE对象的所有可用动作。要使本示例执行，第一个形状必须是 OLE对象。
With ActivePresentation.Slides(2).Shapes(1).OLEFormat
    For Each v In .ObjectVerbs
        MsgBox v
    Next
End With
OLEFormat对象
Shapes (Shape)
OLEFormat
  ObjectVerbs
包含应用于 OLE对象的属性和方法。LinkFormat对象包含仅应用于链接的 OLE对象的属性和方法。PictureFormat对象包含应用于图片和 OLE对象的属性和方法。
使用 OLEFormat对象
使用 OLEFormat属性返回一个 OLEFormat对象。以下示例检查当前演示文稿所有幻灯片中的形状，并将所有链接的 Microsoft Excel 工作表设为手动更新。
For Each sld In ActivePresentation.Slides
    For Each sh In sld.Shapes
        If sh.Type = msoLinkedOLEObject Then
            If sh.OLEFormat.ProgID = "Excel.Sheet" Then
                sh.LinkFormat.AutoUpdate = ppUpdateOptionManual
            End If
        End If
    Next
Next
Options对象
Application
Options
代表 Microsoft PowerPoint 中的应用程序选项。
使用 Options对象
使用Options属性返回一个 Options对象。以下示例设置 PowerPoint 的三个应用程序选项。
Sub TogglePasteOptionsButton()
    With Application.Options
        If .DisplayPasteOptions = False Then
            .DisplayPasteOptions = True
        End If
    End With
End Sub
PageSetup对象
Presentation
PageSetup
包含演示文稿中有关幻灯片、备注页、讲义及大纲的页面设置的信息。
使用 PageSetup对象
使用PageSetup属性返回 PageSetup对象。以下示例将当前演示文稿中所有幻灯片设为宽 11 英寸、高 8.5 英寸，并将演示文稿的幻灯片编号设为从 17 开始。
With ActivePresentation.PageSetup
    .SlideWidth = 11 * 72
    .SlideHeight = 8.5 * 72
    .FirstSlideNumber = 17
End With

weiyingde

Pane对象
DocumentWindows (DocumentWindow)
Panes (Pane)
一个对象，它代表普通视图中三个窗格内的某个窗格或文档窗口中任意其他视图中的某个窗格。
使用 Pane对象
使用 Panes(index) 可返回一个 Pane对象，其中，index 表示窗格的索引号。下表列出了普通视图中窗格的名称以及相应的索引号。
窗格        索引号
大纲        1
幻灯片        2
说明        3
当使用文档窗口视图而非普通视图时，使用 Panes(1) 可引用单个 Pane对象。
使用Activate方法可激活指定窗格。
使用ViewType属性可决定当前窗格。以下示例将使用 ViewType属性决定幻灯片窗格是否为当前窗格。如果幻灯片窗格是当前窗格，则使用 Activate方法激活备注窗格。
With ActiveWindow
    If .ActivePane.ViewType = ppViewSlide Then
        .Panes(3).Activate
    End If
End With
说明
普通视图是唯一具有多窗格的视图。所有其他文档窗口视图都只有一个窗格，即文档窗口。
Panes集合对象
DocumentWindows (DocumentWindow)
Panes (Pane)
Pane对象的集合，这些对象代表普通视图内文档窗口中的幻灯片、大纲和备注窗格，或者代表文档窗口中其他视图内的单个窗格。
使用 Panes集合
使用 Panes属性可返回 Panes集合。以下示例将测试活动窗口中窗格的数目。如果值为 1，则说明是除普通视图之外的其他视图，接着将激活普通视图，然后使用纵向窗格分隔线将文档窗口进行划分，使大纲窗格占 15% 位置，幻灯片窗格占 85% 位置。
With ActiveWindow
    If .Panes.Count = 1 Then
        .ViewType = ppViewNormal
        .SplitHorizontal = 15
    End If
End With
说明
在普通视图中，Panes集合包含三个成员。所有其他文档窗口视图则仅有一个窗格，因而 Panes集合也就只有一个成员。
ParagraphFormat对象
多个对象
ParagraphFormat
  BulletFormat
代表文本区域的段落格式。
使用 ParagraphFormat对象
使用ParagraphFormat属性返回 ParagraphFormat对象。以下示例将当前演示文稿第一张幻灯片第二个形状中的段落左对齐。
ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _
    .ParagraphFormat.Alignment = ppAlignLeft
PictureFormat对象
Shapes (Shape)
PictureFormat
包含应用于图片和 OLE对象的属性和方法。LinkFormat对象包含仅应用于链接的 OLE对象属性和方法。OLEFormat对象包含应用于所有 OLE对象的属性和方法，无论是否链接。
使用 PictureFormat对象
使用 PictureFormat属性返回一个 PictureFormat对象。以下示例设置了myDocument 中第一个形状的亮度、对比度和颜色的变换，而且在该形状的底部裁剪了 18 磅。要使本示例执行，则第一个形状必须是图片或 OLE对象。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).PictureFormat
    .Brightness = 0.3
    .Contrast = 0.7
    .ColorType = msoPictureGrayScale
    .CropBottom = 18
End With

weiyingde

PlaceholderFormat对象
Shapes (Shape)
PlaceholderFormat
包含专门应用于占位符的属性，例如占位符类型。
使用 PlaceholderFormat对象
使用PlaceholderFormat属性返回 PlaceholderFormat对象。如果当前演示文稿第一张幻灯片的第一个占位符存在并且是水平标题占位符，以下示例在该占位符中添加文本。
With ActivePresentation.Slides(1).Shapes.Placeholders
    If .Count > 0 Then
        With .Item(1)
            Select Case .PlaceholderFormat.Type
                Case ppPlaceholderTitle
                    .TextFrame.TextRange = "Title Text"
                Case ppPlaceholderCenterTitle
                    .TextFrame.TextRange = "Centered Title Text"
                Case Else
                    MsgBox "There's no horizontal " _
                        "title on this slide"
            End Select
        End With
    End If
End With
Placeholders集合对象
Shapes (Shape)
Placeholders (Shape)
代表指定幻灯片中占位符的所有 Shape对象的集合。Placeholders集合中的每个 Shape对象代表一个占位符，占位符可以是文本、图表、表格、组织结构图或其他类型的对象。如果幻灯片有标题，则标题是集合中的第一个占位符。
使用 Placeholders集合
使用Placeholders属性返回 Placeholders集合。使用 Placeholders(index) 返回代表单个占位符的 Shape对象，其中 index 是占位符索引号。请注意：任何标题为Shapes.Title 的幻灯片等同于Shapes.Placeholders(1)。以下示例向演示文稿的开头添加有具有项目符号列表的幻灯片版式，设置标题文本，然后向文本占位符中添加两个段落。
Set sObj = ActivePresentation.Slides.Add(1, ppLayoutText).Shapes
sObj.Title.TextFrame.TextRange.Text = "This is the title text"
sObj.Placeholders(2).TextFrame.TextRange.Text = _
    "Item 1" & Chr(13) & "Item 2"使用Delete方法可以删除个别占位符，而且可以使用AddPlaceholder方法恢复删除的占位符，但添加的占位符不能多于幻灯片创建时具有的占位符数。要更改给定幻灯片中的占位符数目，请设置Layout属性。
PlaySettings对象
AnimationSettings
PlaySettings
包含在幻灯片放映中指定媒体剪辑播放方式的信息。
使用 PlaySettings对象
使用PlaySettings属性可返回 PlaySettings对象。以下示例在活动演示文稿第一张幻灯片中插入影片“Clock.avi”，然后设置它在前一个动画或幻灯片切换完毕后自动播放，指定播放影片时幻灯片放映继续进行，并且影片对象在不播放时隐藏。
Set clockMovie = ActivePresentation.Slides(1).Shapes _
    .AddMediaObject(FileName:="C:\WINNT\clock.avi", _
    Left:=20, Top:=20)
With clockMovie.AnimationSettings.PlaySettings
    .PlayOnEntry = True
    .PauseAnimation = False
    .HideWhileNotPlaying = True
End With

weiyingde

Presentation对象
多个对象
Presentations (Presentation)
  多个对象
代表一个 PowerPoint 演示文稿。Presentation对象属于Presentations集合中的成员。Presentations集合中包含所有的 Presentation对象，它们分别代表 PowerPoint 中所有打开的演示文稿。
使用 Presentation对象
本节叙述如何：
返回由名称或索引号指定的演示文稿
返回当前窗口中的演示文稿
返回任意指定的文档窗口或幻灯片放映窗口中的演示文稿
返回由名称或索引号指定的演示文稿
使用 Presentations(index) 可返回一个 Presentation对象，其中，index 表示演示文稿的名称或索引号。演示文稿的名称就是其文件名，是否带文件扩展名均可，但不包含路径。以下示例向“Sample”演示文稿的起始处添加一张幻灯片。
Presentations("Sample Presentation").Slides.Add 1, 1
注意，如果同时打开了多个具有相同名称的演示文稿，则会返回集合中具有指定名称的第一篇演示文稿。
返回当前窗口中的演示文稿
使用ActivePresentation属性可返回当前窗口中的演示文稿。以下示例将保存当前演示文稿。
ActivePresentation.Save
注意，如果嵌入的演示文稿处于当前状态，则 ActivePresentation属性将返回嵌入的演示文稿。
返回任意指定的文档窗口或幻灯片放映窗口中的演示文稿
使用Presentation属性可返回指定文档窗口或幻灯片放映窗口中的演示文稿。以下示例将显示运行于第一个幻灯片放映窗口中的幻灯片的名称。
MsgBox SlideShowWindows(1).Presentation.Name
Presentations集合对象
Application
Presentations (Presentation)
  多个对象
PowerPoint 中所有Presentation对象的集合。每个 Presentation对象代表 PowerPoint 中当前打开的一个演示文稿。
使用 Presentations集合
使用Presentations属性返回 Presentations集合。使用Add方法创建一个新演示文稿并添加到集合中。以下示例创建一个新演示文稿，在其中添加一张幻灯片，然后保存该演示文稿。
Set newPres = Presentations.Add(True)
newPres.Slides.Add 1, 1
newPres.SaveAs "Sample"
使用 Presentations(index) 返回单个 Presentation对象，其中 index 是幻灯片名称或索引号。以下示例打印第一个演示文稿。
Presentations(1).PrintOut
使用Open 打开演示文稿并添加到 Presentations集合中。以下示例以只读方式打开文件“Sales.ppt”。
Presentations.Open FileName:="sales.ppt", ReadOnly:=True
说明
Presentations集合不包含开放式加载宏，它是一种特殊类型的隐藏演示文稿。但是如果知道某单个开放式加载宏的文件名，就可以返回它。例如，Presentations(“oscar.ppa”) 将作为 Presentation对象返回名为“Oscar.ppa”的开放式加载宏。但是，建议使用 AddIns集合返回开放式加载宏。
PrintOptions对象
Presentation
PrintOptions
  PrintRanges (PrintRange)
包含演示文稿的打印选项。
注意  指定PrintOut方法的可选参数 From、To、Copies 和 Collate 将设置 PrintOptions对象的相应属性。
使用 PrintOptions对象
使用PrintOptions属性返回 PrintOptions对象。以下示例以非逐份方式打印当前演示文稿所有幻灯片（无论可见或隐藏）的两个彩色副本。该示例还调整每个幻灯片的大小以适应打印页，并给每个幻灯片加细边框。
With ActivePresentation
    With .PrintOptions
        .NumberOfCopies = 2
        .Collate = False
        .PrintColorType = ppPrintColor
        .PrintHiddenSlides = True
        .FitToPage = True
        .FrameSlides = True
        .OutputType = ppPrintOutputSlides
    End With
    .PrintOut
End With
使用RangeType属性指定打印整个演示文稿或指定部分。如果只想打印特定幻灯片，请将 RangeType属性设为 ppPrintSlideRange，并使用Ranges属性指定要打印的页。以下示例打印当前演示文稿中第一、四、五、六张幻灯片。
With ActivePresentation
    With .PrintOptions
        .RangeType = ppPrintSlideRange
        With .Ranges
            .Add 1, 1
            .Add 4, 6
        End With
    End With
    .PrintOut
End With

weiyingde

PrintRange对象
PrintOptions
PrintRanges (PrintRange)
代表要打印的连续幻灯片或页的范围。PrintRange对象是PrintRanges集合的元素。PrintRanges集合包含为指定演示文稿定义的所有打印区域。
使用 PrintRange对象
使用 Ranges(index) 返回单个 PrintRange对象，其中 index 是打印区域索引号。以下示例显示一条消息，指示当前演示文稿第一个打印区域的起始和终止幻灯片编号。
With ActivePresentation.PrintOptions.Ranges
    If .Count > 0 Then
        With .Item(1)
            MsgBox "Print range 1 starts on slide " & .Start & _
                " and ends on slide " & .End
        End With
    End If
End With
使用Add方法创建 PrintRange对象，并添加到 PrintRanges集合中。以下示例定义三个打印区域，分别代表当前演示文稿中第一张幻灯片，第三到第五张幻灯片，第八和第九张幻灯片；然后打印这些区域中的幻灯片。
With ActivePresentation.PrintOptions
    .RangeType = ppPrintSlideRange
    With .Ranges
        .ClearAll
        .Add 1, 1
        .Add 3, 5
        .Add 8, 9
    End With
End With
ActivePresentation.PrintOut
说明
可以在 PrintRanges集合中设置独立于 RangeType 设置的打印区域。这些打印区域在包含它们的演示文稿加载时始终有效。RangeType属性设为 ppPrintSlideRange 时，应用 PrintRanges集合中的区域。
PrintRanges集合对象
PrintOptions
PrintRanges (PrintRange)
指定演示文稿中所有PrintRange对象的集合。每个 PrintRange对象代表要打印的连续幻灯片或页的范围。
使用 PrintRanges集合
使用Ranges属性返回 PrintRanges集合。以下示例从当前演示文稿的集合中清除所有以前定义的打印区域。
ActivePresentation.PrintOptions.Ranges.ClearAll
使用Add方法创建 PrintRange对象，并添加到 PrintRanges集合中。以下示例定义三个打印区域，分别代表当前演示文稿中第一张幻灯片，第三到第五张幻灯片，第八和第九张幻灯片；然后打印这些区域中的幻灯片。
With ActivePresentation.PrintOptions
    .RangeType = ppPrintSlideRange
    With .Ranges
        .ClearAll
        .Add 1, 1
        .Add 3, 5
        .Add 8, 9
    End With
End With
ActivePresentation.PrintOut
使用 Ranges(index) 返回单个 PrintRange对象，其中 index 是打印区域索引号。以下示例显示一条消息，指示当前演示文稿第一个打印区域的起始和终止幻灯片编号。
With ActivePresentation.PrintOptions.Ranges
    If .Count > 0 Then
        With .Item(1)
            MsgBox "Print range 1 starts on slide " & .Start & _
                " and ends on slide " & .End
        End With
    End If
End With
PropertyEffect对象
AnimationBehavior
PropertyEffect
  AnimationPoints

代表AnimationBehavior对象的属性效果。
使用 PropertyEffect对象
使用 AnimationBehavior对象的PropertyEffect属性返回 PropertyEffect对象。以下示例引用指定动画动作的属性效果。
ActivePresentation.Slides(1).TimeLine.MainSequence.Item(1) _
   .Behaviors(1).PropertyEffect
使用Points属性访问特定动画动作的动画点。如果希望只更改动画动作的两种状态，请使用From 和To属性。以下示例向幻灯片中添加一个新形状，并设置属性效果以将填充颜色动画显示为从蓝到红。
Sub AddShapeSetAnimFill()
    Dim effBlinds As Effect
    Dim shpRectangle As Shape
    Dim animProperty As AnimationBehavior
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effBlinds = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectBlinds)
    effBlinds.Timing.Duration = 3
    Set animProperty = effBlinds.Behaviors.Add(msoAnimTypeProperty)
    With animProperty.PropertyEffect
        .Property = msoAnimColor
        .From = RGB(Red:=0, Green:=0, Blue:=255)
        .To = RGB(Red:=255, Green:=0, Blue:=0)
    End With
End Sub

weiyingde

PublishObject对象
Presentation
PublishObjects (PublishObject)
代表已加载 PowerPoint 中且可作为 HTML 格式发布的整个或部分演示文稿。PublishObject对象是PublishObjects集合中的成员。
使用 PublishObject对象
使用 PublishObjects(index) 可返回一个对象，该对象代表了所加载的演示文稿，其中，index 的值总为“1”。对于每个加载的演示文稿，只能有一个 PublishObject对象与之对应。本示例将第二篇演示文稿中的第三张幻灯片到第五张幻灯片作为 HTML 格式发布。发布的演示文稿名为“Mallard.htm”。
With Presentations(2).PublishObjects(1)
    .FileName = "C:\Test\Mallard.htm"
    .SourceType = ppPublishSlideRange
    .RangeStart = 3
    .RangeEnd = 5
    .Publish
End With
说明
可以通过设置 PublishObject对象的不同属性值来指定所发布的演示文稿的内容和属性。例如，SourceType属性用于定义加载的演示文稿中需要进行发布的部分。RangeStart属性和RangeEnd属性用于指定要发布的幻灯片的范围，而SpeakerNotes属性则用于指定是否发布演讲者备注。
PublishObjects集合对象
Presentation
PublishObjects (PublishObject)
PublishObject对象的集合，它代表整个或部分已加载演示文稿的集合，这些演示文稿可作为 HTML 进行发布。
使用 PublishObjects集合
使用 PublishObjects属性可返回 PublishObjects集合。本示例将当前演示文稿的第三张到第五张幻灯片作为 HTML 进行发布。本示例将发布的演示文稿命名为“Mallard.htm”。
With ActivePresentation.PublishObjects(1)
    .FileName = "C:\Test\Mallard.htm"
    .SourceType = ppPublishSlideRange
    .RangeStart = 3
    .RangeEnd = 5
    .Publish
End With
使用 Item(index) 可为所加载的演示文稿返回一个 PublishObject对象，其中，index 的值总为“1”。对于每个加载的演示文稿，只能有一个对应的 PublishObject对象。
本示例通过将 SourceType 设置为 ppPublishAll 值，可以将 PublishObject对象定义为整个的当前演示文稿。
ActivePresentation.PublishObjects.Item(1).SourceType = ppPublishAll
说明
可以通过设置 PublishObject对象的不同属性值来指定所发布的演示文稿的内容和属性。例如，SourceType属性用于定义加载的演示文稿中需要进行发布的部分。RangeStart属性和RangeEnd属性用于指定要发布的幻灯片的范围，而SpeakerNotes属性则用于指定是否发布演讲者备注。
不能添加到 PublishObjects集合中。
RGBColor对象
ColorScheme
RGBColor
代表配色方案中的一种颜色。
使用 RGBColor对象
使用Colors方法可返回一个RGBColor对象。可以将一个 RGBColor对象赋给另一个 RGBColor对象。可使用RGB属性设置或返回 RGBColor对象的显式红-绿-蓝值（对于由 ppNotSchemeColor 和 ppSchemeColorMixed 常数定义的 RGBColor对象除外，这两个对象的 RGB属性可被返回，但不可设置）。以下示例将当前演示文稿配色方案的背景色设为红色，并将标题颜色设为第二个配色方案中定义的标题颜色。
With ActivePresentation.ColorSchemes
    .Item(1).Colors(ppBackground).RGB = RGB(255, 0, 0)
    .Item(1).Colors(ppTitle) = .Item(2).Colors(ppTitle)
End With

weiyingde

RotationEffect对象
AnimationBehavior
RotationEffect

代表AnimationBehavior对象的旋转效果。
使用 RotationEffect对象
使用 AnimationBehavior对象的RotationEffect属性返回 RotationEffect对象。以下示例引用了给定动画动作的旋转效果。
ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).RotationEffect
使用 RotationEffect对象的By、From 和To属性影响对象的动画旋转。以下示例向第一张幻灯片添加新的形状并设置旋转动画动作。
Sub AddRotation()
    Dim shpNew As Shape
    Dim effNew As Effect
    Dim aniNew As AnimationBehavior
    Set shpNew = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShape5pointStar, Left:=0, _
        Top:=0, Width:=100, Height:=100)
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpNew, effectId:=msoAnimEffectCustom)
    Set aniNew = effNew.Behaviors.Add(msoAnimTypeRotation)
    With aniNew.RotationEffect
        'Rotate 270 degrees from current position
        .By = 270
    End With
End Sub
Row对象
Table
Rows (Row)
  CellRange (Cell)
代表表格中的一行。Row对象是Rows集合中的成员。Rows集合中包含指定表格中的所有行。
使用 Row对象
使用 Rows(index) 可返回一个 Row对象，其中，index 是一个数字，它代表表格中行所在的位置。本示例删除表格（当前演示文稿中第二张幻灯片上的第五个形状）中的第一行。
ActivePresentation.Slides(2).Shapes(5).Table.Rows(1).Delete
使用Select方法可从表格中选择一行。本示例选择指定表格中的第一行。
ActivePresentation.Slides(2).Shapes(5).Table.Rows(1).Select
说明
使用Cells属性可修改 Row对象中的各个单元格。本示例选择表格中的第二行，并对其下框线应用虚线样式。
ActiveWindow.Selection.ShapeRange.Table.Rows(2) _
    .Cells.Borders(ppBorderBottom).DashStyle = msoLineDash

weiyingde

Rows集合对象
Table
Rows (Row)
  CellRange (Cell)
Row对象的集合，代表表格中的行。
使用 Rows集合
使用Rows属性可返回 Rows集合。本示例把指定表格中所有行的高度更改为 160 磅。
Dim i As Integer
With ActivePresentation.Slides(2).Shapes(4).Table
    For i = 1 To .Rows.Count
        .Rows.Height = 160
    Next i
End With
使用Add方法可向表格中添加一行。本示例在被引用表格的第二行之前插入一个新行。
ActivePresentation.Slides(2).Shapes(5).Table.Rows.Add (2)
使用 Rows(index) 可返回一个 Row对象，其中，index 是一个数字，它代表表格中行所在的位置。本示例将删除表格（第二张幻灯片上的第五个形状）中的第一行。
ActivePresentation.Slides(2).Shapes(5).Table.Rows(1).Delete
Ruler对象
多个对象
Ruler
  RulerLevels (RulerLevel)
  TabStops (TabStop)
代表指定形状或指定样式中所有文本的标尺。包含大纲文本的制表位和缩进设置。
使用 Ruler对象
使用 TextFrame对象的Ruler属性返回代表指定形状中文本标尺的 Ruler对象；使用TabStops属性返回 TabStops对象，其中包含标尺中的制表位。使用Levels属性返回 RulerLevels对象，该对象包含大纲文本的缩进设置。以下示例在 2 英寸（144 磅）处设置一个左对齐的制表位，并为当前演示文稿第一张幻灯片第二个对象中的文本设置悬挂式缩进。
With ActivePresentation.Slides(1).Shapes(2).TextFrame.Ruler
    .TabStops.Add ppTabStopLeft, 144
    .Levels(1).FirstMargin = 0
    .Levels(1).LeftMargin = 36
End With
使用 TextStyle对象的Ruler属性返回 Ruler对象，该对象代表四种定义文本样式之一（标题文本、正文文本、备注文本、默认文本）的标尺。以下示例设置当前演示文稿幻灯片母版正文文本第一级大纲的首行缩进和悬挂式缩进。
With ActivePresentation.SlideMaster _
        .TextStyles(ppBodyStyle).Ruler.Levels(1)
    .FirstMargin = 9
    .LeftMargin = 54
End With
RulerLevel对象
Ruler
RulerLevels (RulerLevel)
包含大纲的首行缩进和悬挂式缩进信息。RulerLevel对象是RulerLevels集合的成员。RulerLevels集合包含五个可用大纲级别中每个级别的 RulerLevel对象。

使用 RulerLevel对象
使用 RulerLevels(index) 返回单个 RulerLevel对象，其中 index 为大纲级别。以下示例设置当前演示文稿幻灯片母版正文文本第一级大纲的首行缩进和悬挂式缩进。
With ActivePresentation.SlideMaster _
        .TextStyles(ppBodyStyle).Ruler.Levels(1)
    .FirstMargin = 9
    .LeftMargin = 54
End With
以下示例设置当前演示文稿第二个形状（第一张幻灯片中）第一级大纲的首行缩进和悬挂缩进。
With ActivePresentation.SlideMaster.Shapes(2) _
        .TextFrame.Ruler.Levels(1)
    .FirstMargin = 9
    .LeftMargin = 54
End With
RulerLevels集合对象
Ruler
RulerLevels (RulerLevel)
指定标尺上所有RulerLevel对象的集合。每个 RulerLevel对象代表特定大纲级别上文本的首行缩进和左缩进。该集合通常包含五个成员（每个可用大纲级别各一个）。
使用 RulerLevels集合
使用Levels属性返回 RulerLevels集合。以下示例设置当前演示文稿正文文本五级大纲的页边距。
With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Ruler
    .Levels(1).FirstMargin = 0
    .Levels(1).LeftMargin = 40
    .Levels(2).FirstMargin = 60
    .Levels(2).LeftMargin = 100
    .Levels(3).FirstMargin = 120
    .Levels(3).LeftMargin = 160
    .Levels(4).FirstMargin = 180
    .Levels(4).LeftMargin = 220
    .Levels(5).FirstMargin = 240
    .Levels(5).LeftMargin = 280
End With