ppt学习资料

weiyingde

MainSequence属性
返回Sequence对象，该对象代表幻灯片的主动画序列中Effect对象的集合。
expression.MainSequence
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
MainSequence属性的默认值是一个空 Sequence集合。在不向主动画序列添加 Effect对象的情况下，任何由此属性返回值的尝试都将导致运行时错误。
VBA示例
以下示例向当前演示文稿新幻灯片的新形状中添加一个飞旋动画。
Sub NewSequence()
    Dim sldNew As Slide
    Dim shpnew As Shape
    Set sldNew = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutBlank)
    Set shpnew = sldNew.Shapes.AddShape(Type:=msoShape5pointStar, _
        Left:=25, Top:=25, Width:=100, Height:=100)
    With sldNew.TimeLine.MainSequence.AddEffect(Shape:=shpnew, _
            EffectId:=msoAnimEffectBoomerang)
        .Timing.Speed = 0.5
        .Timing.Accelerate = 0.2
    End With
End Sub
MarginBottom属性
以磅为单位返回或设置从文本框底端到包含文本的形状中内接矩形底端的距离。可读写。Single 类型。
VBA示例
本示例在myDocument中添加一个矩形，向矩形中添加文本，然后设置文本框架的边距。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
        0, 0, 250, 140).TextFrame
    .TextRange.Text = "Here is some test text"
    .MarginBottom = 0
    .MarginLeft = 10
    .MarginRight = 0
    .MarginTop = 20
End With

weiyingde

MarginLeft属性
以磅为单位返回或设置从文本框左边界到包含文本的形状中内接矩形左边界的距离。可读写。Single 类型。
VBA示例
本示例在myDocument中添加一个矩形，向矩形中添加文本，然后设置文本框架的边距。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
        0, 0, 250, 140).TextFrame
    .TextRange.Text = "Here is some test text"
    .MarginBottom = 0
    .MarginLeft = 10
    .MarginRight = 0
    .MarginTop = 20
End With
MarginRight属性
以磅为单位返回或设置从文本框右边界到包含文本的形状中内接矩形右边界的距离。可读写。Single 类型。
VBA示例
本示例在myDocument中添加一个矩形，向矩形中添加文本，然后设置文本框架的边距。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
        0, 0, 250, 140).TextFrame
    .TextRange.Text = "Here is some test text"
    .MarginBottom = 0
    .MarginLeft = 10
    .MarginRight = 5
    .MarginTop = 20
End With
MarginTop属性
以磅为单位返回或设置从文本框架顶端到包含文本的形状中内接矩形顶端的距离。可读写。Single 类型。
VBA示例
本示例在myDocument中添加一个矩形，向矩形中添加文本，然后设置文本框架的边距。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
        0, 0, 250, 140).TextFrame
    .TextRange.Text = "Here is some test text"
    .MarginBottom = 0
    .MarginLeft = 10
    .MarginRight = 0
    .MarginTop = 20
End With

weiyingde

Master属性
返回一个代表幻灯片母版的Master对象。只读。
VBA示例
本示例为当前演示文稿第一张幻灯片的幻灯片母版设置背景填充。
ActivePresentation.Slides(1).Master.Background.Fill _
    .PresetGradient msoGradientDiagonalUp, 1, msoGradientDaybreak
MediaType属性
返回 OLE 媒体类型。只读。PpMediaType 类型。
PpMediaType 可以是下列 PpMediaType 类型常数之一。
ppMediaTypeMixed
ppMediaTypeMovie
ppMediaTypeOther
ppMediaTypeSound
expression.MediaType
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例设置幻灯片放映时，当前演示文稿第一张幻灯片的所有原始声音对象循环播放直到被手动停止。
For Each so In ActivePresentation.Slides(1).Shapes
    If so.Type = msoMedia Then
        If so.MediaType = ppMediaTypeSound Then
            so.AnimationSettings.PlaySettings _
                .LoopUntilStopped = True
        End If
    End If
Next
MotionEffect属性
返回代表移动动画的属性的MotionEffect对象。
expression.MotionEffect
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例向第一张幻灯片的主动画序列添加新的移动动作，该动作将指定的动画序列从页面的一侧移动到该形状的初始位置。
Sub NewMotion()
    With ActivePresentation.Slides(1).TimeLine.MainSequence(1) _
            .Behaviors.Add(msoAnimTypeMotion).MotionEffect
        .FromX = 100
        .FromY = 100
        .ToX = 0
        .ToY = 0
    End With
End Sub

weiyingde

Name属性
应用于 ColorFormat、Design、Font、Master、Shape、ShapeRange、Slide、SlideRange 和 SoundEffect对象的 Name属性。
ColorFormat、Design、Font 和 Master对象：返回或设置指定对象的名称。可读写。String 类型。
Shape 或 ShapeRange对象：创建形状时，Microsoft PowerPoint 自动以 ShapeType Number 的形式分配名称，其中 ShapeType 指明形状或自选图形的类型，Number 是在幻灯片的形状集合中的唯一整数。例如，为形状自动生成的名称可以为 Placeholder 1、Oval 2 和 Rectangle 3。若要避免自动赋值名称发生冲突，对用户定义的名称不使用 ShapeType Number 形式，其中 ShapeType 为一个用于自动生成名称的值，Number 为任意的正整数。形状区域只能包含一个形状。可读写。String 类型。
Slide 或 SlideRange对象：向一个演示文稿插入幻灯片时，Powerpoint 自动为幻灯片分配 Sliden 形式的名称，其中 n 是一个整数，代表幻灯片在演示文稿中创建的顺序。例如，在某个演示文稿中插入的第一张幻灯片被自动命名为 Slide1。如果将幻灯片从一个演示文稿复制到另一个演示文稿，则该幻灯片会失去它在第一个演示文稿中的名称并在第二个演示文稿中被自动分配新名称。幻灯片区域只能包含一张幻灯片。可读写。String 类型。
SoundEffect对象：演示文稿的有效名称的设置出现在“幻灯片切换”任务窗格（“幻灯片放映”菜单上）的“声音”框中。可读写。String 类型。
expression.Name
expression  必选。该表达式返回上述对象之一。
应用于 AddIn、Application、NamedSlideShow 和 Presentation对象的 Name属性。
AddIn对象：已注册文件类型的加载宏名称（标题）。只读。String 类型。
Application对象：返回字符串“Microsoft PowerPoint”。只读。String 类型。
NamedSlideShow对象：不能用该属性设置自定义幻灯片放映的名称。使用Add方法重新定义自定义幻灯片放映的名称。只读。String 类型。
Presentation对象：演示文稿的名称包括文件扩展名（对于已注册的文件类型），但不包括其路径名。无法使用该属性设置名称。如果需要更改名称，可使用SaveAs方法以其他名称保存演示文稿。只读。String 类型。
expression.Name
expression  必选。该表达式返回上述对象之一。
说明
如果包含对象的集合的 Item方法采用 Variant 类型参数，可以将该对象的名称与 Item方法联合使用以返回对该对象的引用。例如，如果一个形状的 Name属性值为“Rectangle 2”，则.Shapes("Rectangle 2") 将返回对该形状的引用。
VBA示例
应用于 Shape对象。
本示例将当前演示文稿第一张幻灯片第二个对象的名称设为“big triangle”。
ActivePresentation.Slides(1).Shapes(2).Name = "big triangle"
本示例设置当前演示文稿第一张幻灯片中形状“big triangle”的填充颜色。
ActivePresentation.Slides(1) _
    .Shapes("big triangle").Fill.ForeColor.RGB = RGB(0, 0, 255)

weiyingde

NameAscii属性
返回或设置用于 ASCII 字符的字体（字符集编号在 0-127 之间的字符）。可读写。String 类型。
说明
此属性的默认值为 Times New Roman。使用Replace方法更改应用于所有文本和出现在“格式”工具栏上“字体”对话框中的字体。
VBA示例
本示例将第一张幻灯片标题中 ASCII 字符的字体设置为“Century”。
Application.ActivePresentation.Slides(1).Shapes.Title _
    .TextFrame.TextRange.Font.NameAscii = "Century"
NameComplexScript属性
返回或设置复杂脚本字体名称。用于多语言文本。可读写。String 类型。
说明
当具备指定的从右向左语言设置时，此属性相当于“字体”对话框（位于“格式”菜单上）中的“复杂文种字体”列表。当具备指定的亚洲语言设置时，此属性相当于“字体”对话框（位于“格式”菜单上）中的“中文字体”列表。
VBA示例
本示例将复杂脚本字体设置为“Times New Roman”。
ActivePresentation.Slides(1).Shapes.Title.TextFrame _
    .TextRange.Font.NameComplexScript = "Times New Roman"
NamedSlideShows属性
返回一个NamedSlideShows集合，该集合代表指定演示文稿中所有命名的幻灯片放映（即自定义幻灯片放映）。每个命名的幻灯片放映或自定义放映，都是指定演示文稿的一个用户定义的子集。只读。
说明
使用 NamedSlideShows对象的Add方法创建命名幻灯片放映。
VBA示例
本示例为当前演示文稿添加一个命名幻灯片放映“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
        .RangeType = ppShowNamedSlideShow
        .NamedSlideShows.Add "Quick Show", qSlides
        .SlideShowName = "Quick Show"
        .Run
    End With
End With

weiyingde

NoLineBreakAfter属性
返回或设置前置标点字符。可读写。String 类型。
VBA示例
本示例将“$”、“(”、“[”、“\”和“{”设置为前置字符。
With ActivePresentation
    .FarEastLineBreakLevel = ppFarEastLineBreakLevelCustom
    .NoLineBreakAfter =  "$([\{"
End With
NoLineBreakBefore属性
返回或设置后置标点字符。可读写。String 类型。
VBA示例
本示例将“!”、“)”和“]”设置为后置字符。
With ActivePresentation
    .FarEastLineBreakLevel = ppFarEastLineBreakLevelCustom
    .NoLineBreakBefore =  "!)]"
End With
NormalizedHeight属性
决定指定艺术字中的字符（大小写都包括）高度是否相同。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定艺术字中的所有字符（大小写都包括）高度相同。
VBA示例
本示例向myDocument 中添加包含文本“Test Effect”的艺术字，并将新的艺术字命名为”texteff1”。然后代码将命名为“texteff1”的形状中的所有字符统一为相同高度。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
    Text:="Test Effect", FontName:="Courier New", _
    FontSize:=44, FontBold:=True, _
    FontItalic:=False, Left:=10, Top:=10)_
    .Name = "texteff1"
myDocument.Shapes("texteff1").TextEffect.NormalizedHeight = msoTrue

weiyingde

NotesMaster属性
返回一个代表备注母版的Master对象。只读。
VBA示例
本示例设置当前演示文稿的备注母版的页眉和页脚文字。
With Application.ActivePresentation.NotesMaster.HeadersFooters
    .Header.Text = "Employee Guidelines"
    .Footer.Text = "Volcano Coffee"
End With
NotesOrientation属性
返回或设置指定演示文稿的备注页、讲义和大纲的屏幕和打印方向。可读写。MsoOrientation 类型。
MsoOrientation 可以是下列 MsoOrientation 类型常数之一。
msoOrientationHorizontal
msoOrientationMixed
msoOrientationVertical
expression.NotesOrientation
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将当前演示文稿中所有备注页、讲义和大纲的方向设为水平。
Application.ActivePresentation.PageSetup.NotesOrientation = _
    msoOrientationHorizontal
NotesPage属性
返回一个SlideRange对象，该对象代表指定幻灯片或幻灯片组的备注页。只读。
注意  对 SlideRange对象代表的备注页使用下列属性和方法无效：Copy方法、Cut方法、Delete方法、Duplicate方法、HeadersFooters属性、Hyperlinks属性、Layout属性、PrintSteps属性、SlideShowTransition属性。
说明
NotesPage属性返回一张幻灯片或幻灯片组的备注页，且只允许对这些备注页进行修改。如果要修改所有备注页，可使用代表备注页母版的NotesMaster属性返回 Slide对象。
VBA示例
本示例为当前演示文稿第一张幻灯片的备注页设置背景填充。
With ActivePresentation.Slides(1).NotesPage
    .FollowMasterBackground = False
    .Background.Fill.PresetGradient _
        msoGradientHorizontal, 1, msoGradientLateSunset
End With

weiyingde

Number属性
当 BulletFormat对象的Type属性设置为 ppBulletNumbered 时，返回段落的项目符号编号。只读。Long 类型。
说明
如果对具有不同编号的多个段落使用本属性，则会返回值 ppBulletMixed。如果对非 ppBulletNumbered 类型的段落使用本属性，则会产生运行错误。
VBA示例
本示例将选取的文本内容第一段的项目符号数返回到一个称为myParnum 的变量中。
With ActiveWindow.Selection
    If .Type = ppSelectionTextRange Then
        With .TextRange.Paragraphs(1).ParagraphFormat.Bullet
            If .Type = ppBulletNumbered Then
                myParnum = .Number
            End If
        End With
    End If
End With
NumberOfCopies属性
返回或设置要打印的演示文稿份数。默认值为 1。可读写。Long 类型。
说明
指定PrintOut方法的 Copies参数将设置此属性的值。
VBA示例
本示例逐份打印三份当前演示文稿。
With ActivePresentation.PrintOptions
    .NumberOfCopies = 3
    .Collate = True
    .Parent.PrintOut
End With

weiyingde

Object属性
返回一个对象，该对象代表指定 OLE对象的顶层界面。该属性使您可以访问某些应用程序中的属性和方法（OLE对象在这些应用程序中创建）。只读。
说明
使用 TypeName函数判断该属性为指定 OLE对象返回的对象的类型。
VBA示例
本示例显示当前演示文稿第一张幻灯片第一个形状中包含的对象的类型。第一个形状必须包含 OLE对象。
MsgBox TypeName(ActivePresentation.Slides(1) _
    .Shapes(1).OLEFormat.Object)
本示例显示一个应用程序的名称，当前演示文稿第一张幻灯片中每个嵌入的 OLE对象都在该应用程序中创建。
For Each s In ActivePresentation.Slides(1).Shapes
    If s.Type = msoEmbeddedOLEObject Then
        MsgBox s.OLEFormat.Object.Application.Name
    End If
Next
本示例在 Microsoft Excel 工作簿第一张工作表的 A1 单元格中添加文本，该工作簿包含在当前演示文稿第一张幻灯片的第三个形状中。
With ActivePresentation.Slides(1).Shapes(3)
    .OLEFormat.Object.Worksheets(1).Range("A1").Value = "New text"
End With
ObjectVerbs属性
返回一个ObjectVerbs集合，该集合包含指定 OLE对象的所有 OLE动作。只读。
VBA示例
本示例显示了活动演示文稿中第二张幻灯片上第一个形状内的 OLE对象具有的所有可用操作。只有当第一个形状是 OLE对象时，这个例子才会有效。
With ActivePresentation.Slides(2).Shapes(1).OLEFormat
    For Each v In .ObjectVerbs
        MsgBox v
    Next
End With
本示例表明：对于活动演示文稿上第二张幻灯片中第一个形状所代表的 OLE对象而言，若“Open”为该对象的一个 OLE 操作，那么在幻灯片演示过程中如果单击该对象，则此对象会打开。另外，要求第一个形状也必须是 OLE对象。
With ActivePresentation.Slides(2).Shapes(1)
    For Each sVerb In .OLEFormat.ObjectVerbs
        If sVerb = "Open" Then
            With .ActionSettings(ppMouseClick)
                .Action = ppActionOLEVerb
                .ActionVerb = sVerb
            End With
            Exit For
        End If
    Next
End With

weiyingde

Obscured属性
决定指定形状的阴影是否有填充，是否被该形状所遮蔽。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 阴影没有填充；如果形状也没有填充，透过形状可看见阴影的轮廓。
msoTriStateMixed
msoTriStateToggle
msoTrue 指定形状的阴影有填充并被该形状所遮蔽，即使形状也没有填充。
VBA示例
本示例在myDocument 中为第三个形状的阴影设置水平和垂直偏移。阴影向形状的右边偏移 5 磅向其上边偏移 3 磅。如果形状原来无阴影，下面的程序可以为其添加。阴影将被填充并被形状遮蔽，即使形状也没有填充。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Shadow
    .Visible = True
    .OffsetX = 5
    .OffsetY = -3
    .Obscured = msoTrue
End With
OffsetX属性
以磅为单位返回或设置指定形状的阴影的水平偏移量。正偏移值将阴影向右偏移，负偏移值将阴影向左偏移。可读写。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