ppt学习资料

weiyingde

MoveTo方法
将指定对象移动到同一集合中的指定位置，并适当地对集合中所有其他项目进行重新编号。
expression.MoveTo(toPos)
expression  必选。该表达式返回“应用于”列表中的对象之一。
toPos  必选。Long 类型。要将动画效果移动到的索引。
VBA示例
本示例在指定形状的动画效果集合中将一个动画效果移动到第二个动画效果的位置上。
Sub MoveEffect()
    Dim sldFirst as Slide
    Dim shpFirst As Shape
    Dim effAdd As Effect
    Set sldFirst = ActivePresentation.Slides(1)
    Set shpFirst = sldFirst.Shapes(1)
    Set effAdd = sldFirst.TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlinds)
    effAdd.MoveTo toPos:=2
End Sub
本示例将当前演示文稿中的第二张幻灯片移动到第一张幻灯片的位置上。
Sub MoveSlideToNewLocation()
    ActivePresentation.Slides(2).MoveTo toPos:=1
End Sub
Name方法
以 String 类型返回一个指定标签的名称。
expression.Name(Index)
expression   必选。该表达式返回一个 Tags集合。
Index   必选。Long 类型。标签号。
VBA示例
本示例显示与活动演示文稿的第一张幻灯片关联的每个标签的名称和值。
With Application.ActivePresentation.Slides(1).Tags
    For i = 1 To .Count
        MsgBox "Tag #" & i & ": Name = " & .Name(i)
        MsgBox "Tag #" & i & ": Value = " & .Value(i)
    Next
End With
本示例搜索当前演示文稿的每张幻灯片的标签，如果存在名为“PRIORITY”的标签，则以一消息框显示该标签的值；如果不存在，则添加该标签，并设定标签值为“Unknown”。
For Each s In Application.ActivePresentation.Slides
    With s.Tags
        found = False
        For i = 1 To .Count
            If .Name(i) = "PRIORITY" Then
                found = True
                slNum = .Parent.SlideIndex
                MsgBox "Slide " & slNum & _
                    " priority: " & .Value(i)
            End If
        Next
        If Not found Then
            slNum = .Parent.SlideIndex
            .Add "Name", "New Figures"
            .Add "Priority", "Unknown"
            MsgBox "Slide " & slNum & _
                " priority tag added: Unknown"
        End If
    End With
Next

weiyingde

NewWindow方法
Presentation对象：打开一个包含指定演示文稿的新窗口。返回一个代表新窗口的DocumentWindow对象。
DocumentWindow对象：打开一个包含指定窗口中文档的新窗口。返回一个代表新窗口的DocumentWindow对象。
expression.NewWindow
expression   必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例创建一个与当前窗口有相同内容的新窗口（同时激活新窗口）并返回到原窗口。
Set oldW = Application.ActiveWindow
Set newW = oldW.NewWindow
oldW.Activate
Next方法
显示紧随当前显示幻灯片之后的幻灯片。如果显示的是最后一张幻灯片，Next方法会关闭演讲者模式的幻灯片放映而返回到展台模式的第一张幻灯片。使用 SlideShowWindow对象的View属性返回 SlideShowView对象。
expression.Next
expression   必选。该表达式返回“应用于”列表中的项目之一。
VBA示例
本示例在第一个幻灯片放映窗口中放映正在播放的幻灯片的下一张。
SlideShowWindows(1).View.Next
NextNode方法
返回DiagramNode对象，该对象代表图示节点集合中的下一个图示节点。
expression.NextNode
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例创建一个组织结构图，并为中间的图示节点添加子节点。
Sub AddChildrenToMiddle()
    Dim dgnNode As DiagramNode
    Dim dgnNext As DiagramNode
    Dim shpOrgChart As Shape
    Dim intNodes As Integer
    'Add organization chart and first child node
    Set shpOrgChart = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpOrgChart.DiagramNode.Children.AddNode
    'Add three additional nodes to root node
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
    'Set dgnNode variable to the middle node
    Set dgnNext = dgnNode.Children.Item(1).NextNode
    'Add three child nodes to middle node
    For intNodes = 1 To 3
        dgnNext.Children.AddNode
    Next intNodes
End Sub

weiyingde

OneColorGradient方法
设置指定填充为单色过渡。
expression.OneColorGradient(Style, Variant, Degree)
expression  必选。该表达式返回一个 FillFormat对象。
Style  必选。MsoGradientStyle 类型。过渡样式。
MsoGradientStyle 可以是下列 MsoGradientStyle 类型常数之一。
msoGradientDiagonalDown
msoGradientDiagonalUp
msoGradientFromCenter
msoGradientFromCorner
msoGradientFromTitle
msoGradientHorizontal
msoGradientMixed
msoGradientVertical
Variant  必选。Long 类型。过渡变量。可为 1 到 4 之间的值，对应于“填充效果”对话框的“过渡”选项卡中的四个变量。如果 Style 为 msoGradientFromTitle 或 msoGradientFromCenter，则该参数可为 1 或 2。
Degree  必选。Single 类型。过渡的度数。可为 0.0（暗）到 1.0（亮）之间的值。
VBA示例
本示例在myDocument 中添加一个具有单色过渡填充效果的矩形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
        .AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill
    .ForeColor.RGB = RGB(0, 128, 128)
    .OneColorGradient msoGradientHorizontal, 1, 1
End With
Open方法
打开指定的演示文稿。返回Presentation对象，该对象代表已打开的演示文稿。
expression.Open(FileName, ReadOnly, Untitled, WithWindow, OpenConflictDocument)
expression  必选。该表达式返回一个Presentations集合。
FileName  必选。String 类型。要打开的文件的名称。
ReadOnly  可选。MsoTriState 类型。指定以可读写或只读状态打开演示文稿。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认值。以可读写状态打开文件。
msoTriStateMixed
msoTriStateToggle
msoTrue 以只读状态打开文件。
Untitled  可选。MsoTriState 类型。指定文件是否有标题。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认值。文件名自动成为已打开演示文稿的标题。
msoTriStateMixed
msoTriStateToggle
msoTrue 打开一个没有标题的文件。等于创建一个文件副本。
WithWindow  可选。MsoTriState 类型。指定文件是否可见。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 隐藏已打开的演示文稿。
msoTriStateMixed
msoTriStateToggle
msoTrue 默认值。在可视窗口中打开文件。
OpenConflictDocument  可选。MsoTriState 类型。指定是否为有脱机冲突的演示文稿打开冲突文件。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认值。打开服务器文件并忽略冲突文档。
msoTriStateMixed
msoTriStateToggle
msoTrue 打开冲突文件并覆盖服务器文件。
说明
安装适当的文件转换程序后，Microsoft PowerPoint 可打开具有下列 MS-DOS 文件扩展名的文件：.ch3、.cht、.doc、.htm、.html、.mcw、.pot、.ppa、.pps、.ppt、.pre、.rtf、.sh3、.shw、.txt、.wk1、.wk3、.wk4、.wpd、.wpf、.wps 和 .xls。
VBA示例
本示例以只读状态打开一个演示文稿。
Presentations.Open FileName:="c:\My Documents\pres1.ppt", _
    ReadOnly:=msoTrue

weiyingde

Paragraphs方法
返回一个代表指定文本段落的子集的 TextRange对象。有关计算或浏览文本区域内段落的详细信息，请参阅TextRange对象。
expression.Paragraphs(Start, Length)
expression  必选。该表达式返回一个 TextRange对象。
Start  可选。Long 类型。返回的区域的第一段。
Length  可选。Long 类型。要返回的段数。
说明
如果 Start 和 Length 都省略，返回的内容从第一段开始，以指定范围的最后一段结束。
如果指定 Start 而忽略 Length，则返回内容包含一个段落。
如果指定 Length 而忽略 Start，返回的内容从指定区域的第一段开始。
如果 Start参数大于指定文本的段落数，返回的内容从指定文本区域的最后一段开始。
如果 Length参数大于从指定的起始段到文本末尾的段落数，返回的内容包括所有这些段落。
VBA示例
本示例将当前演文示稿第一张幻灯片第二个形状的第二段前两行设为斜体。
Application.ActivePresentation.Slides(1).Shapes(2) _
    .TextFrame.TextRange.Paragraphs(2) _
    .Lines(1, 2).Font.Italic = True
Paste方法
应用于 Shapes对象的 Paste方法。
在 z 顺序的最上端将剪贴板上的形状、幻灯片或文本粘贴到指定 Shapes集合中。每个粘贴对象都成为指定 Shapes集合的成员。如果剪贴板包含全部幻灯片，幻灯片将作为包含幻灯片图像的形状粘贴。如果剪贴板包含文本内容，该文本将粘贴到一个新创建的 TextFrame 形状中。返回一个代表粘贴对象的ShapeRange对象。
expression.Paste
expression  必选。该表达式返回上述对象之一。
应用于 Slides对象的 Paste方法。
将剪贴板上的幻灯片粘贴到演示文稿的 Slides集合中。指定要在何处使用 Index参数插入幻灯片。返回一个代表粘贴对象的SlideRange对象。每个粘贴的幻灯片都成为指定 Slides集合的成员。
expression.Paste(Index)
expression  必选。该表达式返回上述对象之一。
Index  可选。Integer 类型。表示剪贴板上的幻灯片要粘贴在其之前的幻灯片索引号。如果省略本参数，剪贴板上的幻灯片将粘贴在演示文稿的最后一张幻灯片后。
应用于 TextRange对象的 Paste方法。
将剪贴板上的文本粘贴到指定文本内容中，返回一个代表粘贴文本的 TextRange对象。
expression.Paste
expression  必选。该表达式返回上述对象之一。
应用于 View对象的 Paste方法。
将剪贴板上的内容粘贴到当前视图中。试图将对象粘贴到不接受它的视图中时出现一个错误。有关视图和要粘贴到视图中的对象的信息，请参阅“说明”一节。
expression.Paste
expression  必选。该表达式返回上述对象之一。
说明
将剪贴板内容粘贴到视图之前，请使用ViewType属性设置窗口的视图。下列表格显示了对每种视图可以插入的内容
视图        可插入下列内容
幻灯片视图或备注页视图        形状、文本或整张幻灯片。如果从剪贴板粘贴一个幻灯片，该幻灯片的图像将作为嵌入对象被插入到幻灯片、母版或备注页中；如果选中形状，粘贴的文本将附加到形状文本之后；如果选中文本，粘贴的文本将替换选中的文本；如果选中任何其他对象，粘贴的文本将被放到它自己的文本框中。粘贴的形状将被放到 z 顺序的最上端且不会替换选中的形状。
大纲视图        文本或整张幻灯片。不能向大纲视图粘贴形状。粘贴的幻灯片将被插到插入点所在的幻灯片之前。
幻灯片浏览视图        整张幻灯片。不能向幻灯片浏览视图粘贴形状或文本。粘贴的幻灯片将被插到插入点处或演示文稿中最后选中的一张幻灯片之后。
VBA示例
应用于 Shapes对象。
本示例将当前演示文稿第一张幻灯片的第一个形状复制到剪贴板，然后将其粘贴到第二张幻灯片。
With ActivePresentation
    .Slides(1).Shapes(1).Copy
    .Slides(2).Shapes.Paste
End With
本示例剪切当前演示文稿第一张幻灯片第一个形状的文本，将其放到剪贴板，然后将其粘贴到同一幻灯片第二个形状第一个字之后。
With ActivePresentation.Slides(1)
    .Shapes(1).TextFrame.TextRange.Cut
    .Shapes(2).TextFrame.TextRange.Words(1).InsertAfter.Paste
End With
应用于 Slides对象。
本示例从演示文稿“Old Sales”中剪切第三张和第五张幻灯片，然后将它们插入到当前演示文稿第四张幻灯片之前。
Presentations("Old Sales").Slides.Range(Array(3, 5)).Cut
ActivePresentation.Slides.Paste 4
应用于 View对象。
本示例在第一个窗口中复制选定幻灯片到剪贴板并将其复制到第二个窗口的视图中。如果剪贴板的内容不能粘贴到第二个窗口的视图中（例如：如果试图粘贴一形状到幻灯片浏览视图中）本示例失败。
Windows(1).Selection.Copy
Windows(2).View.Paste
本示例将第一个窗口中选中的内容复制到剪贴板（请确认第一个窗口在幻灯片视图中），然后将剪贴板内容复制到第二个窗口的视图。
Windows(1).Selection.Copy
With Windows(2)
    .ViewType = ppViewSlide
    .View.Paste
End With

weiyingde

PasteSpecial方法
使用特定格式粘贴剪贴板内容。尽管使用此方法的语法对“应用于”列表中的所有对象来讲是相同的，但是根据调用 PasteSpecial方法的对象的不同，操作还是有略微的区别。
对象        操作
Shapes
以指定格式将该形状添加到形状集合中。如果指定数据类型为文本数据类型，则创建一个具有文本的新文本框。如果粘贴成功，PasteSpecial方法将返回一个ShapeRange对象，该对象代表粘贴的形状范围。

TextRange
以指定格式用剪贴板上的内容替换文本范围。此对象的有效数据类型为 ppPasteText、ppPasteHTML 和 ppPasteRTF 类型（任何其他格式都会产生错误）。如果粘贴成功，此方法将返回一个 TextRange对象，该对象代表粘贴的文本范围。
View
将剪贴板上的当前内容粘贴到 View对象代表的视图中。PasteSpecial方法的有效视图与Paste方法的有效视图相同。如果数据类型不能粘贴到视图中（例如，试图将图片粘贴到“幻灯片浏览视图”中），则会产生错误。
expression.PasteSpecial(DataType, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Link)
expression  必选。该表达式返回上述对象之一。
DataType  必选。PpPasteDataType 类型。将剪贴板内容插入到文档中所使用的格式。默认值根据剪贴板上内容的不同而变化。如果剪贴板内容不支持 DataType参数中的指定数据类型，则会产生错误。
PpPasteDataType 可以是下列 PpPasteDataType 类型常数之一。
ppPasteBitmap
ppPasteDefault 默认值
ppPasteEnhancedMetafile
ppPasteGIF
ppPasteHTML
ppPasteJPG
ppPasteMetafilePicture
ppPasteOLEObject
ppPastePNG
ppPasteRTF
ppPasteShape
ppPasteText
DisplayAsIcon  可选。MsoTriState 类型。属性值为 MsoTrue 时，将已嵌入（或链接）的对象显示为图标。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此方法。
msoFalse 默认值。不将已嵌入（或链接）的对象显示为图标。
msoTriStateMixed 不应用于此方法。
msoTriStateToggle 不应用于此方法。
msoTrue 将已嵌入（或链接）的对象显示为图标。
IconFileName  可选。String 类型。如果 DisplayAsIcon 设置为 msoTrue，则此参数为存储显示图标的文件的路径和文件名。如果 DisplayAsIcon 设置为 msoFalse，则忽略此参数。
IconIndex  可选。Long 类型。如果 DisplayAsIcon 设置为 msoTrue，则此参数为一个编号，该编号对应于由 IconFilename 指定的要在程序文件中使用的图标。图标出现在“更改图标”对话框中，此对话框可从“常用”工具栏访问（“插入”菜单，“对象”命令，“新建”选项）：值为 0（零）对应于第一个图标，值为 1对应于第二个图标，依次类推。如果忽略此参数，则使用第一个（默认）图标。如果 DisplayAsIcon 设置为 msoFalse，则忽略此参数。如果 IconIndex 在有效范围之外，则使用默认图标（索引值为 0）。
IconLabel  可选。String 类型。如果 DisplayAsIcon 设置为 msoTrue，此参数为出现在该图标下的文本。如果此标签丢失，Microsoft PowerPoint 将基于剪贴板内容生成一个图标标签。如果 DisplayAsIcon 设置为 msoFalse，则忽略此参数。
Link  可选。MsoTriState 类型。决定是否创建到剪贴板内容的源文件的链接。如果剪贴板内容不支持链接，则会产生错误。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此方法。
msoFalse 默认值。不创建到剪贴板内容的源文件的链接。
msoTriStateMixed 不应用于此方法。
msoTriStateToggle 不应用于此方法。
msoTrue 创建到剪贴板内容源文件的链接。
说明
调用 PasteSpecial方法时，如果剪贴板上没有数据，则会产生错误。
VBA示例
以下示例将一个位图图像以图标形式粘贴到另一窗口中。本示例假设有两个打开的窗口，当前选中的是第一个窗口中的位图图像。
Sub PasteOLEObject()
    Windows(1).Selection.Copy
    Windows(2).View.PasteSpecial DataType:=ppPasteOLEObject, _
        DisplayAsIcon:=msoTrue, IconLabel:="New Bitmap Image"
End Sub

weiyingde

Patterned方法
将指定填充设为一种图案。
expression.Patterned(Pattern)
expression  必选。该表达式返回一个 FillFormat对象。
Pattern  必选。MsoPatternType 类型。用于指定填充的图案。
MsoPatternType 可以是下列 MsoPatternType 类型常数之一。
msoPattern10Percent
msoPattern20Percent
msoPattern25Percent
msoPattern30Percent
msoPattern40Percent
msoPattern50Percent
msoPattern5Percent
msoPattern60Percent
msoPattern70Percent
msoPattern75Percent
msoPattern80Percent
msoPattern90Percent
msoPatternDarkDownwardDiagonal
msoPatternDarkHorizontal
msoPatternDarkUpwardDiagonal
msoPatternDashedDownwardDiagonal
msoPatternDashedHorizontal
msoPatternDashedUpwardDiagonal
msoPatternDashedVertical
msoPatternDiagonalBrick
msoPatternDivot
msoPatternDottedDiamond
msoPatternDottedGrid
msoPatternHorizontalBrick
msoPatternLargeCheckerBoard
msoPatternLargeConfetti
msoPatternLargeGrid
msoPatternLightDownwardDiagonal
msoPatternLightHorizontal
msoPatternLightUpwardDiagonal
msoPatternLightVertical
msoPatternMixed
msoPatternNarrowHorizontal
msoPatternNarrowVertical
msoPatternOutlinedDiamond
msoPatternPlaid
msoPatternShingle
msoPatternSmallCheckerBoard
msoPatternSmallConfetti
msoPatternSmallGrid
msoPatternSolidDiamond
msoPatternSphere
msoPatternTrellis
msoPatternWave
msoPatternWeave
msoPatternWideDownwardDiagonal
msoPatternWideUpwardDiagonal
msoPatternZigZag
msoPatternDarkVertical
说明
使用BackColor 和ForeColor属性设置图案使用的颜色。
VBA示例
本示例将一个带有图案填充的椭圆添加到myDocument。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(msoShapeOval, 60, 60, 80, 40).Fill
    .ForeColor.RGB = RGB(128, 0, 0)
    .BackColor.RGB = RGB(0, 0, 255)
    .Patterned msoPatternDarkVertical
End With

weiyingde

PickUp方法
复制指定形状的格式。使用Apply方法将复制的格式应用于其他形状。
expression.PickUp
expression  必选。该表达式返回一个 Shape 或 ShapeRange对象。
VBA示例
本示例在myDocument 上复制第一个形状的格式，然后将该格式应用于第二个形状。
Set myDocument = ActivePresentation.Slides(1)
With myDocument
    .Shapes(1).PickUp
    .Shapes(2).Apply
End With
Picture方法
当 BulletFormat对象的Type属性值为 ppBulletPicture 时，此方法可设置在项目符号列表中表示项目符号的图形文件。
expression.Picture (Picture)
expression   必选。一个表达式，可返回 ppBulletPicture 类型的 BulletFormat对象。
Picture   必选。String 类型。有效图形文件的路径和文件名。
说明
有效的图形文件包括具有如下扩展名的文件：
.bmp、.cdr、.cgm、.drw、.dxf、.emf、.eps、.gif、.jpg、.jpeg、.pcd、.pct、.pcx、.pict、.png、.tga、.tiff、.wmf 和 .wpg。
VBA示例
本示例将第一张幻灯片上第二个形状所指定的文本框内的项目符号设置成一个蓝色铆钉状的位图。
With ActivePresentation.Slides(1).Shapes(2).TextFrame
    With .TextRange.ParagraphFormat.Bullet
        .Type = ppBulletPicture
        .Picture ("C:\Windows\Blue Rivets.bmp")
    End With
End With
Play方法
播放指定的声音效果。
expression.Play
expression  必选。该表达式返回一个 SoundEffect对象。
VBA示例
本示例播放声音效果，该音效是为转换到当前演示文稿的第二张幻灯片而设置的。
ActivePresentation.Slides(2).SlideShowTransition.SoundEffect.Play
PointsToScreenPixelsX方法
将横向度量值的单位由磅转换为像素。可用于返回文本框或形状的横向屏幕位置。以类型 Single 返回转换后的度量值。
expression.PointsToScreenPixelsX(Points)
expression  必选。该表达式返回一个 DocumentWindow对象。
Points  必选。Single 类型。表示要转换的横向度量值（单位：磅），转换后的单位为像素。
VBA示例
本示例将选取的文本框架边界框的宽度和高度从磅值转换到像素。并将值返回到myXparm 和myYparm。
With ActiveWindow
    myXparm = .PointsToScreenPixelsX _
        (.Selection.TextRange.BoundWidth)
    myYparm = .PointsToScreenPixelsY _
        (.Selection.TextRange.BoundHeight)
End With

weiyingde

PointsToScreenPixelsY方法
将纵向度量值的单位由磅值转换为像素。可用于返回文本框或形状的纵向屏幕位置。以类型 Single 返回转换后的度量值。
expression.PointsToScreenPixelsY(Points)
expression  必选。该表达式返回一个 DocumentWindow对象。
Points  必选。Single 类型。表示要转换的纵向度量值（单位：磅值），转换后的单位为像素。
VBA示例
本示例将选取的文本框架边界框的宽度和高度从磅值转换到像素。并将值返回到myXparm 和myYparm。
With ActiveWindow
    myXparm = .PointsToScreenPixelsX _
        (.Selection.TextRange.BoundWidth)
    myYparm = .PointsToScreenPixelsY _
        (.Selection.TextRange.BoundHeight)
End With
PresetDrop方法
指定标注线是连接到标注文本框的顶端、底端还是中心，或者连接到一个距文本框顶端或底端指定距离的点。
expression.PresetDrop(DropType)
expression  必选。该表达式返回一个 CalloutFormat对象。
DropType  必选。MsoCalloutDropType 类型。与文本边框相关的标注行起始点。
MsoCalloutDropType 可以是下列 MsoCalloutDropType 类型常数之一。
msoCalloutDropBottom
msoCalloutDropCenter
msoCalloutDropCustom 指定此常数将导致代码失败。
msoCalloutDropMixed
msoCalloutDropTop
VBA示例
本示例指定在myDocument 上将标注行添加到第一个形状的文本边框的顶端。要使本示例可以执行，第一个形状必须是标注。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTop
本示例在myDocument 上在第一个形状的两个预设下沉之间切换。要使本示例可以执行，第一个形状必须是标注。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
    If .DropType = msoCalloutDropTop Then
        .PresetDrop msoCalloutDropBottom
    ElseIf .DropType = msoCalloutDropBottom Then
        .PresetDrop msoCalloutDropTop
    End If
End With

weiyingde

PresetGradient方法
将指定填充设为一个预设的过渡。
expression.PresetGradient(Style, Variant, PresetGradientType)
expression  必选。该表达式返回一个 FillFormat对象。
Style  必选。MsoGradientStyle类型。过渡样式。
MsoGradientStyle 是下列 MsoGradientStyle 常数之一。
msoGradientDiagonalDown
msoGradientDiagonalUp
msoGradientFromCenter
msoGradientFromCorner
msoGradientFromTitle
msoGradientHorizontal
msoGradientMixed
msoGradientVertical
Variant  必选。Integer 类型。过渡变量。可以是从 1 到 4 的值，对应于“填充效果”对话框中“过渡”选项卡上的 4 个变量。如果“样式”是 msoGradientFromTitle 或 msoGradientFromCenter，此参数可以是 1 或 2。
PresetGradientType  必选。MsoPresetGradientType 类型。过渡类型。
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
VBA示例
本示例将一个带有预设过渡填充的矩形添加到myDocument。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 140, 80) _
    .Fill.PresetGradient msoGradientHorizontal, 1, msoGradientBrass

weiyingde

PresetTextured方法
将指定填充设为一个预设纹理。
expression.PresetTextured(PresetTexture)
expression  必选。该表达式返回一个 FillFormat对象。
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
VBA示例
本示例将一个带有绿色大理石纹理填充的矩形添加到myDocument。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeCan, 90, 90, 40, 80) _
.Fill.PresetTextured msoTextureGreenMarble