ppt学习资料

user_qrbay

AddEffect方法
返回一个Effect对象，该对象代表一个已添加到动画效果序列中的新动画效果。
expression.AddEffect(Shape, effectId, Level, trigger, Index)
expression  必选。该表达式返回“应用于”列表中的对象之一。
Shape  必选。Shape对象。添加动画效果的形状。
effectId  必选。MsoAnimEffect 类型。要应用的动画效果。
MsoAnimEffect 可以是下列 MsoAnimEffect 类型常数之一。
msoAnimEffectAppear
msoAnimEffectArcUp
msoAnimEffectAscend
msoAnimEffectBlast
msoAnimEffectBlinds
msoAnimEffectBoldFlash
msoAnimEffectBoldReveal
msoAnimEffectBoomerang
msoAnimEffectBounce
msoAnimEffectBox
msoAnimEffectBrushOnColor
msoAnimEffectBrushOnUnderline
msoAnimEffectCenterRevolve
msoAnimEffectChangeFillColor
msoAnimEffectChangeFont
msoAnimEffectChangeFontColor
msoAnimEffectChangeFontSize
msoAnimEffectChangeFontStyle
msoAnimEffectChangeLineColor
msoAnimEffectCheckerboard
msoAnimEffectCircle
msoAnimEffectColorBlend
msoAnimEffectColorReveal
msoAnimEffectColorWave
msoAnimEffectComplementaryColor
msoAnimEffectComplementaryColor2
msoAnimEffectContrastingColor
msoAnimEffectCrawl
msoAnimEffectCredits
msoAnimEffectCustom
msoAnimEffectDarken
msoAnimEffectDesaturate
msoAnimEffectDescend
msoAnimEffectDiamond
msoAnimEffectDissolve
msoAnimEffectEaseIn
msoAnimEffectExpand
msoAnimEffectFade
msoAnimEffectFadedAscend
msoAnimEffectFadedSwivel
msoAnimEffectFadedZoom
msoAnimEffectFlashBulb
msoAnimEffectFlashOnce
msoAnimEffectFlicker
msoAnimEffectFlip
msoAnimEffectFloat
msoAnimEffectFly
msoAnimEffectFold
msoAnimEffectGlide
msoAnimEffectGrowAndTurn
msoAnimEffectGrowShrink
msoAnimEffectGrowWithColor
msoAnimEffectLighten
msoAnimEffectLightSpeed
msoAnimEffectMediaPause
msoAnimEffectMediaPlay
msoAnimEffectMediaStop
msoAnimEffectPath4PointStar
msoAnimEffectPath5PointStar
msoAnimEffectPath6PointStar
msoAnimEffectPath8PointStar
msoAnimEffectPathArcDown
msoAnimEffectPathArcLeft
msoAnimEffectPathArcRight
msoAnimEffectPathArcUp
msoAnimEffectPathBean
msoAnimEffectPathBounceLeft
msoAnimEffectPathBounceRight
msoAnimEffectPathBuzzsaw
msoAnimEffectPathCircle
msoAnimEffectPathCrescentMoon
msoAnimEffectPathCurvedSquare
msoAnimEffectPathCurvedX
msoAnimEffectPathCurvyLeft
msoAnimEffectPathCurvyRight
msoAnimEffectPathCurvyStar
msoAnimEffectPathDecayingWave
msoAnimEffectPathDiagonalDownRight
msoAnimEffectPathDiagonalUpRight
msoAnimEffectPathDiamond
msoAnimEffectPathDown
msoAnimEffectPathEqualTriangle
msoAnimEffectPathFigure8Four
msoAnimEffectPathFootball
msoAnimEffectPathFunnel
msoAnimEffectPathHeart
msoAnimEffectPathHeartbeat
msoAnimEffectPathHexagon
msoAnimEffectPathHorizontalFigure8
msoAnimEffectPathInvertedSquare
msoAnimEffectPathInvertedTriangle
msoAnimEffectPathLeft
msoAnimEffectPathLoopdeLoop
msoAnimEffectPathNeutron
msoAnimEffectPathOctagon
msoAnimEffectPathParallelogram
msoAnimEffectPathPeanut
msoAnimEffectPathPentagon
msoAnimEffectPathPlus
msoAnimEffectPathPointyStar
msoAnimEffectPathRightTriangle
msoAnimEffectPathSCurve1
msoAnimEffectPathSCurve2
msoAnimEffectPathSineWave
msoAnimEffectPathSpiralLeft
msoAnimEffectPathSpiralRight
msoAnimEffectPathSpring
msoAnimEffectPathSquare
msoAnimEffectPathStairsDown
msoAnimEffectPathSwoosh
msoAnimEffectPathTeardrop
msoAnimEffectPathTrapezoid
msoAnimEffectPathTurnDown
msoAnimEffectPathTurnRight
msoAnimEffectPathTurnUp
msoAnimEffectPathTurnUpRight
msoAnimEffectPathVerticalFigure8
msoAnimEffectPathWave
msoAnimEffectPathZigzag
msoAnimEffectPeek
msoAnimEffectPinwheel
msoAnimEffectPlus
msoAnimEffectRandomBars
msoAnimEffectRandomEffects
msoAnimEffectRiseUp
msoAnimEffectShimmer
msoAnimEffectSling
msoAnimEffectSpin
msoAnimEffectSpinner
msoAnimEffectSpiral
msoAnimEffectSplit
msoAnimEffectStretch
msoAnimEffectStretchy
msoAnimEffectStrips
msoAnimEffectStyleEmphasis
msoAnimEffectSwish
msoAnimEffectSwivel
msoAnimEffectTeeter
msoAnimEffectThinLine
msoAnimEffectTransparency
msoAnimEffectUnfold
msoAnimEffectVerticalGrow
msoAnimEffectWave
msoAnimEffectWedge
msoAnimEffectWheel
msoAnimEffectWhip
msoAnimEffectWipe
msoAnimEffectZip
msoAnimEffectZoom
Level  可选。MsoAnimateByLevel 类型。对图表、图示或文本，将应用相应的动画效果级别。默认值为 msoAnimationLevelNone。

user_zqnvw

MsoAnimateByLevel 可以是下列 MsoAnimateByLevel 类型常数之一。
msoAnimateChartAllAtOnce
msoAnimateChartByCategory
msoAnimateChartByCategoryElements
msoAnimateChartBySeries
msoAnimateChartBySeriesElements
msoAnimateDiagramAllAtOnce
msoAnimateDiagramBreadthByLevel
msoAnimateDiagramBreadthByNode
msoAnimateDiagramClockwise
msoAnimateDiagramClockwiseIn
msoAnimateDiagramClockwiseOut
msoAnimateDiagramCounterClockwise
msoAnimateDiagramCounterClockwiseIn
msoAnimateDiagramCounterClockwiseOut
msoAnimateDiagramDepthByBranch
msoAnimateDiagramDepthByNode
msoAnimateDiagramDown
msoAnimateDiagramInByRing
msoAnimateDiagramOutByRing
msoAnimateDiagramUp
msoAnimateLevelMixed
msoAnimateTextByAllLevels
msoAnimateTextByFifthLevel
msoAnimateTextByFirstLevel
msoAnimateTextByFourthLevel
msoAnimateTextBySecondLevel
msoAnimateTextByThirdLevel
msoAnimationLevelNone
rigger  可选。MsoAnimTriggerType 类型。触发动画效果的动作。默认值为 msoAnimTriggerOnPageClick。
MsoAnimTriggerType 可以是下列 MsoAnimTriggerType 常数之一。
msoAnimTriggerAfterPrevious
msoAnimTriggerMixed
msoAnimTriggerNone
msoAnimTriggerOnPageClick  
msoAnimTriggerOnShapeClick
msoAnimTriggerWithPrevious
Index  可选。Long 类型。效果在动画效果集合中放置的位置。默认值为 -1（添加到末尾）。
VBA示例
以下示例将一个弹跳的动画添加到第一张幻灯片的第一个形状范围内。本示例假定形状范围包含在第一张幻灯片中选定的一个或多个形状。
Sub AddBouncingAnimation()
    Dim sldActive As Slide
    Dim shpSelected As Shape
    Set sldActive = ActiveWindow.Selection.SlideRange(1)
    Set shpSelected = ActiveWindow.Selection.ShapeRange(1)
    ' Add a bouncing animation.
    sldActive.TimeLine.MainSequence.AddEffect _
        Shape:=shpSelected, effectId:=msoAnimEffectBounce
End Sub

user_rtmzi

AddLabel方法
创建一个标签。返回一个代表新标签的Shape对象。
expression.AddLabel(Orientation, Left, Top, Width, Height)
expression  必选。该表达式返回“应用于”列表中的对象之一。
Orientation  必选。MsoTextOrientation 类型。文本方向。这些常数中的某些可能不可用，这取决于选择或安装的语言支持（例如，U.S. English）。
MsoTextOrientation 可以是下列 MsoTextOrientation 类型常数之一。
msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast
Left  必选。Single 类型。标签左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top  必选。Single 类型。标签上边缘相对于幻灯片上边缘的位置（以磅为单位）。
Width  必选。Single 类型。标签的宽度（以磅为单位）。
Height  必选。Single 类型。标签的高度（以磅为单位）。
VBA示例
本示例在 myDocument 中添加一个包含文本“Test Label”的垂直标签。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddLabel(Orientation:=msoTextOrientationVerticalFarEast, _
    Left:=100, Top:=100, Width:=60, Height:=150).TextFrame _
.TextRange.Text = "Test Label"
AddLine方法
创建线条。返回一个代表新线条的Shape对象。
expression.AddLine(BeginX, BeginY, EndX, EndY)
expression  必选。该表达式返回“应用于”列表中的对象之一。
BeginX 必选。Single 类型。线条起点相对于幻灯片左边缘的水平位置（以磅为单位）。
BeginY  必选。Single 类型。线条起点相对于幻灯片上边缘的垂直位置（以磅为单位）。
EndX  必选。Single 类型。线条终点相对于幻灯片左边缘的水平位置（以磅为单位）。
EndY  必选。Single 类型。线条终点相对于幻灯片上边缘的垂直位置（以磅为单位）。
VBA示例
本示例向 myDocument 中添加蓝色的虚线。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(BeginX:=10, BeginY:=10, _
        EndX:=250, EndY:=250).Line
    .DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(50, 0, 128)
End With
AddMediaObject方法
创建多媒体对象。返回一个代表新多媒体对象的Shape对象。
expression.AddMediaObject(FileName, Left, Top, Width, Height)
expression  必选。该表达式返回一个 Shapes对象。
FileName  必选。String 类型。创建多媒体对象所依据的文件。如果未指定路径，则使用当前工作文件夹。
Left，Top  可选。Single 类型。多媒体对象边界框左上角相对于文档左上角的位置，以磅为单位。
Width，Height  可选。Single 类型。多媒体对象边界框的宽度和高度，以磅为单位。
VBA示例
本示例向myDocument添加名为“Clock.avi”的影片。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddMediaObject FileName:="C:WINNTclock.avi", _
Left:=5, Top:=5, Width:=100, Height:=100

ppkosk168

AddNode方法
应用于 DiagramNodeChildren对象的 AddNode方法。
向图示子节点集合中添加 DiagramNode对象。
expression.AddNode(Index)
expression  必选。该表达式返回一个 DiagramNodeChildren对象。
Index  可选。Variant 类型。添加新图示节点的索引位置；0 表示添加到所有节点之前；-1 表示添加到所有节点之后；任何其他 Index 表示添加到集合中该节点之后。
应用于 DiagramNode对象的 AddNode方法。
返回一个 DiagramNode对象，该对象代表一个添加到图示的节点。
expression.AddNode(Pos)
expression  必选。该表达式返回一个 DiagramNode对象。
Pos  可选。MsoRelativeNodePosition 类型。相对于调用节点指定添加节点的位置。
MsoRelativeNodePosition 可以是下列 MsoRelativeNodePosition 常数之一。
msoAfterLastSibling
msoAfterNode 默认值
msoBeforeFirstSibling
msoBeforeNode
VBA示例
下面示例将节点添加到一个新建的图示中。
Sub CreatePyramidDiagram()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    'Adds the pyramid diagram and first node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    'Adds three more nodes to pyramid diagram
    For intNodes = 1 To 3
        dgnNode.AddNode
    Next intNodes
End Sub
AddNodes方法
在正在创建的任意多边形的末尾插入一个新段并添加定义该段的结点。可以使用该方法任意多次地为正在创建的任意多边形添加结点。当添加完结点后，使用ConvertToShape方法创建刚定义的任意多边形。若要给创建好的任意多边形添加结点，请使用ShapeNodes集合的Insert方法。
expression.AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
expression  必选。该表达式返回一个 FreeformBuilder对象。
SegmentType  必选。MsoSegmentType 类型。要添加的段类型。
MsoSegmentType 可以是下列 MsoSegmentType 类型常数之一。
msoSegmentCurve
msoSegmentLine
EditingType  必选。MsoEditingType 类型。该顶点的编辑属性；如果 SegmentType 是 msoSegmentLine，则 EditingType 必须为 msoEditingAuto。
MsoEditingType 可以是下列 MsoEditingType 类型常数之一（不能是 msoEditingSmooth 或 msoEditingSymmetric）。
msoEditingAuto
msoEditingCorner
X1  必选。Single 类型。如果新段的 EditingType 为 msoEditingAuto，则此参数指定从文档左上角到新段终点的水平距离（以磅为单位）。如果新结点的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段的第一个控制点的水平距离（以磅为单位）。
Y1  必选。Single 类型。如果新段的 EditingType 为 msoEditingAuto，则此参数指定从文档左上角到新段终点的垂直距离（以磅为单位）。如果新结点的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段的第一个控制点的垂直距离（以磅为单位）。
X2  可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段第二个控制点的水平距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。
Y2  可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段第二个控制点的垂直距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。
X3  可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段终点的水平距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。
Y3  可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段终点的垂直距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。
VBA示例
本示例在当前演示文稿的第一张幻灯片中添加一个具有五个顶点的任意多边形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _
        X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _
        X1:=480, Y1:=200
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _
        X1:=480, Y1:=400
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _
        X1:=360, Y1:=200
    .ConvertToShape
End With

tianjinliwei

AddOLEObject方法
创建 OLE对象。返回一个代表新 OLE对象的Shape对象。
expression.AddOLEObject(Left, Top, Width, Height, ClassName, FileName, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Link)
expression  必选。该表达式返回一个 Shapes对象。
Left, Top  可选。Float 类型。新对象左上角相对于幻灯片左上角的位置，以磅为单位。默认值为 0（零）。
Width, Height  可选。Float 类型。OLE对象的初始尺寸，以磅为单位。
ClassName  可选。String 类型。OLE 长类名或要创建对象的 ProgID。必须为该对象指定 ClassName 或 FileName参数，但不能同时指定两个。
FileName  可选。String 类型。创建对象所依据的文件。如果未指定路径，则使用当前工作文件夹。必须为该对象指定 ClassName 或 FileName参数，但不能同时指定两个。
DisplayAsIcon  可选。MsoTriState 类型。决定是否将 OLE对象显示为图标。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认。
msoTriStateMixed
msoTriStateToggle
msoTrue 将 OLE对象显示为图标。
IconFileName  可选。String 类型。包含要显示的图标的文件。
IconIndex  可选。Integer 类型。IconFileName 中的图标索引。指定文件中的图标顺序对应于图标在“更改图标”对话框（选中“显示为图标”复选框时，从“插入对象”对话框访问）中显示的顺序。文件中第一个图标的索引序号是 0（零）。如果 IconFileName 中不存在给定索引序号的图标，则使用索引序号为 1 的图标（文件中的第二个图标）。默认值为 0（零）。
IconLabel  可选。String 类型。要在图标下显示的标签（标题）。
Link  可选。MsoTriState 类型。 决定是否将 OLE对象链接到创建该对象的文件。如果已指定 ClassName 的值，此参数必须是 msoFalse 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认。使 OLE对象成为独立复的制文件。
msoTriStateMixed
msoTriStateToggle
msoTrue 将 OLE对象链接到创建该对象的文件。
VBA示例
本示例将一篇具有链接的 Word 文档添加到myDocument。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
    Width:=200, Height:=300, _
    FileName:="c:my documentstesting.doc", Link:=msoTrue
本示例将一个新 Microsoft Excel 工作表添加到myDocument。该工作表将显示为图标。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
    Width:=200, Height:=300, _
    ClassName:="Excel.Sheet", DisplayAsIcon:=True
本示例将一个命令按钮添加到myDocument。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
    Width:=150, Height:=50, ClassName:="Forms.CommandButton.1"
AddPeriods方法
在指定文本的每段末尾添加句号。
expression.AddPeriods
expression  必选。该表达式返回一个 TextRange对象。
说明
该方法对末尾已有句号的段落不再添加句号。
VBA示例
本示例将句号添加到活动演示文稿的第一张幻灯片中第二个形状的每个段落的末尾。
Application.ActivePresentation.Slides(1).Shapes(2).TextFrame _
    .TextRange.AddPeriods

user_pagiu

AddPicture方法
从现有文件创建图片。返回一个代表新图片的Shape对象。
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression  必选。该表达式返回“应用于”列表中的对象之一。
FileName  必选。String 类型。创建 OLE对象所依据的文件。
LinkToFile  必选。MsoTriState 类型。确定是否将图片链接到创建该图片所依据的文件。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 将图片制成该文件的一个独立副本。
msoTriStateMixed
msoTriStateToggle
msoTrue 将图片链接到创建该图片所依据的文件。
SaveWithDocument  必选。MsoTriState 类型。确定是否将已链接的图片与其插入到的文档一起保存。如果 LinkToFile 为 msoFalse，则此参数必须为 msoTrue。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 在文档中只存储链接信息。
msoTriStateMixed
msoTriStateToggle
msoTrue 将链接的图片与其插入到的文档一起保存。
Left  必选。Single 类型。图片左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top  必选。Single 类型。图片上边缘相对于幻灯片上边缘的位置（以磅为单位）。
Width，  必选。Single 类型。图片的宽度（以磅为单位）。
Height，  必选。Single 类型。图片的高度（以磅为单位）。
VBA示例
本示例在 myDocument 中添加一个从文件 Music.bmp 创建的图片，插入的图片被链接到创建该图片所依据的文件并与 myDocument 一起保存。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddPicture FileName:="c:microsoft office" & _
    "clipartmusic.bmp", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
    Left:=100, Top:=100, Width:=70, Height:=70
AddPlaceholder方法
恢复幻灯片上以前已删除的占位符。返回一个Shape 代表已恢复占位符的对象。
注意  如果未曾删除指定的占位符，此方法导致出错。
expression.AddPlaceholder(Type, Left, Top, Width, Height)
expression  必选。该表达式返回一个 Shapes对象。
Type  必选。PpPlaceholderType。 占位符的类型。类型为 ppPlaceholderVerticalBody 或 ppPlaceholderVerticalTitle 的占位符只能在版式类型为 ppLayoutVerticalText、ppLayoutClipArtAndVerticalText、ppLayoutVerticalTitleAndText 或 ppLayoutVerticalTitleAndTextOverChart 的幻灯片上找到。无法从用户界面创建以上任何版式的幻灯片；要创建这些幻灯片，必须使用Add方法或设置一个已存在幻灯片的Layout属性。
PpPlaceholderType 可以是下列 PpPlaceholderType 类型常数之一。
ppPlaceholderBitmap
ppPlaceholderBody
ppPlaceholderCenterTitle
ppPlaceholderChart
ppPlaceholderDate
ppPlaceholderFooter
ppPlaceholderHeader
ppPlaceholderMediaClip
ppPlaceholderMixed
ppPlaceholderObject
ppPlaceholderOrgChart
ppPlaceholderSlideNumber
ppPlaceholderSubtitle
ppPlaceholderTable
ppPlaceholderTitle
ppPlaceholderVerticalBody
ppPlaceholderVerticalTitle

Left, Top  可选。Single 类型。占位符左上角相对于文档左上角的位置，以磅为单位。
Width, Height  可选。Single 类型。占位符的宽度和高度，以磅为单位。
说明
如果从幻灯片中删除了多个指定类型的占位符，AddPlaceholder方法将它们依次放回到幻灯片中，从原来索引号最小的占位符开始。
VBA示例
假设活动演示文稿第二张幻灯片顶部原来有一个标题，该标题被手动或以下代码删除。
ActivePresentation.Slides(2).Shapes.Placeholders(1).Delete
本示例将已删除的占位符恢复到第二张幻灯片中。
Application.ActivePresentation.Slides(2) _
    .Shapes.AddPlaceholder ppPlaceholderTitle

user_zyaab

AddPolyline方法
创建一个不封闭的连续线段或一个封闭的多边形。返回一个代表新的连续线段或多边形的Shape对象。
expression.AddPolyline(SafeArrayOfPoints)
expression  必选。该表达式返回“应用于”列表中的对象之一。
SafeArrayOfPoints  必选。Variant 类型。一个坐标数值对数组，该数组指定连续线段图形的顶点。
说明
若要组成一个封闭的多边形，请为连续线段图形的第一个和最后一个顶点指定相同的坐标。
VBA示例
本示例在 myDocument 中添加一个三角形。由于第一个和最后一个点具有相同的坐标，所以该多边形是封闭的并且带填充效果。该三角形内的颜色为默认的形状填充色。
Dim triArray(1 To 4, 1 To 2) As Single
triArray(1, 1) = 25
triArray(1, 2) = 100
triArray(2, 1) = 100
triArray(2, 2) = 150
triArray(3, 1) = 150
triArray(3, 2) = 50
triArray(4, 1) = 25     ' Last point has same coordinates as first
triArray(4, 2) = 100
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddPolyline SafeArrayOfPoints:=triArray
AddShape方法
创建一个自选图形。返回一个代表新自选图形的Shape对象。
expression.AddShape(Type, Left, Top, Width, Height)
expression  必选。该表达式返回“应用于”列表中的对象之一。
Type  必选。MsoAutoShapeType 类型。指定要创建的自选图形类型。
MsoAutoShapeType 可以是下列 MsoAutoShapeType 类型常数之一。
msoShapeFlowchartConnector
msoShapeFlowchartData
msoShapeFlowchartDecision
msoShapeFlowchartDelay
msoShapeFlowchartDirectAccessStorage
msoShapeFlowchartDisplay
msoShapeFlowchartDocument
msoShapeFlowchartExtract
msoShapeFlowchartInternalStorage
msoShapeFlowchartMagneticDisk
msoShapeFlowchartManualInput
msoShapeFlowchartManualOperation
msoShapeFlowchartMerge
msoShapeFlowchartMultidocument
msoShapeFlowchartOffpageConnector
msoShapeFlowchartOr
msoShapeFlowchartPredefinedProcess
msoShapeFlowchartPreparation
msoShapeFlowchartProcess
msoShapeFlowchartPunchedTape
msoShapeFlowchartSequentialAccessStorage
msoShapeFlowchartSort
msoShapeFlowchartStoredData
msoShapeFlowchartSummingJunction
msoShapeFlowchartTerminator
msoShapeFoldedCorner
msoShapeHeart
msoShapeHexagon
msoShapeHorizontalScroll
msoShapeIsoscelesTriangle
msoShapeLeftArrow
msoShapeLeftArrowCallout
msoShapeLeftBrace
msoShapeLeftBracket
msoShapeLeftRightArrow
msoShapeLeftRightArrowCallout
msoShapeLeftRightUpArrow
msoShapeLeftUpArrow
msoShapeLightningBolt
msoShapeLineCallout1
msoShapeLineCallout1AccentBar
msoShapeLineCallout1BorderandAccentBar
msoShapeLineCallout1NoBorder
msoShapeLineCallout2
msoShapeLineCallout2AccentBar
msoShapeLineCallout2BorderandAccentBar
msoShapeLineCallout2NoBorder
msoShapeLineCallout3
msoShapeLineCallout3AccentBar
msoShapeLineCallout3BorderandAccentBar
msoShapeLineCallout3NoBorder
msoShapeLineCallout4
msoShapeLineCallout4AccentBar
msoShapeLineCallout4BorderandAccentBar
msoShapeLineCallout4NoBorder
msoShapeMixed
msoShapeMoon
msoShapeNoSymbol
msoShapeNotchedRightArrow
msoShapeNotPrimitive
msoShapeOctagon
msoShapeOval
msoShapeOvalCallout
msoShapeParallelogram
msoShapePentagon
msoShapePlaque
msoShapeQuadArrow
msoShapeQuadArrowCallout
msoShapeRectangle
msoShapeRectangularCallout
msoShapeRegularPentagon
msoShapeRightArrow
msoShapeRightArrowCallout
msoShapeRightBrace
msoShapeRightBracket
msoShapeRightTriangle
msoShapeRoundedRectangle
msoShapeRoundedRectangularCallout
msoShapeSmileyFace
msoShapeStripedRightArrow
msoShapeSun
msoShapeTrapezoid
msoShapeUpArrow
msoShapeUpArrowCallout
msoShapeUpDownArrow
msoShapeUpDownArrowCallout
msoShapeUpRibbon
msoShapeUTurnArrow
msoShapeVerticalScroll
msoShapeWave
msoShapeFlowchartCollate
msoShape16pointStar
msoShape24pointStar
msoShape32pointStar
msoShape4pointStar
msoShape5pointStar
msoShape8pointStar
msoShapeActionButtonBackorPrevious
msoShapeActionButtonBeginning
msoShapeActionButtonCustom
msoShapeActionButtonDocument
msoShapeActionButtonEnd
msoShapeActionButtonForwardorNext
msoShapeActionButtonHelp
msoShapeActionButtonHome
msoShapeActionButtonInformation
msoShapeActionButtonMovie
msoShapeActionButtonReturn
msoShapeActionButtonSound
msoShapeArc
msoShapeBalloon
msoShapeBentArrow
msoShapeBentUpArrow
msoShapeBevel
msoShapeBlockArc
msoShapeCan
msoShapeChevron
msoShapeCircularArrow
msoShapeCloudCallout
msoShapeCross
msoShapeCube
msoShapeCurvedDownArrow
msoShapeCurvedDownRibbon
msoShapeCurvedLeftArrow
msoShapeCurvedRightArrow
msoShapeCurvedUpArrow
msoShapeCurvedUpRibbon
msoShapeDiamond
msoShapeDonut
msoShapeDoubleBrace
msoShapeDoubleBracket
msoShapeDoubleWave
msoShapeDownArrow
msoShapeDownArrowCallout
msoShapeDownRibbon
msoShapeExplosion1
msoShapeExplosion2
msoShapeFlowchartAlternateProcess
msoShapeFlowchartCard
Left  必选。Single 类型。自选图形左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top  必选。Single 类型。自选图形上边缘相对于幻灯片上边缘的位置（以磅为单位）。
Width  必选。Single 类型。自选图形的宽度（以磅为单位）。
Height  必选。Single 类型。自选图形的高度（以磅为单位）。
说明
若要更改添加的自选图形的类型，请设置AutoShapeType属性。
VBA示例
本示例在myDocument中添加一个矩形。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape Type:=msoShapeRectangle, _
    Left:=50, Top:=50, Width:=100, Height:=200

user_skganykg

AddTable方法
将表格形状添加到幻灯片中。
expression.AddTable(NumRows, NumColumns, Left, Top, Width, Height)
expression  必选。该表达式返回一个 Shape对象。
NumRows  必选。Long 类型。表格中的行数。
NumColumns  必选。Long 类型。表格中的列数。
Left  可选。Single 类型。从幻灯片左边缘到表格左边缘之间的距离，以磅为单位。
Top  可选。Single 类型。从幻灯片上边缘到表格上边缘之间的距离，以磅为单位。
Width  可选。Single 类型。新表格的宽度，以磅为单位。
Height  可选。Single 类型。新表格的高度，以磅为单位。
VBA示例
本示例在活动演示文稿的第二张幻灯片上创建一张新表格。该表格具有三个行，四个列。它到幻灯片左、上边缘的距离均为 10 磅。该新表格的宽度为 288 磅，这样，表格中四个列的宽度都是一英寸（一英寸等于 72 磅）。表格的高度设为 216 磅，这样，表格中三个行的高度都是一英寸。
ActivePresentation.Slides(2).Shapes _
    .AddTable(3, 4, 10, 10, 288, 216)
AddTextbox方法
创建一个文本框。返回一个代表新文本框的Shape对象。
expression.AddTextbox(Orientation, Left, Top, Width, Height)
expression  必选。该表达式返回“应用于”列表中的对象之一。
Orientation  必选。MsoTextOrientation 类型。文本方向。这些常数中的某些可能不可用，这取决于选择或安装的语言支持（例如，U.S. English）。
MsoTextOrientation 可以是下列 MsoTextOrientation 类型常数之一。
msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast
Left  必选。Single 类型。文本框左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top  必选。Single 类型。文本框上边缘相对于幻灯片上边缘的位置（以磅为单位）。
Width  必选。Single 类型。文本框的宽度（以磅为单位）。
Height  必选。Single 类型。文本框的高度（以磅为单位）。
VBA示例
本示例在myDocument 中添加一个包含文本“Test Box”的文本框。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddTextbox(Type:=msoTextOrientationHorizontal, _
    Left:=100, Top:=100, Width:=200, Height:=50).TextFrame _
    .TextRange.Text = "Test Box"

he2516

AddTextEffect方法
创建艺术字对象。返回一个代表新艺术字对象的Shape对象。
expression.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)
expression  必选。该表达式返回“应用于”列表中的对象之一。
PresetTexture  必选。MsoPresetTexture 类型。预设的文本效果。
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
Text  必选。String 类型。艺术字的文本。
FontName  必选。String 类型。艺术字中使用的字体名称。
FontSize  必选。Single 类型。艺术字中使用的字体大小（以磅为单位）。
FontBold  必选。MsoTriState 类型。确定艺术字中使用的字体是否设为粗体。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 将艺术字中的字体设为粗体。
FontItalic  必选。MsoTriState 类型。确定艺术字中使用的字体是否设为斜体。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 将艺术字中的字体设为斜体。
Left  必选。Single 类型。艺术字边界框左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top  必选。Single 类型。艺术字边界框上边缘相对于幻灯片上边缘的位置（以磅为单位）。
说明
在文档中添加艺术字时，艺术字的高度和宽度会根据指定文本的大小和数量自动调整。
VBA示例
本示例在 myDocument 中添加包含文本“Test”的艺术字。
Set myDocument = ActivePresentation.Slides(1)
Set newWordArt = myDocument.Shapes _
    .AddTextEffect(PresetTextEffect:=msoTextEffect1, _
    Text:="Test", FontName:="Arial Black", FontSize:=36, _
    FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, Top:=10)
AddTitle方法
将以前已删除的标题占位符恢复到幻灯片上。返回一个代表已恢复标题的Shape对象。
注意  如果未曾从指定幻灯片删除标题占位符，该方法将导致出错。请使用HasTitle属性确定是否已删除标题占位符。
expression.AddTitle
expression  必选。该表达式返回一个 Shapes对象。
VBA示例
如果此标题占位符已删除，本示例将其恢复到活动演示文稿第一张幻灯片。恢复后的标题文本为“Restored title”。
With ActivePresentation.Slides(1)
    If .Layout <> ppLayoutBlank Then
        With .Shapes
            If Not .HasTitle Then
                .AddTitle.TextFrame.TextRange _
                    .Text = &quot;Restored title&quot;
            End If
        End With
    End If
End With

user_cfvka

AddTitleMaster方法
为指定演示文稿添加一个标题母版。返回一个代表该标题母版的Master对象。如果演示文稿已经有标题母版，该方法将产生一个错误。
expression.AddTitleMaster
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例中，如果当前演示文稿没有标题母版，将为其添加一个标题母版。
With Application.ActivePresentation
    If Not .HasTitleMaster Then .AddTitleMaster
End With
AddToFavorites方法
在 Windows 程序文件夹的 Favorites 文件夹中，添加一个快捷方式，以代表指定演示文稿的当前选择内容（对于Presentation对象）或指定超链接的目标文档（对于Hyperlink对象）。
expression.AddToFavorites
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
如果文档名称可用作快捷方式的长名，则使用该长名，否则快捷方式名称由 HLINK.DLL 决定。
VBA示例
本示例在 Windows 程序文件夹的 Favorites 中添加一个指向当前演示文稿的超链接。
Application.ActivePresentation.AddToFavorites
Align方法
对齐指定形状范围内的形状。
expression.Align(AlignCmd, RelativeTo)
expression  必选。该表达式返回一个 ShapeRange对象。
AlignCmd  必选。MsoAlignCmd 类型。指定形状在指定形状范围内的对齐方式。
MsoAlignCmd 可以是下列 MsoAlignCmd 类型常数之一。
msoAlignBottoms
msoAlignCenters
msoAlignLefts
msoAlignMiddles
msoAlignRights
msoAlignTops
RelativeTo    必选。MsoTriState 类型。决定形状是否与幻灯片边缘对齐。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 形状相互对齐。
msoTriStateMixed
msoTriStateToggle
msoTrue 形状与幻灯片边缘对齐。
VBA示例
本示例将myDocument 中指定范围内所有形状的左边缘与该范围内最左边形状的左边缘对齐。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.Range.Align msoAlignLefts, msoFalse
Apply方法
应用于指定的形状格式，该形状格式已使用PickUp方法复制。
expression.Apply
expression  必选。该表达式返回一个 Shape 或 ShapeRange对象。
VBA示例
本示例复制myDocument 上第一个形状的格式，再将所复制的格式应用于第二个形状。
Set myDocument = ActivePresentation.Slides(1)
With myDocument
    .Shapes(1).PickUp
    .Shapes(2).Apply
End With
ApplyTemplate方法
将设计模板应用于指定的演示文稿。
expression.ApplyTemplate(FileName)
expression  必选。该表达式返回一个 Presentation对象。
FileName  必选。String 类型。指定设计模板的名称。
注意  如果在字符串中引用已卸载的演示文稿设计模板，会产生一个运行错误。该模板可能由于FeatureInstall属性设置而无法自动安装。若要使用当前未安装的模板的 ApplyTemplate方法，必须首先安装附加的设计模板。方法是：通过运行 Microsoft Office 安装程序（使用 Windows 控制面板中的添加/删除程序图标）为 PowerPoint 安装附加设计模板。
VBA示例
本示例将“Professional”设计模板应用于活动演示文稿。
Application.ActivePresentation.ApplyTemplate _
    &quot;c:program filesmicrosoft officetemplates&quot; & _
    &quot;presentation designsprofessional.pot&quot;