ppt学习资料

net350

RtlRun方法
将文本区域中的文本方向设置为从右向左阅读。
expression.RtlRun
expression  必选。该表达式返回一个 TextRange对象。
说明
此方法使得可以在同一个演示文稿中使用从左向右和从右向左两种语言的文字。
VBA示例
下面的示例查找第一张幻灯片中所有包含文本的形状，并将文本更改为从右向左阅读方式。
ActiveWindow.ViewType = ppViewSlide
For Each sh In ActivePresentation.Slides(1).Shapes
    If sh.HasTextFrame Then
         sh.TextFrame.TextRange.RtlRun
    End If
Next
Run方法
应用于 SlideShowSettings对象的 Run方法。
运行指定演示文稿的幻灯片放映。返回一个SlideShowWindow对象。
expression.Run
expression  必选。该表达式返回上述对象之一。
说明
若要运行自定义幻灯片放映，请将 RangeType属性设为 ppShowNamedSlideShow，并将 SlideShowName属性设为要运行的自定义放映的名称。
应用于 Application对象的 Run方法。
运行 Visual Basic 过程。
expression.Run(MacroName, safeArrayOfParams)
expression  必选。该表达式返回上述对象之一。
MacroName  必选。String 类型。要运行的过程名称。该字符串可包含下列内容：后跟感叹号（!）的加载演示文稿或加载宏文件名、后跟句号的有效模块名称以及过程名称。例如，字符串“MyPres.ppt!Module1.Test”是一个有效 MacroName 值。
safeArrayOfParams  必选。Variant 类型。传递给该过程的参数。不能为此参数指定对象，也不能使用该方法的命名参数。参数必须通过地址传递。
VBA示例
应用于 SlideShowSettings对象。
本示例开始播放当前演示文稿的一个全屏幻灯片放映，并禁用快捷键。
With ActivePresentation.SlideShowSettings
    .ShowType = ppShowSpeaker
    .Run.View.AcceleratorsEnabled = False
End With
本示例运行名为“Quick Show”的幻灯片放映。
With ActivePresentation.SlideShowSettings
    .RangeType = ppShowNamedSlideShow
    .SlideShowName = "Quick Show"
    .Run
End With
应用于 Application 对象。
在本示例中，Main 过程定义一个数组，然后执行宏 TestPass，将该数组作为参数传递。
Sub Main()
    Dim x(1 To 2)
    x(1) = "hi"
    x(2) = 7
    Application.Run "TestPass", x
End Sub
Sub TestPass(x)
    MsgBox x(1)
    MsgBox x(2)
End Sub

user_znycd

Runs方法
返回一个代表指定文本域子集的 TextRange对象。一个文本域由具有相同字体属性的一批字符组成。有关计算或浏览文本区域中域的详细信息，请参阅TextRange对象。
expression.Runs(Start, Length)
expression  必选。该表达式返回一个 TextRange对象。
Start  可选。Long 类型。返回的文本区域的第一个域。
Length  可选。Long 类型。要返回的域的数量。
说明
如果省略 Start参数和 Length参数，返回的内容为指定文本区域的第一个域到最后一段。
如果指定 Start参数但省略 Length参数，返回的内容含有一个域。
如果指定 Length参数但省略 Start参数，返回的内容从指定文本区域的第一个域开始。
如果 Start参数大于指定文本中域的数量，返回的内容从指定文本区域的最后一个域开始。
如果 Length参数大于从指定的起始域到文本末尾的域数量，则返回的内容包含所有这些域。
一个域包含从字体改变后的第一个字符到倒数第二个具有相同字体属性的字符之间的所有字符。以下句为例：
This italic word is not bold.
在上句中，如果“This”后边的空格不是斜体，则第一个域由“This”构成（如果该空格为斜体，则第一个域仅包括前三个字符，即“Thi”）。类似地，仅当“italic”后边的空格为斜体时，第二个域由“italic”构成。
VBA示例
如果当前演示文稿的第一张幻灯片第二个形状中第二个域已经设为倾斜，则本示例将其设为加粗。
With Application.ActivePresentation.Slides(1).Shapes(2) _
        .TextFrame.TextRange
    With .Runs(2).Font
        If .Italic Then
            .Bold = True
        End If
    End With
End With
Save方法
保存指定的演示文稿。
expression.Save
expression  必选。该表达式返回一个 Presentation对象。
说明
使用SaveAs方法可保存尚未保存的演示文稿。若要判断演示文稿是否已保存，请检测FullName 或Path属性是否非空。如果磁盘上已存在与指定演示文稿同名的文件，将覆盖该文件且不显示警告信息。
若要将演示文稿标记为已保存，但不将其写入磁盘，请将Saved属性设为 True。
VBA示例
本示例保存自上次保存以来经过更改的当前演示文稿。
With Application.ActivePresentation
    If Not .Saved And .Path <> &quot;&quot; Then .Save
End With

user_huncw

SaveAs方法
保存未保存过的演示文稿，或以其他文件名保存已保存过的演示文稿。
expression.SaveAs(Filename, FileFormat, EmbedFonts)
expression  必选。该表达式返回一个 Presentation对象。
Filename  必选。String 类型。指定文件的存盘名称。如果未指定完整路径名，PowerPoint 将该文件存于当前文件夹。
FileFormat  可选。PpSaveAsFileType 类型。指定保存的文件格式。如果省略此参数，文件以 PowerPoint 当前版本中演示文稿的格式保存 (ppSaveAsPresentation)。
PpSaveAsFileType 可以是下列 PpSaveAsFileType 类型常数之一。
ppSaveAsHTMLv3
ppSaveAsAddIn
ppSaveAsBMP
ppSaveAsDefault
ppSaveAsGIF
ppSaveAsHTML
ppSaveAsHTMLDual
ppSaveAsJPG
ppSaveAsMetaFile
ppSaveAsPNG
ppSaveAsPowerPoint3
ppSaveAsPowerPoint4
ppSaveAsPowerPoint4FarEast
ppSaveAsPowerPoint7
ppSaveAsPresentation 默认值。
ppSaveAsRTF
ppSaveAsShow
ppSaveAsTemplate
ppSaveAsTIF
ppSaveAsWebArchive
EmbedFonts  可选。MsoTriState 类型。指定 PowerPoint 是否将 TrueType 字体嵌入保存的演示文稿。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed 默认值。
msoTriStateToggle
msoTrue PowerPoint 将 TrueType 字体嵌入到保存的演示文稿中。
VBA示例
本示例以文件名“New Format Copy.ppt”保存当前演示文稿的一个副本。默认情况下，该副本以当前版本的 PowerPoint 演示文稿格式保存，然后以文件名“Old Format Copy”另存为 PowerPoint 4.0 格式文件。
With Application.ActivePresentation
    .SaveCopyAs &quot;New Format Copy&quot;
    .SaveAs &quot;Old Format Copy&quot;, ppSaveAsPowerPoint4
End With

user_cjiag

SaveCopyAs方法
将指定演示文稿的副本保存至另一文件，而不修改原文件。
expression.SaveCopyAs(FileName, FileFormat, EmbedTrueTypeFonts)
expression  必选。该表达式返回一个 Presentation对象。
FileName  必选。String 类型。指定文件的存盘名称。如果未指定完整路径名，PowerPoint 将该文件存于当前文件夹。
FileFormat  可选。PpSaveAsFileType 类型。文件格式。
PpSaveAsFileType 可以是下列 PpSaveAsFileType 类型常数之一。
ppSaveAsHTMLv3
ppSaveAsAddIn
ppSaveAsBMP
ppSaveAsDefault 默认值。
ppSaveAsGIF
ppSaveAsHTML
ppSaveAsHTMLDual
ppSaveAsJPG
ppSaveAsMetaFile
ppSaveAsPNG
ppSaveAsPowerPoint3
ppSaveAsPowerPoint4
ppSaveAsPowerPoint4FarEast
ppSaveAsPowerPoint7
ppSaveAsPresentation
ppSaveAsRTF
ppSaveAsShow
ppSaveAsTemplate
ppSaveAsTIF
ppSaveAsWebArchive
EmbedTrueTypeFonts  可选。MsoTriState 类型。指定是否嵌入 TrueType 字体。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed 默认值
msoTriStateToggle
msoTrue
VBA示例
本示例以文件名“New Format Copy.ppt”保存当前演示文稿的一个副本。默认情况下，该副本以当前版本的 PowerPoint 演示文稿格式保存，然后以文件名“Old Format Copy”另存为 PowerPoint 4.0 格式文件。
With Application.ActivePresentation
    .SaveCopyAs &quot;New Format Copy&quot;
    .SaveAs &quot;Old Format Copy&quot;, ppSaveAsPowerPoint4
End With

user_rxtmf

ScaleHeight方法
以指定的比例缩放形状的高度。对于图片和 OLE对象，可以指出是相对于形状的原始大小还是当前大小缩放。图片和 OLE对象以外的形状总是相对于当前高度缩放。
expression.ScaleHeight(Factor, RelativeToOriginalSize, fScale)
expression  必选。该表达式返回一个 Shape 或 ShapeRange对象。
Factor  必选。Single 类型。指定形状调整后的高度与当前或原始高度的比例。例如，若要将一个矩形放大百分之五十，请将此参数设为 1.5。
RelativeToOriginalSize  必选。MsoTriState 类型。指定是否相对于当前或原始大小缩放该形状。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 相对于当前大小缩放该形状。
msoTriStateMixed
msoTriStateToggle
msoTrue 相对于原始大小缩放该形状。仅当指定形状是图片或 OLE对象时，才为此参数指定 msoTrue。
fScale  可选。MsoScaleFrom 类型。缩放形状时保持其位置的形状部分。
MsoScaleFrom 可以是下列 MsoScaleFrom 类型常数之一。
msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft 默认值。
VBA示例
本示例将myDocument 上的所有图片和 OLE对象放大至原高度和宽度的 175%，将所有其他形状放大至当前高度和宽度的 175%。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    Select Case s.Type
    Case msoEmbeddedOLEObject, msoLinkedOLEObject, _
            msoOLEControlObject, msoLinkedPicture, msoPicture
        s.ScaleHeight 1.75, msoTrue
        s.ScaleWidth 1.75, msoTrue
    Case Else
        s.ScaleHeight 1.75, msoFalse
        s.ScaleWidth 1.75, msoFalse
    End Select
Next
ScaleWidth方法
以指定的比例缩放形状的宽度。对于图片和 OLE对象，可以指出是相对于形状的原始大小还是当前大小缩放。图片和 OLE对象以外的形状总是相对于当前宽度缩放。
expression.ScaleWidth(Factor, RelativeToOriginalSize，fScale)
expression  必选。该表达式返回一个 Shape 或 ShapeRange对象。
Factor  必选。Single 类型。指定形状调整后的宽度与当前或原始宽度的比例。例如，若要将一个矩形放大百分之五十，请将此参数设为 1.5。
RelativeToOriginalSize  必选。MsoTriState 类型。指定是否相对于当前或原始大小缩放形状。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 相对于当前大小缩放该形状。
msoTriStateMixed
msoTriStateToggle
msoTrue 相对于原始大小缩放该形状。仅当指定形状是图片或 OLE对象时，才为此参数指定 msoTrue。
fScale  可选。MsoScaleFrom 类型。缩放形状时保持其位置的形状部分。
MsoScaleFrom 可以是下列 MsoScaleFrom 类型常数之一。
msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft 默认值。
VBA示例
本示例将myDocument 上的所有图片和 OLE对象放大至原高度和宽度的 175%，将所有其他形状放大至当前高度和宽度的 175%。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    Select Case s.Type
    Case msoEmbeddedOLEObject, msoLinkedOLEObject, _
            msoOLEControlObject, msoLinkedPicture, msoPicture
        s.ScaleHeight 1.75, msoTrue
        s.ScaleWidth 1.75, msoTrue
    Case Else
        s.ScaleHeight 1.75, msoFalse
        s.ScaleWidth 1.75, msoFalse
    End Select

sailor0763

ScrollIntoView方法
滚动文档窗口，使指定矩形区域内的项目显示在文档窗口或窗格中。
expression.ScrollIntoView(Left, Top, Width, Height, Start)
expression  必选。该表达式返回一个 DocumentWindow对象。
Left  必选。Long 类型。表示从文档窗口左边缘到矩形之间的横向距离，以磅为单位。
Top  必选。Long 类型。表示从文档窗口上边缘到矩形之间的纵向距离，以磅为单位。
Width  必选。Long 类型。矩形区域的宽度，以磅为单位。
Height  必选。Long 类型。矩形区域的高度，以磅为单位。
Start  可选。MsoTriState 类型。相对于文档窗口指定矩形的起始位置。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 矩形的右下端将出现在文档窗口的右下端。
msoTriStateMixed
msoTriStateToggle
msoTrue 默认值。矩形的左上端将出现在文档窗口的左上端。
说明
如果矩形边界超过了文档窗口的大小，则 Start参数可指定矩形的哪一个顶点将显示在屏幕上或具有最初的焦点。此方法不能在大纲或幻灯片浏览视图中使用。
VBA示例
本示例将查看一个 100x200（单位：磅）的区域，该区域距幻灯片左边缘为 50 磅，距幻灯片上边缘为 20 磅。该矩形区域的左上角位于当前文档窗口的左上角。
ActiveWindow.ScrollIntoView Left:=50, Top:=20, _
    Width:=100, Height:=200
Select方法
Select方法应用于 Cell、Column、Row、Slide、SlideRange 和 TextRange对象。
选取指定的对象。
expression.Select
expression  必选。该表达式返回上述对象之一。
Select方法应用于 Shape 和 ShapeRange对象。
选取指定的对象。
expression.Select(Replace)
expression  必选。该表达式返回上述对象之一。
Replace  可选。MsoTriState 类型。指定是否用该选择替换前面所有的选择。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 将该选择添加到前一项选择中。
msoTriStateMixed
msoTriStateToggle
msoTrue 默认值。用此选择替换前面任何一项选择。
说明
如果做出不适用于当前视图的选择，此代码将失败。例如，可以在幻灯片浏览视图中而不能在幻灯片视图中选择幻灯片。
VBA示例
应用于 Cell、Column、Row、Slide、SlideRange 和 TextRange对象
本示例选取当前演示文稿第一张幻灯片标题的前五个字符。
ActivePresentation.Slides(1).Shapes.Title.TextFrame _
    .TextRange.Characters(1, 5).Select
本示例选取当前演示文稿的第一张幻灯片。
ActivePresentation.Slides(1).Select
本示例选取一个已添加到演示文稿的新幻灯片中的表格。该表格具有三行和三列。
With Presentations.Add.Slides
    .Add(1, ppLayoutBlank).Shapes.AddTable(3, 3).Select
End With
应用于 Shape 和 ShapeRange对象。
本示例选取当前演示文稿第一张幻灯片上的第一个和第三个形状。
ActivePresentation.Slides(1).Shapes.Range(Array(1, 3)).Select
本示例将当前演示文稿第一张幻灯片上的第二个和第四个形状添加到前面的选择中。
ActivePresentation.Slides(1).Shapes.Range(Array(2, 4)).Select False

calmsolemn

SelectAll方法
选定所有形状（在Shapes集合中）或所有图示节点（在DiagramNodes 或DiagramNodeChildren集合中）。
expression.SelectAll
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例选择 myDocument 中的所有形状。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.SelectAll
SendForReview方法
用电子邮件将用于审阅的演示文稿发送给指定的收件人。
expression.SendForReview(Recipients, Subject, ShowMessage, IncludeAttachment)
expression  必选。该表达式返回“应用于”列表中的对象之一。
Recipients  可选。String 类型。列出邮件收件人的字符串。此字符串可包含电子邮件电话簿中未解析的名称和别名或完整的电子邮件地址。多个收件人之间要用分号 (;) 分隔。如果此属性值为空并且 ShowMessage 为 False，则您会收到一个错误消息，并且邮件将不能发送。
Subject  可选。String 类型。关于邮件主题的字符串。如果此属性值为空，则主题为：请审阅“文件名”。
ShowMessage  可选。Boolean 类型。该 Boolean 类型值指出执行此方法时是否显示邮件。默认值为 True。如果设置为 False，则邮件将自动发送给收件人，而不先给发件人显示该消息。
IncludeAttachment  可选。Variant 类型。该 Boolean 类型值指出邮件是否应包含附件或到服务器位置的链接。默认值为 True。如果设置为 False，文档必须保存在共享文件夹中。
说明
使用 SendForReview方法启动协作审阅流程。使用EndReview方法结束审阅流程。
VBA示例
本示例通过电子邮件自动将当前演示文稿作为附件发送给指定的收件人。
Sub WebReview()
    ActivePresentation.SendForReview _
        Recipients:=&quot;someone@microsoft.com; amy jones&quot;, _
        Subject:=&quot;Please review this document.&quot;, _
        ShowMessage:=False, _
        IncludeAttachment:=True
End Sub
Sentences方法
返回一个代表指定文本句的子集的 TextRange对象。有关计算或浏览文本区域中的子句的详细信息，请参阅TextRange对象。
expression.Sentences(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).Sentences(2).Font _
    .Bold = True

user_ndyvl

SetEditingType方法
设置由 Index 指定的结点的编辑类型。如果该结点是一个曲线的控制点，本方法将对其设置相邻结点的编辑属性，该属性连接两个段。请注意，由于编辑类型的不同，本方法可能影响相邻结点的位置。
expression.SetEditingType(Index, EditingType)
expression  必选。该表达式返回一个 ShapeNodes对象。
Index  必选。Long 类型。要设置编辑类型的结点。
EditingType  必选。MsoEditingType 类型。编辑类型。
MsoEditingType 可以是下列 MsoEditingType 类型常数之一。
msoEditingAuto
msoEditingCorner
msoEditingSmooth
msoEditingSymmetric
VBA示例
本示例将myDocument 第三个形状中所有的角结点更改为光滑结点。第三个形状必须是任意多边形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    For n = 1 to .Count
        If .Item(n).EditingType = msoEditingCorner Then
            .SetEditingType n, msoEditingSmooth
        End If
    Next
End With
SetExtrusionDirection方法
设置延伸经过的路径偏离延伸形状的方向。
expression.SetExtrusionDirection(PresetExtrusionDirection)
expression  必选。该表达式返回一个 ThreeDFormat对象。
PresetExtrusionDirection  必选。MsoPresetExtrusionDirection 类型。指定延伸方向。
MsoPresetExtrusionDirection 可以是下列 MsoPresetExtrusionDirection 类型常数之一。
msoExtrusionBottom
msoExtrusionBottomLeft
msoExtrusionBottomRight
msoExtrusionLeft
msoExtrusionNone
msoExtrusionRight
msoExtrusionTop
msoExtrusionTopLeft
msoExtrusionTopRight
msoPresetExtrusionDirectionMixed
说明
该方法将PresetExtrusionDirection属性设为由 PresetExtrusionDirection参数指定的方向。
VBA示例
本示例指定myDocument 中第一个形状向该形状的顶部延伸，而且延伸的光线由左侧照入。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
    .Visible = True
    .SetExtrusionDirection msoExtrusionTop
    .PresetLightingDirection = msoLightingLeft
End With

wth1260

SetPasswordEncryptionOptions方法
设置 Microsoft PowerPoint 通过密码加密演示文稿时使用的选项。
expression.SetPasswordEncryptionOptions(PasswordEncryptionProvider, PasswordEncryptionFileProperties, PasswordEncryptionKeyLength, PasswordEncryptionAlgorithm)
expression  必选。该表达式返回“应用于”列表中的对象之一。
PasswordEncryptionProvider  必选。String 类型。加密供应商的名称。
PasswordEncryptionAlgorithm  必选。String 类型。加密算法的名称。PowerPoint 支持流式加密算法。
PasswordEncryptionKeyLength  必选。Long 类型。加密密钥长度。必须是 8 的倍数，并且从 40 开始。
PasswordEncryptionFileProperties  必选。MsoTriState 类型。属性值为 MsoTrue 时，PowerPoint 加密文件的属性。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不用于此方法。
msoFalse
msoTriStateMixed 不用于此方法。
msoTriStateToggle 不用于此方法。
msoTrue
VBA示例
本示例中，如果使用密码保护的文档的文件属性没有加密，将设置密码加密选项。
Sub PasswordSettings()
    With ActivePresentation
        If .PasswordEncryptionFileProperties = msoFalse Then
            .SetPasswordEncryptionOptions _
                PasswordEncryptionProvider:=&quot;Microsoft RSA SChannel Cryptographic Provider&quot;, _
                PasswordEncryptionAlgorithm:=&quot;RC4&quot;, _
                PasswordEncryptionKeyLength:=56, _
                PasswordEncryptionFileProperties:=True
        End If
    End With
End Sub
SetPosition方法
设置由 Index 指定的结点的位置。请注意，由于结点的编辑类型的不同，该方法可能影响相邻结点的位置。
expression.SetPosition(Index, X1, Y1)
expression  必选。该表达式返回一个 ShapeNodes对象。
Index  必选。Long 类型。要设置位置的结点。
X1，Y1  必选。Single 类型。新结点相对于文档左上角的位置，以磅为单位。
VBA示例
本示例将myDocument 中第三个形状的第二个结点向右移 200 磅、向下移 300 磅。第三个形状必须是任意多边形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    pointsArray = .Item(2).Points
    currXvalue = pointsArray(1, 1)
    currYvalue = pointsArray(1, 2)
    .SetPosition 2, currXvalue + 200, currYvalue + 300
End With

shengjia123

设置 Index 指定的结点后面的段的段类型。如果该结点为一条曲线段的控制点，则该方法设置该曲线的段类型。请注意，该方法可能由于插入或删除相邻的结点而影响结点总数。
expression.SetSegmentType(Index, SegmentType)
expression  必选。该表达式返回一个 ShapeNodes对象。
Index  必选。Long 类型。要设置段类型的结点。
SegmentType  必选。MsoSegmentType 类型。指定段是直线还是曲线。
MsoSegmentType 可以是下列 MsoSegmentType 类型常数之一。
msoSegmentCurve
msoSegmentLine
VBA示例
本示例将myDocument 中第三个形状的所有直线段更改为曲线段。第三个形状必须是任意多边形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    n = 1
    While n <= .Count
        If .Item(n).SegmentType = msoSegmentLine Then
            .SetSegmentType n, msoSegmentCurve
        End If
        n = n + 1
    Wend
End With
SetShapesDefaultProperties方法
将指定形状的格式应用于默认形状。默认情况下，使用该方法后创建的形状都将使用此格式。
expression.SetShapesDefaultProperties
expression  必选。该表达式返回一个 Shape对象。
VBA示例
本示例向myDocument 中添加矩形，格式化矩形的填充，将该矩形的格式应用于默认形状，再向该文档中添加一个较小的矩形。第二个矩形的填充与第一个矩形相同。
Set mydocument = ActivePresentation.Slides(1)
With mydocument.Shapes
    With .AddShape(msoShapeRectangle, 5, 5, 80, 60)
        With .Fill
            .ForeColor.RGB = RGB(0, 0, 255)
            .BackColor.RGB = RGB(0, 204, 255)
            .Patterned msoPatternHorizontalBrick
        End With
    ' Sets formatting for default shapes
        .SetShapesDefaultProperties
    End With
' New shape has default formatting
    .AddShape msoShapeRectangle, 90, 90, 40, 30
End With