ppt学习资料

weiyingde

使用表格
在 Microsoft PowerPoint 中，可以自己创建表格而无需从 Microsoft Word 中导入。表格是Shapes集合中的成员。表格中的每个单元格、列和行都是单独的可编程对象。
创建表格
使用AddTable方法可在幻灯片上创建表格。此方法会向 Shapes集合中添加具有 NumRows 和 NumColumns参数所指定的行数和列数的表格。本示例向第二张幻灯片中添加具有三行和四列的表格。
ActivePresentation.Slides(2).Shapes _
    .AddTable NumRows:=3, NumColumns:=4, Left:=10, _
    Top:=10, Width:=288, Height:=288
检测某形状是否为表格
在要处理表格中的内容或对象之前，首先必须了解正在使用的形状是否为表格。若要查看某形状是否为表格，请使用HasTable属性。例如，假定第一张幻灯片中有许多形状，且其中有一个是表格。而您希望调整此表格的大小，以使之能接受从其他来源所导入的数据。下面的代码将遍历第二张幻灯片上的 Shapes集合以找到该表格并调整其列宽。
With ActivePresentation.Slides(2)
    For sh = 1 To .Shapes.Count
        If .Shapes(sh).HasTable Then
            For Each col In .Shapes(sh).Table.Columns
                col.Width = 110
            Next col
        End If
    Next
End With
使用单元格、列和行
若要返回单列或单行中的内容和属性，可使用Columns 或Rows集合中的特定成员。Cell方法可返回Table 中的单个Cell对象。本示例将更改第二张幻灯片上第五个形状所代表的表格的各种不同属性。它更改第二行的颜色、第一列的宽度以及包含在第二行第一列单元格中的文本。
With ActivePresentation.Slides(2).Shapes(4).Table
    For Each cl In .Rows(2).Cells
        cl.Shape.Fill.ForeColor.RGB = RGB(50, 125, 0)
    Next cl
    .Columns(1).Width = 110
    .Cell(2, 1).Shape.TextFrame.TextRange.Text = "Mallard"
End With
与语言相关的属性和方法
Microsoft PowerPoint Visual Basic对象模型具有与语言相关的关键字，可应用于亚洲和从右向左语言的使用。而这些与语言相关关键字的可用性则依赖于用户已选定或安装的语言支持。
与语言相关的属性和方法
下表列出了仅可用于亚洲语言或从右向左语言的属性和方法。
属性或方法        对象
AutoRotateNumbers属性
Font

FarEastLineBreakLanguage属性
Presentation

FarEastLineBreakLevel属性
Presentation

FarEastLineBreakControl属性
ParagraphFormat

HangingPunctuation属性
ParagraphFormat

LayoutDirection属性
Presentation

LtrRun方法
TextRange

NameAscii属性
Font

NameFarEast属性
Font

NameOther属性
Font

NoLineBreakAfter属性
Presentation

NoLineBreakBefore属性
Presentation

RtlRun方法
TextRange

TableDirection属性
Table

TextDirection属性
ParagraphFormat

与语言相关的参数

下表列出了可用于所有语言，但却具有一个或多个与语言相关参数的属性和方法。
属性或方法        对象
AddLabel方法
Shapes

AddTextBox方法
Shapes

Orientation属性
TextFrame

SaveAs方法
Presentation

注意  为了在 Microsoft PowerPoint 中启用与语言相关的功能，操作系统必须是能支持该特定语言的 32 位 Microsoft Windows；例如，阿拉伯语版的 Microsoft Windows 95 可以支持从右向左的语言。
新的事件
下表按字母顺序列出了在 Microsoft PowerPoint 2002 中为Application对象新增的事件。
ColorSchemeChanged
PresentationBeforeSave
SlideSelectionChanged

weiyingde

新的方法（按字母顺序）
下表按字母顺序列出了在 Microsoft PowerPoint 2002 中为现有对象新增的方法。
新的方法        对象
AddBaseline
Presentation
AddDiagram
Shapes
AddEffect
Sequence
AddNode
DiagramNode、DiagramNodeChildren
CanCheckIn
Presentation
CanCheckOut
Presentations
CheckIn
Presentation
CheckOut
Presentations
Clone
Designs、Sequence
CloneNode
DiagramNode
Convert
Diagram
ConvertToAfterEffect
Sequence
ConvertToAnimateBackground
Sequence
ConvertToAnimateInReverse
Sequence
ConvertToBuildLevel
Sequence
ConvertToTextUnitEffect
Sequence
DiscardConflict
Presentations
EndReview
Presentation
FindFirstAnimationFor
Sequence
FindFirstAnimationForClick
Sequence
Load
Designs
MoveAfter
Effect  
MoveBefore
Effect  
MoveNode
DiagramNode
MoveTo
Design、Effect、Slide、SlideRange
NextNode
DiagramNode
OfflineConflict
Presentations
PasteSpecial
Shapes、TextRange、View
PrevNode
DiagramNode
RemoveBaseline
Presentation
ReplaceNode
DiagramNode
ReplyWithChanges
Presentation
SendForReview
Presentation
SetCMYK
ColorFormat
SetPasswordEncryptionOptions
Presentation
SwapNode
DiagramNode
TransferChildren
DiagramNode
新的方法（按对象排序）
下表按对象名顺序列出了在 Microsoft PowerPoint 2002 中为现有对象新增的方法。
对象        新的方法
ColorFormat        SetCMYK

Design        MoveTo

Designs        Clone、Load

Diagram        Convert

DiagramNode        AddNode、CloneNode、MoveNode、NextNode、PrevNode、ReplaceNode、SwapNode、TransferChildren

DiagramNodeChildren        AddNode

Effect          MoveAfter、MoveBefore、MoveTo

Presentation        AddBaseline、CanCheckIn、CheckIn、EndReview、RemoveBaseline、ReplyWithChanges、SendForReview、SetPasswordEncryptionOptions

Presentations        CanCheckOut、CheckOut、DiscardConflict、OfflineConflict

Sequence        AddEffect、Clone,ConvertToAfterEffect、ConvertToAnimateBackground、ConvertToAnimateInReverse、ConvertToBuildLevel、ConvertToTextUnitEffect、FindFirstAnimationFor、FindFirstAnimationForClick

Shapes        AddDiagram、PasteSpecial

Slide        MoveTo

SlideRange        MoveTo

TextRange        PasteSpecial

View        PasteSpecial

weiyingde

Points属性
应用于 PropertyEffect对象的 Points属性。
返回 AnimationPoints对象，该对象代表动画中的一个点。使用From 和To属性设置此属性的值。
expression.Points
expression   必选。该表达式返回一个PropertyEffect对象。
应用于 ShapeNode对象的 Points属性。
返回 Variant 类型值，该值以坐标对形式表示指定结点的位置。每个坐标以磅为单位表示。使用SetPosition方法设置该属性的值。只读。
expression.Points
expression   必选。该表达式返回一个ShapeNode对象。
VBA示例
应用于 ShapeNode对象。
本示例将当前演示文稿中第三个形状的第二个结点向右移 200 磅，并向下移 300 磅。第三个形状必须是任意多边形。
With ActivePresentation.Slides(1).Shapes(3).Nodes
    pointsArray = .Item(2).Points
    currXvalue = pointsArray(1, 1)
    currYvalue = pointsArray(1, 2)
    .SetPosition Index:=2, X1:=currXvalue + 200, Y1:=currYvalue + 300
End With
Position属性
以磅为单位返回或设置指定制表位的位置。可读写。Single 类型。
VBA示例
本示例将活动演示文稿中第一张幻灯片上第二个形状的文本中大于一英寸（72 磅）的所有制表符删除。
With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame _
    .Ruler.TabStops
    For i = .Count To 1 Step -1
        With .Item(i)
            If .Position > 72 Then .Clear
        End With
    Next
End With
Presentation属性
返回一个Presentation对象，该对象代表创建指定文档窗口或幻灯片放映窗口的演示文稿。只读。
说明
如果在第一个文档窗口中当前放映的幻灯片来自嵌入的演示文稿，则Windows(1).View.Slide.Parent 返回该嵌入演示文稿，并且Windows(1).Presentation 返回在其中创建第一个文档窗口的演示文稿。
如果在第一个幻灯片放映窗口中当前放映的幻灯片来自嵌入的演示文稿，则SlideShowWindows(1).View.Slide.Parent 返回该嵌入演示文稿，并且SlideShowWindows(1).Presentation 返回在其中创建第一个幻灯片放映窗口的演示文稿。
VBA示例
本示例使第一个窗口中的演示文稿幻灯片编号延续到第二个窗口中。
firstPresSlides = Windows(1).Presentation.Slides.Count
Windows(2).Presentation.PageSetup _
    .FirstSlideNumber = firstPresSlides + 1

weiyingde

PresentationElapsedTime属性
返回指定的幻灯片放映开始后经过的秒数。只读。Long 类型。
VBA示例
如果幻灯片放映开始已有五分钟，本示例转向第一个幻灯片放映窗口中第七张幻灯片。
With SlideShowWindows(1).View
    If .PresentationElapsedTime > 300 Then
        .GotoSlide 7
    End If
End With
Presentations属性
返回一个Presentations集合，该集合代表所有打开的演示文稿。只读。
有关返回集合中单个元素的详细信息，请参阅返回集合中的对象。
VBA示例
本示例打开演示文稿“Long Version.ppt”。
Application.Presentations.Open _
    FileName:="c:\My Documents\Long version.ppt"
本示例将第一个演示文稿以“Year-End Report.ppt”名称保存。
Application.Presentations(1).SaveAs "Year-End Report"
本示例关闭演示文稿“Year-end report”。
Application.Presentations("Year-End Report.ppt").Close
Preserved属性
设置或返回MsoTriState 类型常数，该常数代表是否保护设计母版以避免被更改。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 设计母版尚未保护并且可进行编辑。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 此设计母版已保护并且无法编辑。
expression.Preserved
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
下面的代码行锁定并保护第一张设计母版。
Sub PreserveMaster
    ActivePresentation.Designs(1).Preserved = msoTrue
End Sub
PresetExtrusionDirection属性
返回延伸路径从延伸形状（延伸的正面）中带走的方向。只读。MsoPresetExtrusionDirection 类型。
MsoPresetExtrusionDirection 可以是下列 MsoPresetExtrusionDirection 类型常数之一。
msoExtrusionBottom
msoExtrusionBottomLeft
msoExtrusionBottomRight
msoExtrusionLeft
msoExtrusionNone
msoExtrusionRight
msoExtrusionTop
msoExtrusionTopLeft
msoExtrusionTopRight
msoPresetExtrusionDirectionMixed
expression.PresetExtrusionDirection
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
该属性为只读。若要设置该属性的值，请使用SetExtrusionDirection方法。
VBA示例
本示例将myDocument 中每个朝向延伸正面左上角的延伸更改为朝向右下角的延伸。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    With s.ThreeD
        If .PresetExtrusionDirection = msoExtrusionTopLeft Then
            .SetExtrusionDirection msoExtrusionBottomRight
        End If
    End With
Next

weiyingde

PresetGradientType属性
返回或预设指定填充的过渡类型。只读。MsoPresetGradientType 类型。使用PresetGradient方法设置该填充的预设过渡类型。
MsoPresetGradientType 可以是下列 MsoPresetGradientType 类型常数之一。
msoGradientBrass
msoGradientCalmWater
msoGradientChrome
msoGradientChromeII
msoGradientDaybreak
msoGradientDesert
msoGradientEarlySunset
msoGradientFire
msoGradientFog
msoGradientGold
msoGradientGoldII
msoGradientHorizon
msoGradientLateSunset
msoGradientMahogany
msoGradientMoss
msoGradientNightfall
msoGradientOcean
msoGradientParchment
msoGradientPeacock
msoGradientRainbow
msoGradientRainbowII
msoGradientSapphire
msoGradientSilver
msoGradientWheat
msoPresetGradientMixed
expression.PresetGradientType
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将myDocument 中所有带有 Moss 预设过渡填充的形状更改为 Fog 预设过渡填充。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    With s.Fill
        If .PresetGradientType = msoGradientMoss Then
            .PresetGradient = msoGradientFog
        End If
    End With
Next

weiyingde

PresetLightingDirection属性
返回或设置相对于延伸的光源位置。可读写。MsoPresetLightingDirection 类型。
MsoPresetLightingDirection 可以是下列 MsoPresetLightingDirection 类型常数之一。
msoLightingBottom
msoLightingBottomLeft
msoLightingBottomRight
msoLightingLeft
msoLightingNone
msoLightingRight
msoLightingTop
msoLightingTopLeft
msoLightingTopRight
msoPresetLightingDirectionMixed
expression.PresetLightingDirection
expression  必选。该表达式返回“应用于”列表中的对象之一。
注意  如果延伸的表面是线框，则不能看到光源效果。
VBA示例
本示例制定了myDocument 中第一个形状的延伸方向是朝向该形状的顶部，而且延伸的光线由左侧照入。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
    .Visible = True
    .SetExtrusionDirection msoExtrusionTop
    .PresetLightingDirection = msoLightingLeft
End With
PresetLightingSoftness属性
返回或设置延伸光源效果的亮度。可读写。MsoPresetLightingSoftness 类型。
MsoPresetLightingSoftness 可以是下列 MsoPresetLightingSoftness 类型常数之一。
msoLightingBright
msoLightingDim
msoLightingNormal
msoPresetLightingSoftnessMixed
expression.PresetLightingSoftness
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例指定了从左侧照亮myDocument 中第一个形状。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
    .Visible = True
    .PresetLightingSoftness = msoLightingBright
    .PresetLightingDirection = msoLightingLeft
End With

weiyingde

PresetMaterial属性
返回或设置延伸表面的材料。可读写。MsoPresetMaterial 类型。
MsoPresetMaterial 可以是下列 MsoPresetMaterial 类型常数之一。
msoMaterialMatte
msoMaterialMetal
msoMaterialPlastic
msoMaterialWireFrame
msoPresetMaterialMixed
expression.PresetMaterial
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例指定myDocument 中第一个形状的延伸表面为线框。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
    .Visible = True
    .PresetMaterial = msoMaterialWireFrame
End With
PresetShape属性
返回或设置指定艺术字的形状。可读写。MsoPresetTextEffectShape 类型。
MsoPresetTextEffectShape 可以是下列 MsoPresetTextEffectShape 类型常数之一。
msoTextEffectShapeArchDownCurve
msoTextEffectShapeArchDownPour
msoTextEffectShapeArchUpCurve
msoTextEffectShapeArchUpPour
msoTextEffectShapeButtonCurve
msoTextEffectShapeButtonPour
msoTextEffectShapeCanDown
msoTextEffectShapeCanUp
msoTextEffectShapeCascadeDown
msoTextEffectShapeCascadeUp
msoTextEffectShapeChevronDown
msoTextEffectShapeChevronUp
msoTextEffectShapeCircleCurve
msoTextEffectShapeCirclePour
msoTextEffectShapeCurveDown
msoTextEffectShapeCurveUp
msoTextEffectShapeDeflate
msoTextEffectShapeDeflateBottom
msoTextEffectShapeDeflateInflate
msoTextEffectShapeDeflateInflateDeflate
msoTextEffectShapeDeflateTop
msoTextEffectShapeDoubleWave2
msoTextEffectShapeFadeDown
msoTextEffectShapeFadeLeft
msoTextEffectShapeFadeRight
msoTextEffectShapeFadeUp
msoTextEffectShapeInflate
msoTextEffectShapeInflateBottom
msoTextEffectShapeInflateTop
msoTextEffectShapeMixed
msoTextEffectShapePlainText
msoTextEffectShapeRingInside
msoTextEffectShapeRingOutside
msoTextEffectShapeSlantDown
msoTextEffectShapeSlantUp
msoTextEffectShapeStop
msoTextEffectShapeTriangleDown
msoTextEffectShapeTriangleUp
msoTextEffectShapeWave1
msoTextEffectShapeWave2
msoTextEffectShapeDoubleWave1
expression.PresetShape
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
设置PresetTextEffect属性会自动设置 PresetShape属性。
VBA示例
本示例将myDocument 中的所有艺术字形状设置为中心指向下方的 V 字形。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    If s.Type = msoTextEffect Then
        s.TextEffect.PresetShape = msoTextEffectShapeChevronDown
    End If
Next

weiyingde

PresetTextEffect属性
返回或设置指定艺术字的样式。此属性的值对应于“‘艺术字’库”对话框中的格式（自左而右，自上而下编号）。可读写。MsoPresetTextEffect 类型。
MsoPresetTextEffect 可以是下列 MsoPresetTextEffect 类型常数之一。
msoTextEffect1
msoTextEffect2
msoTextEffect3
msoTextEffect4
msoTextEffect5
msoTextEffect6
msoTextEffect7
msoTextEffect8
msoTextEffect9
msoTextEffect10
msoTextEffect11
msoTextEffect12
msoTextEffect13
msoTextEffect14
msoTextEffect15
msoTextEffect16
msoTextEffect17
msoTextEffect18
msoTextEffect19
msoTextEffect20
msoTextEffect21
msoTextEffect22
msoTextEffect23
msoTextEffect24
msoTextEffect25
msoTextEffect26
msoTextEffect27
msoTextEffect28
msoTextEffect29
msoTextEffect30
msoTextEffectMixed
expression.PresetTextEffect
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
设置 PresetTextEffect属性会自动设置指定形状的许多其他格式属性。
VBA示例
本示例将myDocument 中所有的艺术字设置为“‘艺术字’库”对话框中列出的第一种样式。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    If s.Type = msoTextEffect Then
        s.TextEffect.PresetTextEffect = msoTextEffect1
    End If
Next

weiyingde

PresetTexture属性
返回和预设指定填充的纹理。只读。MsoPresetTexture 类型。
MsoPresetTexture 可以是下列 MsoPresetTexture 类型常数之一。
msoPresetTextureMixed
msoTextureBlueTissuePaper
msoTextureBouquet
msoTextureBrownMarble
msoTextureCanvas
msoTextureCork
msoTextureDenim
msoTextureFishFossil
msoTextureGranite
msoTextureGreenMarble
msoTextureMediumWood
msoTextureNewsprint
msoTextureOak
msoTexturePaperBag
msoTexturePapyrus
msoTextureParchment
msoTexturePinkTissuePaper
msoTexturePurpleMesh
msoTextureRecycledPaper
msoTextureSand
msoTextureStationery
msoTextureWalnut
msoTextureWaterDroplets
msoTextureWhiteMarble
msoTextureWovenMat
expression.PresetTexture
expression  必选。该表达式返回“应用于”列表中的对象之一。
使用PresetTextured方法为填充设置预设纹理。
VBA示例
本示例向myDocument 中添加矩形，并且设置该矩形的预设纹理以便和第二个形状的纹理相匹配。要使本示例执行，第二个形状必须使用预设纹理的填充。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    presetTexture2 = .Item(2).Fill.PresetTexture
    .AddShape(msoShapeRectangle, 100, 0, 40, 80).Fill _
        .PresetTextured presetTexture2
End With

weiyingde

PresetThreeDFormat属性
返回预设的延伸格式。每种预设延伸格式都包含一组延伸中不同属性的预设值。此属性的值对应于单击“绘图”工具栏上的“3-D”按钮时所显示的选项（自左而右、自上而下编号）。只读。MsoPresetThreeDFormat 类型。
MsoPresetThreeDFormat 可以是下列 MsoPresetThreeDFormat 类型常数之一。
msoPresetThreeDFormatMixed 延伸使用自定义的格式而不是预设格式。
msoThreeD1
msoThreeD2
msoThreeD3
msoThreeD4
msoThreeD5
msoThreeD6
msoThreeD7
msoThreeD8
msoThreeD9
msoThreeD10
msoThreeD11
msoThreeD12
msoThreeD13
msoThreeD14
msoThreeD15
msoThreeD16
msoThreeD17
msoThreeD18
msoThreeD19
msoThreeD20
expression.PresetThreeDFormat
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
该属性为只读。若要设置当前延伸的格式，可使用SetThreeDFormat方法。
VBA示例
如果该形状原来就使用自定义的延伸格式，则本示例将myDocument 中第一个形状的延伸格式设置为 3D 样式 12。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
    If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then
        .SetThreeDFormat msoThreeD12
    End If
End With