ppt学习资料

weiyingde

FromX属性
置或返回 Single 类型值，该值分别代表ScaleEffect 或MotionEffect对象的初始宽度或水平位置，其值以屏幕宽度的百分比形式表示。可读写。
expression.FromX
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
此属性的默认值为 Empty，此情况下使用对象的当前位置。
将此属性与ToX属性联合使用以调整大小或从一个位置跳到另一个位置。
请勿将此属性与ColorEffect、RotationEffect 或PropertyEffect对象的From属性相混淆，后者分别用于设置或更改动画动作的颜色、旋转或其他属性。
VBA示例
以下示例添加一个动作路径并且设置起始和结束的水平和垂直位置。
Sub AddMotionPath()
    Dim effCustom As Effect
    Dim animMotion As AnimationBehavior
    Dim shpRectangle As Shape
    'Adds shape and sets effect and animation properties
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effCustom = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectCustom)
    Set animMotion = effCustom.Behaviors.Add(msoAnimTypeMotion)
    'Sets starting and ending horizontal and vertical positions
    With animMotion.MotionEffect
        .FromX = 0
        .FromY = 0
        .ToX = 50
        .ToY = 50
    End With
End Sub
FromY属性
返回或设置 Single 类型值，该值分别代表ScaleEffect 或MotionEffect对象的初始高度或垂直位置，其值以屏幕宽度的百分比表示。可读写。
expression.FromY
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
此属性的默认值为 Empty，此情况下使用对象的当前位置。
将此属性与ToY属性联合使用以调整大小或从一个位置跳到另一个位置。
请勿将此属性与ColorEffect、RotationEffect 或PropertyEffect对象的From属性相混淆，后者分别用于设置或更改动画动作的颜色、旋转或其他属性。
VBA示例
以下示例添加一个动画路径并设置起始和结束的水平和垂直位置。
Sub AddMotionPath()
    Dim effCustom As Effect
    Dim animMotion As AnimationBehavior
    Dim shpRectangle As Shape
    'Adds shape and sets effect and animation properties
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effCustom = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectCustom)
    Set animMotion = effCustom.Behaviors.Add(msoAnimTypeMotion)
    'Sets starting and ending horizontal and vertical positions
    With animMotion.MotionEffect
        .FromX = 0
        .FromY = 0
        .ToX = 50
        .ToY = 50
    End With
End Sub

weiyingde

FullName属性
返回指定的加载宏或保存的演示文稿的名称，包括路径、当前文件系统的分割符和文件扩展名。只读。String 类型。
说明
本属性等价于Path属性，附加上当前文件系统分隔符和Name属性。
VBA示例
本示例显示所有可用加载宏的路径和文件名。
For Each a In Application.AddIns
    MsgBox a.FullName
Next a
本示例显示当前演示文稿的路径名和文件名（假设演示文稿已存盘）。
MsgBox Application.ActivePresentation.FullName
Gap属性
以磅为单位返回或设置标注线末尾到文本框边界的水平距离。可读写。Single 类型。
VBA示例
本示例设置了标注线之间的距离，还将myDocument 中第一个形状的文本边界框的大小设置为 3 磅。要使本示例执行，第一个形状必须是标注。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Callout.Gap = 3
GradientColorType属性
返回指定填充的过渡颜色类型。该属性为只读。使用OneColorGradient、PresetGradient 或TwoColorGradient方法设置填充的过渡类型。只读。MsoGradientColorType 类型。
MsoGradientColorType 可以是下列 MsoGradientColorType 类型常数之一。
msoGradientColorMixed
msoGradientOneColor
msoGradientPresetColors
msoGradientTwoColors
expression.GradientColorType
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将myDocument 中使用双色过渡填充的所有形状的填充更改为预设的过渡填充。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    With s.Fill
        If .GradientColorType = msoGradientTwoColors Then
            .PresetGradient msoGradientHorizontal, _
                1, msoGradientBrass
        End If
    End With
Next
GradientDegree属性
返回一个值，该值指示单色过渡填充的明暗度。该值为 0 指示在前景色中混合黑色形成过渡；该值为 1 指示混合白色；0 和 1 之间的值代表混合不同深浅的前景色。只读。Single 类型。
该属性为只读。使用OneColorGradient方法设置填充的过渡程度。
VBA示例
本示例向myDocument 添加矩形，并且设置该矩形的填充过渡程度以适应名为“Rectangle 2”的形状中的过渡程度。如果矩形 2 不使用单色过渡填充，则本示例失败。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    gradDegree1 = .Item("Rectangle 2").Fill.GradientDegree
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradient msoGradientHorizontal, 1, gradDegree1
    End With
End With

weiyingde

GradientStyle属性
返回指定填充的过渡样式。使用OneColorGradient、PresetGradient 或TwoColorGradient方法设置填充的过渡样式。对未使用过渡的填充试图返回该属性将产生错误。使用Type属性决定该填充是否使用过渡。只读。MsoGradientStyle 类型。
MsoGradientStyle 是下列 MsoGradientStyle 常数之一。
msoGradientDiagonalDown
msoGradientDiagonalUp
msoGradientFromCenter
msoGradientFromCorner
msoGradientFromTitle
msoGradientHorizontal
msoGradientMixed
msoGradientVertical
expression.GradientStyle
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例向myDocument 中添加矩形，并设置该矩形的填充过渡样式，以匹配名为“rect1”的形状的过渡样式。要执行本示例，“rect1”必须使用过渡填充。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    gradStyle1 = .Item("rect1").Fill.GradientStyle
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradient gradStyle1, 1, 1
    End With
End With
GradientVariant属性
返回指定填充的过渡变量。对于多数过渡填充，该值为从 1 到 4 的整数。如果过渡样式为 msoGradientFromTitle 或 msoGradientFromCenter，该属性返回 1 或 2。该属性的值对应于 “填充效果”对话框中 “过渡” 选项卡的过渡变量（按从左向右、从上到下编号）。只读。Long 类型。
该属性为只读。使用OneColorGradient、PresetGradient 或TwoColorGradient方法设置填充的过渡变量。
VBA示例
本示例向myDocument 中添加矩形，并设置该矩形的填充过渡变量，以匹配名为“rect1”的形状的过渡变量。要执行本示例，“rect1”必须使用过渡填充。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    gradVar1 = .Item("rect1").Fill.GradientVariant
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradient msoGradientHorizontal, gradVar1, 1
    End With
End With
GridDistance属性
设置或返回 Single 类型值，该值代表网格线之间的距离。可读写。
expression.GridDistance
expression  必选。该表达式返回一个Presentation对象。
VBA示例
本示例显示网格线，然后指定网格线之间的距离并且启用对齐网格的设置。
Sub SetGridLines()
    Application.DisplayGridLines = msoTrue
    With ActivePresentation
        .GridDistance = 18
        .SnapToGrid = msoTrue
    End With
End Sub

weiyingde

GroupItems属性
返回一个代表指定组中单个形状的GroupShapes对象。使用 GroupShapes对象的Item方法从该组中返回单个形状。应用于代表分组形状的 Shape 或 ShapeRange对象。只读。
VBA示例
本示例向myDocument 中添加三个三角形，将它们组合，再设置整个组的颜色，然后只更改第二个三角形的颜色。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    .AddShape(msoShapeIsoscelesTriangle, 10, _
        10, 100, 100).Name = "shpOne"
    .AddShape(msoShapeIsoscelesTriangle, 150, _
        10, 100, 100).Name = "shpTwo"
    .AddShape(msoShapeIsoscelesTriangle, 300, _
        10, 100, 100).Name = "shpThree"
    With .Range(Array("shpOne", "shpTwo", "shpThree")).Group
        .Fill.PresetTextured msoTextureBlueTissuePaper
        .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble
    End With
End With
HandoutMaster属性
返回一个代表讲义母版的Master对象。只读。
VBA示例
本示例设置当前演示文稿的讲义母版的背景图案。
Application.ActivePresentation.HandoutMaster.Background.Fill _
    .Patterned msoPatternDarkHorizontal
HandoutOrder属性
返回或设置幻灯片出现在打印讲义上的页面版式顺序，打印讲义可在一个页面上放映多个幻灯片。可读写。PpPrintHandoutOrder 类型。
PpPrintHandoutOrder 可以是下列 PpPrintHandoutOrder 类型常数之一。
ppPrintHandoutHorizontalFirst 幻灯片水平排序，第一张幻灯片位于左上角，第二张位于其右侧。如果语言设置指定的是从右向左的语言，则第一张幻灯片位于右上角，第二张位于其左侧。
ppPrintHandoutVerticalFirst 幻灯片垂直排序，第一张幻灯片位于左上角，第二张位于其下。如果语言设置指定的是从右向左的语言，则第一张幻灯片位于右上角，第二张位于其下。
expression.HandoutOrder
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例设置活动演示文稿的讲义使每个页面包含六张幻灯片，并在讲义上水平排序，然后打印。
With ActivePresentation
    .PrintOptions.OutputType = ppPrintOutputSixSlideHandouts
    .PrintOptions.HandoutOrder = ppPrintHandoutHorizontalFirst
    .PrintOut
End With

weiyingde

HangingPunctuation属性
如果有指定的亚洲语言设置则返回或设置标点溢出边界选项。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 选择标点溢出边界选项。
VBA示例
本示例为活动演示文稿的第一段选择标点溢出边界。
ActivePresentation.Paragraphs(1).HangingPunctuation = msoTrue
HasChildShapeRange属性
如果所选的形状中包含子形状，则此属性值为 True。只读。Boolean 类型。
expression.HasChildShapeRange
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例使用绘图画布新建幻灯片，再向画布中添加形状，然后选择添加到画布上的形状。在确认选定的形状为子形状后，使用图案填充该子形状。
Sub ChildShapes()
    Dim sldNew As Slide
    Dim shpCanvas As Shape
    'Create a new slide with a drawing canvas and shapes
    Set sldNew = Presentations(1).Slides _
        .Add(Index:=1, Layout:=ppLayoutBlank)
    Set shpCanvas = sldNew.Shapes.AddCanvas( _
        Left:=100, Top:=100, Width:=200, Height:=200)
    With shpCanvas.CanvasItems
        .AddShape msoShapeRectangle, Left:=0, Top:=0, _
            Width:=100, Height:=100
        .AddShape msoShapeOval, Left:=0, Top:=50, _
            Width:=100, Height:=100
        .AddShape msoShapeDiamond, Left:=0, Top:=100, _
            Width:=100, Height:=100
    End With
    'Select all shapes in the canvas
    shpCanvas.CanvasItems.SelectAll
    'Fill canvas child shapes with a pattern
    With ActiveWindow.Selection
        If .HasChildShapeRange = True Then
            .ChildShapeRange.Fill.Patterned Pattern:=msoPatternDivot
        Else
            MsgBox "This is not a range of child shapes."
        End If
    End With
End Sub
HasDiagram属性
如果形状是图示，则使用 MsoTrue属性值。只读。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 此形状不是图示。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 此形状是图示。
expression.HasDiagram
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例搜索当前文档查找带有节点的图示，如果发现了带有节点的图示，则创建一个带有白色粗体文字的黑色气球。
Sub HasDiagramProperties()
    Dim shpDiagram As Shape
    Dim shpNode As DiagramNode
    Dim shpBalloon As Shape
    Dim sldFirst As Slide
    Set sldFirst = ActivePresentation.Slides(1)
    'Looks through the current document and when it finds a diagram
    'with one or more diagram nodes, creates a balloon with text
    For Each shpDiagram In sldFirst.Shapes
        If shpDiagram.HasDiagram = msoTrue And _
            shpDiagram.HasDiagramNode = msoTrue Then
                Set shpBalloon = sldFirst.Shapes.AddShape( _
                    Type:=msoShapeBalloon, Left:=350, _
                    Top:=75, Width:=150, Height:=150)
                With shpBalloon
                    With .TextFrame
                        .WordWrap = msoTrue
                        With .TextRange
                            .Text = "This is a diagram with nodes."
                            .Font.Color.RGB = RGB(Red:=255, _
                                Green:=255, Blue:=255)
                            .Font.Bold = True
                            .Font.Name = "Tahoma"
                            .Font.Size = 15
                        End With
                    End With
                    .Line.BackColor.RGB = RGB( _
                        Red:=0, Green:=25, Blue:=25)
                    .Fill.ForeColor.RGB = RGB( _
                        Red:=0, Green:=25, Blue:=25)
                End With
        End If
    Next shpDiagram
End Sub

weiyingde

HasDiagramNode属性
如果形状是图示节点，则此参数为 MsoTrue。只读。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 形状不是图示节点。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 形状是图示节点。
expression.HasDiagramNode
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例搜索当前文档以查找带有节点的图示，如果发现带有节点的图示，则创建一个带有白色粗体文字的黑色气球。
Sub HasDiagramProperties()
    Dim shpDiagram As Shape
    Dim shpNode As DiagramNode
    Dim shpBalloon As Shape
    Dim sldFirst As Slide
    Set sldFirst = ActivePresentation.Slides(1)
    'Looks through the current document and when it finds a diagram
    ' with one or more diagram nodes, creates a balloon with text
    For Each shpDiagram In sldFirst.Shapes
        If shpDiagram.HasDiagram = msoTrue And _
            shpDiagram.HasDiagramNode = msoTrue Then
                Set shpBalloon = sldFirst.Shapes.AddShape( _
                    Type:=msoShapeBalloon, Left:=350, _
                    Top:=75, Width:=150, Height:=150)
                With shpBalloon
                    With .TextFrame
                        .WordWrap = msoTrue
                        With .TextRange
                            .Text = "This is a diagram with nodes."
                            .Font.Color.RGB = RGB(Red:=255, _
                                Green:=255, Blue:=255)
                            .Font.Bold = True
                            .Font.Name = "Tahoma"
                            .Font.Size = 15
                        End With
                    End With
                    .Line.BackColor.RGB = RGB( _
                        Red:=0, Green:=25, Blue:=25)
                    .Fill.ForeColor.RGB = RGB( _
                        Red:=0, Green:=25, Blue:=25)
                End With
        End If
    Next shpDiagram
End Sub
HasRevisionInfo属性
返回PpRevisionInfo 类型常数，该常数代表演示文稿是合并作者文档、带有基线的审阅者文档、还是普通的 Microsoft PowerPoint 文档。只读。
PpRevisionInfo 可以是下列 PpRevisionInfo 类型常数之一。
ppRevisionInfoBaseline 演示文稿有基线。
ppRevisionInfoMerged 演示文稿为合并作者演示文稿。
ppRevisionInfoNone 演示文稿没有审阅者信息。
expression.HasRevisionInfo
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
批注不作为审阅者信息。
VBA示例
以下示例添加并删除基线，并同时向用户报告状态。
Sub AddABaseline()
    ActivePresentation.AddBaseline
    Call ReportRevisionInfo(ActivePresentation)
    ActivePresentation.RemoveBaseline
    Call ReportRevisionInfo(ActivePresentation)
End Sub
Sub ReportRevisionInfo(pre As Presentation)
    Select Case pre.HasRevisionInfo
        Case ppRevisionInfoBaseline
            MsgBox "The presentation has a base line."
        Case ppRevisionInfoMerged
            MsgBox "The presentation is a merged author presentation."
        Case ppRevisionInfoNone
            MsgBox "The presentation has no reviewer information."
        Case Else
            MsgBox "Couldn't determine revision information."
    End Select
End Sub

weiyingde

HasTitle属性
返回指定幻灯片上的对象集合是否包含标题占位符。只读。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue指定幻灯片上的对象集合包含标题占位符。
VBA示例
如果当前演示文稿第一张幻灯片的标题占位符已被删除，本示例将其恢复。恢复的标题文本为“Restored title”。
With ActivePresentation.Slides(1)
    If .Layout <> ppLayoutBlank Then
        With .Shapes
            If Not .HasTitle Then
                .AddTitle.TextFrame.TextRange _
                    .Text = "Restored title"
            End If
        End With
    End If
End With
HasTitleMaster属性
如果指定演示文稿具有标题母版，则使用 MsoTrue属性值。只读。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定的演示文稿具有标题母版。
expression.HasTitleMaster
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例中，如果当前演示文稿没有标题母版，则为其添加一个标题母版。
With Application.ActivePresentation
    If Not .HasTitleMaster Then .AddTitleMaster
End With
Header属性
返回一个代表页眉的HeaderFooter对象。该页眉显示于幻灯片顶部或备注页、讲义或大纲的左上角。只读。
VBA示例
本示例为当前演示文稿的讲义母版设置页眉文本。以大纲或讲义方式打印演示文稿时，该文本将显示于页的左上角。
Set myHandHF = Application.ActivePresentation.HandoutMaster _
    .HeadersFooters
myHandHF.Header.Text = "Third Quarter Report"
HeadersFooters属性
返回一个HeadersFooters集合，该集合代表与幻灯片、幻灯片母版或幻灯片组相关联的页眉、页脚、日期和时间、以及幻灯片编号。只读。
有关返回集合中单个元素的详细信息，请参阅返回集合中的对象。
VBA示例
本示例在活动演示文稿的备注母版中设置页脚文本、日期和时间的格式，并将日期和时间设定为可自动修改。
With ActivePresentation.NotesMaster.HeadersFooters
    .Footer.Text = "Regional Sales"
    With .DateAndTime
        .UseFormat = True
        .Format = ppDateTimeHmmss
    End With
End With

weiyingde

Height属性
以磅为单位返回或设置指定对象的高度。用于Master对象时只读，Single 类型；用于所有其他对象时可读写，Single 类型。
说明
一个 Shape对象的 Height属性返回或设置指定形状向前的表面的高度。该尺寸不包括阴影或三维效果。
VBA示例
本示例将第二个文档窗口的高度设置为应用程序窗口高度的一半。
Windows(2).Height = Application.Height / 2
本示例将指定表格中第二行的高度设成 100 磅（每英寸 72 磅）。
ActivePresentation.Slides(2).Shapes(5).Table.Rows(2).Height = 100
Hidden属性
决定幻灯片放映期间指定的幻灯片是否隐藏。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 幻灯片放映期间指定的幻灯片隐藏。
VBA示例
本示例将当前演示文稿第二张幻灯片设为隐藏。
ActivePresentation.Slides(2).SlideShowTransition.Hidden = msoTrue
HideWhileNotPlaying属性
决定在幻灯片放映期间指定的媒体剪辑在不播放时是否隐藏。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 在幻灯片放映期间指定的媒体剪辑在不播放时隐藏。
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 = msoTrue
    End With
End With

weiyingde

HorizontalAnchor属性
返回或设置文本框中文本的水平对齐方式。可读写。MsoHorizontalAnchor 类型。
MsoHorizontalAnchor 可以是下列 MsoHorizontalAnchor 类型常数之一。
msoAnchorNone
msoHorizontalAnchorMixed
msoAnchorCenter
expression.HorizontalAnchor
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将myDocument 上第一个形状的文本对齐方式设为顶部居中。
Set myDocument = ActivePresentation.SlideMaster
With myDocument.Shapes(1)
    .TextFrame.HorizontalAnchor = msoAnchorCenter
    .TextFrame.VerticalAnchor = msoAnchorTop
End With
HorizontalFlip属性
返回指定的形状是否绕水平轴翻转。只读。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定形状绕水平轴翻转。
VBA示例
本示例将myDocument 上的每个形状复原到其原始状态（如果形状已经水平或垂直翻转）。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    If s.HorizontalFlip Then s.Flip msoFlipHorizontal
    If s.VerticalFlip Then s.Flip msoFlipVertical
Next
HTMLProject属性
返回 HTMLProject对象，它是一个可通过“Microsoft 脚本编辑器”访问的 Web 演示文稿（HTML 格式）。只读。
说明
HTMLProject对象可看作是“脚本编辑器”的“项目资源管理器”窗口中最顶层的项目分支（对于加载的演示文稿而言）。它包含 HTMLProjectItems集合。HTMLProjectItems集合的成员可以是Web 演示文稿的幻灯片、母版或讲义。
VBA示例
本示例将检查加载的 HTMLProject 中 HTMLProjectItems集合内的每个成员。如果某个成员名为“Slide2”，则本示例将在“Microsoft 脚本编辑器”中打开为该幻灯片所生成的 HTML 文件。
Dim i As Integer
With ActivePresentation.HTMLProject
    For i = 1 To .HTMLProjectItems.Count
        If .HTMLProjectItems(i).Name = "Slide2" Then
            .HTMLProjectItems(i).Open
        End If
    Next
End With

weiyingde

IncludeNavigation属性
决定 Web 演示文稿的导航栏是否可见。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse Web 演示文稿的导航栏不可见，这样可放大幻灯片。
msoTriStateMixed
msoTriStateToggle
msoTrue 默认值。Web 演示文稿的导航栏在页面底部可看到。
VBA示例
本示例指定在指定的 Web 演示文稿中不包含导航栏。然后在当前 Web 浏览器中预览该演示文稿。
With Presentations(2)
    .WebOptions.IncludeNavigation = msoFalse
    .WebPagePreview
End With
IndentLevel属性
以 1 到 5 的整数返回或设置指定文本的缩进级别。数字 1 代表无缩进的第一级段落。只读。Long 类型。
VBA示例
本示例缩进当前演示文稿第二张幻灯片的第二个形状中的第二段。
Application.ActivePresentation.Slides(2).Shapes(2).TextFrame _
    .TextRange.Paragraphs(2).IndentLevel = 2
Index属性
返回 Long 类型值，该值代表动画效果或设计的索引号。只读。
expression.Index
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例显示第一张幻灯片的主动画序列中所有效果的名称和索引号。
Sub EffectInfo()
    Dim effIndex As Effect
    Dim seqMain As Sequence
    Set seqMain = ActivePresentation.Slides(1).TimeLine.MainSequence
    For Each effIndex In seqMain
        With effIndex
            MsgBox "Effect Name: " & .DisplayName & vbLf & _
                "Effect Index: " & .Index
        End With
    Next
End Sub