ppt学习资料

weiyingde

FolderSuffix属性
返回在以 Web 页保存或发布整个或部分演示文稿、或使用长文件名并选择在不同文件夹中保存支持文件时（也就是说，如果UseLongFileNames 和OrganizeInFolder属性设置为 True 时）Microsoft PowerPoint 所使用的文件夹后缀。只读。String 类型。
说明
新建的演示文稿使用由 DefaultWebOptions对象的 FolderSuffix属性返回的后缀。如果该演示文稿以前在其他语言版本的 Microsoft PowerPoint 中编辑过，则 WebOptions对象的 FolderSuffix属性值可能会与 DefaultWebOptions对象的该属性值不同。可以使用UseDefaultFolderSuffix方法将后缀更改为当前在 Microsoft Office 中使用的语言后缀。
默认情况下，支持文件夹的名称是：Web 页名称加下划线 (_)、句点 (.) 或连字符 (-) 再加单词“files”（以将文件保存为 Web 页时 PowerPoint 所使用的语言显示）。例如，假设在荷兰语版本的 PowerPoint 中将文件“Page1”保存为 Web 页，则支持文件夹的默认名称是“Page1_bestanden”。
以下表格列出了每种语言版本的 Office，并给出了对应的文件夹后缀。对于未列在表格中的语言，则使用后缀“.files”。
语言
语言        文件夹后缀
阿拉伯语        .files
巴斯克语        _fitxategiak
西班牙语（巴西）        _arquivos
保加利亚语        .files
加泰罗尼亚语        _fitxers
简体中文        .files
繁体中文        .files
克罗地亚语        _datoteke
捷克语        _soubory
丹麦语        -filer
荷兰语        _bestanden
英语        _files
爱沙尼亚语        _failid
芬兰语        _tiedostot
法语        _fichiers
德语        -Dateien
希腊语        .files
希伯来语        .files
匈牙利语        _elemei
意大利语        -file
日语        .files
朝鲜语（韩国）        .files
拉脱维亚语        _fails
立陶宛语        _bylos
挪威语        -filer
波兰语        _pliki
葡萄牙语        _ficheiros
罗马尼亚语        .files
俄语        .files
塞尔维亚语（西里尔）        .files
塞尔维亚语（拉丁）        _fajlovi
斯洛伐克语        .files
斯洛文尼亚语        _datoteke
西班牙语        _archivos
瑞典语        -filer
泰语        .files
土耳其语        _dosyalar
乌克兰语        .files
越南语        .files
VBA示例
本示例返回第一个演示文稿使用的文件夹后缀。该后缀将返回到字符串变量strFolderSuffix 中。
strFolderSuffix = Presentations(1).WebOptions.FolderSuffix

weiyingde

FollowColors属性
返回或设置指定对象中的颜色对幻灯片配色方案的继承程度。指定的对象必须是在 Microsoft Graph 或 Microsoft Organization Chart 中创建的图表。可读写。PpFollowColors 类型。
PpFollowColors 可以是下列 PpFollowColors 类型常数之一。
ppFollowColorsNone 图表颜色不继承幻灯片配色方案。
ppFollowColorsMixed
ppFollowColorsScheme 图表中所有的颜色继承幻灯片配色方案。
ppFollowColorsTextAndBackground 只有文本和背景继承幻灯片配色方案。
expression.FollowColors
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例指定当前演示文稿第一张幻灯片第二个形状的文本和背景继承幻灯片配色方案。第二个形状必须是 Microsoft Graph 或 Microsoft Organization Chart 创建的图表。
ActivePresentation.Slides(1).Shapes(2).OLEFormat.FollowColors = _
    ppFollowColorsTextAndBackground
FollowMasterBackground属性
决定幻灯片或幻灯片范围是否继承幻灯片母版背景。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 指定的幻灯片或幻灯片范围使用自定义背景。
msoTriStateMixed
msoTriStateToggle
msoTrue 指定的幻灯片或幻灯片范围继承幻灯片母版背景。
说明
创建新幻灯片时，该属性的默认值为 True。如果从另一个演示文稿中复制幻灯片，它保留原始演示文稿中的设置。即如果该幻灯片原先使用原始演示文稿中幻灯片母版的背景，则自动使用新演示文稿的幻灯片母版背景；如果该幻灯片原先使用自定义背景，则将保留该自定义背景。
请注意，幻灯片背景的外观由配色方案、背景对象和背景本身共同决定。如果仅设置 FollowMasterBackground属性不能得到所需结果，请尝试设置ColorScheme 和DisplayMasterShapes属性。
VBA示例
本示例复制第二个演示文稿的第一张幻灯片，将该幻灯片粘贴在第一个演示文稿的末尾，并使该幻灯片的背景、配色方案和背景对象与第一个演示文稿的其他幻灯片匹配。
Presentations(2).Slides(1).Copy
With Presentations(1).Slides.Paste
    .FollowMasterBackground = msoTrue
    .ColorScheme = Presentations(1).SlideMaster.ColorScheme
    .DisplayMasterShapes = True
End With
Font属性
返回一个代表字符格式的Font对象。只读。
VBA示例
本示例为当前演示文稿第一张幻灯片的第一个形状设置文本格式。
With ActivePresentation.Slides(1).Shapes(1)
    With .TextFrame.TextRange.Font
        .Size = 48
        .Name = "Palatino"
        .Bold = True
        .Color.RGB = RGB(255, 127, 255)
    End With
End With
本示例设置第一张幻灯片第二个形状中项目符号的颜色和字体名称。
With ActivePresentation.Slides(1).Shapes(2)
    With .TextFrame.TextRange.ParagraphFormat.Bullet
        .Visible = True
        With .Font
            .Name = "Palatino"
            .Color.RGB = RGB(0, 0, 255)
        End With
    End With
End With
决定指定艺术字中的字体是否为粗体。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定艺术字中的字体为粗体。
VBA示例
本示例将myDocument 中第三个形状（如果该形状为艺术字）的字体设置为粗体。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3)
    If .Type = msoTextEffect Then
        .TextEffect.FontBold = msoTrue
    End If
End With

weiyingde

FontItalic属性
决定指定艺术字中的字体是否为斜体。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定艺术字中的字体是斜体。
VBA示例
本示例将myDocument 中名为“WordArt 4”的形状中的字体设置为斜体。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes("WordArt 4").TextEffect.FontItalic = msoTrue
FontName属性
返回或设置指定艺术字的字体名称。可读写。String 类型。
VBA示例
本示例将myDocument 中第三个形状（如果该形状是艺术字）字体名称设置为“Courier New”。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3)
    If .Type = msoTextEffect Then
        .TextEffect.FontName = "Courier New"
    End If
End With
FontName属性
返回或设置指定艺术字的字体名称。可读写。String 类型。
VBA示例
本示例将myDocument 中第三个形状（如果该形状是艺术字）字体名称设置为“Courier New”。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3)
    If .Type = msoTextEffect Then
        .TextEffect.FontName = "Courier New"
    End If
End With
Fonts属性
应用于 Presentation对象的字体属性。

返回代表指定演示文稿中所有字体的Fonts集合。只读。
expression.Fonts
expression  必选。该表达式返回上述对象之一。
应用于 DefaultWebOptions对象的字体属性。
返回 WebPageFonts集合，该集合代表将演示文稿存为 Web 页的可用字体组。只读。
expression.Fonts
expression  必选。该表达式返回上述对象之一。
VBA示例
应用于 Presentation对象。
本示例将活动演示文稿的 Times New Roman 字体替换为 Courier 字体。
Application.ActivePresentation.Fonts _
    .Replace "Times New Roman", "Courier"
应用于 DefaultWebOptions对象。
本示例将字符集常数 msoCharacterSetEnglishWesternEuropeanOtherLatinScript 所指定的定宽字体默认 Web 页选项设置为“Courier New”、10 磅。
With Application.DefaultWebOptions _
    .Fonts(msoCharacterSetEnglishWesternEuropeanOtherLatinScript)
        .FixedWidthFont = "Courier New"
        .FixedWidthFontSize = 10
End With

weiyingde

FontSize属性
以磅为单位返回或设置指定的艺术字字体大小。可读写。Single 类型。
VBA示例
本示例将myDocument 中名为“WordArt 4”的形状中的字号设置为 16 磅。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes("WordArt 4").TextEffect.FontSize = 16
Footer属性
返回一个代表脚注HeaderFooter 的对象。该脚注显示于幻灯片底部或备注页、讲义和大纲的左下角。只读。
VBA示例
本示例为当前演示文稿的幻灯片母版设置脚注的文本，并设定在标题幻灯片上显示脚注、日期和时间及幻灯片编号。
With Application.ActivePresentation.SlideMaster.HeadersFooters
    .Footer.Text = "Introduction"
    .DisplayOnTitleSlide = True
End With
ForeColor属性
返回或设置一个ColorFormat对象，该对象代表填充、线条或阴影的前景色。可读写。
VBA示例
本示例在myDocument 中添加一个矩形，然后设置矩形填充的前景色、背景色和过渡。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
        .AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill
    .ForeColor.RGB = RGB(128, 0, 0)
    .BackColor.RGB = RGB(170, 170, 170)
    .TwoColorGradient msoGradientHorizontal, 1
End With
本示例在myDocument 中添加有图案的线条。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(10, 100, 250, 0).Line
    .Weight = 6
    .ForeColor.RGB = RGB(0, 0, 255)
    .BackColor.RGB = RGB(128, 0, 0)
    .Pattern = msoPatternDarkDownwardDiagonal
End With
Format属性
返回或设置自动更新日期和时间的格式。仅应用于代表日期和时间（由DateAndTime属性从 HeadersFooters集合中返回）的 HeaderFooter对象。可读写。PpDateTimeFormat 类型。
PpDateTimeFormat 可以是下列 PpDateTimeFormat 类型常数之一。
ppDateTimeddddMMMMddyyyy
ppDateTimedMMMMyyyy
ppDateTimedMMMyy
ppDateTimeFormatMixed
ppDateTimeHmm
ppDateTimehmmAMPM
ppDateTimeHmmss
ppDateTimehmmssAMPM
ppDateTimeMdyy
ppDateTimeMMddyyHmm
ppDateTimeMMddyyhmmAMPM
ppDateTimeMMMMdyyyy
ppDateTimeMMMMyy
ppDateTimeMMyy
expression.Format
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
通过将UseFormat属性设置为 True，确保将日期和时间设置为自动更新（不作为固定文本显示）。
VBA示例
本示例将当前演示文稿的幻灯片母版中日期和时间设为自动更新，并将日期和时间格式设为显示小时、分钟和秒。
Set myPres = Application.ActivePresentation
With myPres.SlideMaster.HeadersFooters.DateAndTime
    .UseFormat = True
    .Format = ppDateTimeHmmss
End With

weiyingde

Formula属性
返回或设置 String 类型值，该值代表用于计算动画的公式。可读写。
expression.Formula
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例添加一个形状，并向该形状添加一个三秒钟的填充动画。
Sub AddShapeSetAnimFill()
    Dim effBlinds As Effect
    Dim shpRectangle As Shape
    Dim animBlinds As AnimationBehavior
    'Adds rectangle and sets animiation effect
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effBlinds = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectBlinds)
    'Sets the duration of the animation
    effBlinds.Timing.Duration = 3
    'Adds a behavior to the animation
    Set animBlinds = effBlinds.Behaviors.Add(msoAnimTypeProperty)
    'Sets the animation color effect and the formula to use
    With animBlinds.PropertyEffect
        .Property = msoAnimColor
        .Formula = RGB(Red:=255, Green:=255, Blue:=255)
    End With
End Sub

FrameColors属性
返回或设置大纲窗格中的文本颜色和大纲及 Web 演示文稿中幻灯片窗格的背景色。可读写。PpFrameColors 类型。
PpFrameColors 可以是下列 PpFrameColors 类型常数之一。
ppFrameColorsBlackTextOnWhite
ppFrameColorsBrowserColors
ppFrameColorsPresentationSchemeAccentColor
ppFrameColorsPresentationSchemeTextColor
ppFrameColorsWhiteTextOnBlack
expression.FrameColors
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例用于当以 Web 页保存或发布活动演示文稿时，将大纲窗格的文字颜色设置为白色，将大纲窗格和幻灯片窗格的背景色设置为黑色，并允许可移植网络图形 (PNG) 作为图像格式使用。
With ActivePresentation.WebOptions
    .FrameColors = ppFrameColorsWhiteTextOnBlack
    .AllowPNG = True
End With
FrameSlides属性
决定是否将窄框架放置在打印幻灯片的边框周围。可读写。MsoTriState 类型。应用于打印的幻灯片、讲义和备注页。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse Default.
msoTriStateMixed
msoTriStateToggle
msoTrue 窄框架放置在打印幻灯片的边框周围。  
VBA示例
本示例打印当前演示文稿，每张幻灯片周围有一个框架。
With ActivePresentation
    .PrintOptions.FrameSlides = msoTrue
    .PrintOut
End With

weiyingde

From属性
应用于 ColorEffect对象的 From属性。
设置或返回 ColorFormat对象，该对象代表动画动作颜色的初始 RGB 值。
expression.From
expression  必选。该表达式返回一个ColorEffect对象。
说明
将此属性与To属性联合使用以便在一种颜色和另一种颜色之间切换。
应用于 RotationEffect对象的 From属性。
设置或返回 Single 类型值，该值代表相对于屏幕（例如，90 度表示完全水平）指定的初始角度。可读写。
expression.From
expression  必选。该表达式返回一个RotationEffect对象。
说明
将此属性与To属性联合使用以从一个旋转角度切换到另一个旋转角度。
默认值为 Empty，此情况下使用对象的当前位置。
应用于 PropertyEffect对象的 From属性。
设置或返回 Variant 类型值，该值代表对象属性的初始值。可读写。
expression.From
expression  必选。该表达式返回一个PropertyEffect对象。
说明
From属性类似于Points属性，但对于简单任务，使用 From属性更方便。
默认值为 Empty，此情况下使用对象的当前位置。
说明
请勿将此属性与ScaleEffect 和MotionEffect对象的FromX 或FromY属性相混淆，后者仅用于缩放或移动效果。
VBA示例
应用于 ColorEffect对象。
以下示例添加颜色效果并且立即更改其颜色。
Sub AddAndChangeColorEffect()
    Dim effBlinds As Effect
    Dim tlnTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animColorEffect As AnimationBehavior
    Dim clrEffect As ColorEffect
    'Adds rectangle and sets effect and animation
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effBlinds = t.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)
    Set animColorEffect = tlnTimming.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeColor)
    Set clrEffect = animColorEffect.ColorEffect
    'Sets the animation effect starting and ending colors
    clrEffect.From.RGB = RGB(Red:=255, Green:=255, Blue:=0)
    clrEffect.To.RGB = RGB(Red:=0, Green:=255, Blue:=255)
End Sub
应用于 RotationEffect对象。
以下示例添加一个旋转效果并立即更改其旋转角度。
Sub AddAndChangeRotationEffect()
    Dim effBlinds As Effect
    Dim tlnTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animRotation As AnimationBehavior
    Dim rtnEffect As RotationEffect
    'Adds rectangle and sets effect and animation
    Set shpRectangle = ActivePresentation.Slides(1).Shapes_
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set tlnTiming = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tlnTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)
    Set animRotation = tlnTiming.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animRotation.RotationEffect
    'Sets the rotation effect starting and ending positions
    rtnEffect.From = 90
    rtnEffect.To = 270
End Sub

weiyingde

FromX属性
置或返回 Single 类型值，该值分别代表ScaleEffect 或MotionEffect对象的初始宽度或水平位置，其值以屏幕宽度的百分比形式表示。可读写。
expression.FromX
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
此属性的默认值为 Empty，此情况下使用对象的当前位置。
将此属性与ToX属性联合使用以调整大小或从一个位置跳到另一个位置。
请勿将此属性与ColorEffect、RotationEffect 或PropertyEffect对象的From属性相混淆，后者分别用于设置或更改动画动作的颜色、旋转或其他属性。
VBA示例
以下示例添加一个动作路径并且设置起始和结束的水平和垂直位置。
Sub AddMotionPath()
    Dim effCustom As Effect
    Dim animMotion As AnimationBehavior
    Dim shpRectangle As Shape
    'Adds shape and sets effect and animation properties
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effCustom = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectCustom)
    Set animMotion = effCustom.Behaviors.Add(msoAnimTypeMotion)
    'Sets starting and ending horizontal and vertical positions
    With animMotion.MotionEffect
        .FromX = 0
        .FromY = 0
        .ToX = 50
        .ToY = 50
    End With
End Sub
FromY属性
返回或设置 Single 类型值，该值分别代表ScaleEffect 或MotionEffect对象的初始高度或垂直位置，其值以屏幕宽度的百分比表示。可读写。
expression.FromY
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
此属性的默认值为 Empty，此情况下使用对象的当前位置。
将此属性与ToY属性联合使用以调整大小或从一个位置跳到另一个位置。
请勿将此属性与ColorEffect、RotationEffect 或PropertyEffect对象的From属性相混淆，后者分别用于设置或更改动画动作的颜色、旋转或其他属性。
VBA示例
以下示例添加一个动画路径并设置起始和结束的水平和垂直位置。
Sub AddMotionPath()
    Dim effCustom As Effect
    Dim animMotion As AnimationBehavior
    Dim shpRectangle As Shape
    'Adds shape and sets effect and animation properties
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effCustom = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectCustom)
    Set animMotion = effCustom.Behaviors.Add(msoAnimTypeMotion)
    'Sets starting and ending horizontal and vertical positions
    With animMotion.MotionEffect
        .FromX = 0
        .FromY = 0
        .ToX = 50
        .ToY = 50
    End With
End Sub

weiyingde

FullName属性
返回指定的加载宏或保存的演示文稿的名称，包括路径、当前文件系统的分割符和文件扩展名。只读。String 类型。
说明
本属性等价于Path属性，附加上当前文件系统分隔符和Name属性。
VBA示例
本示例显示所有可用加载宏的路径和文件名。
For Each a In Application.AddIns
    MsgBox a.FullName
Next a
本示例显示当前演示文稿的路径名和文件名（假设演示文稿已存盘）。
MsgBox Application.ActivePresentation.FullName
Gap属性
以磅为单位返回或设置标注线末尾到文本框边界的水平距离。可读写。Single 类型。
VBA示例
本示例设置了标注线之间的距离，还将myDocument 中第一个形状的文本边界框的大小设置为 3 磅。要使本示例执行，第一个形状必须是标注。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Callout.Gap = 3
GradientColorType属性
返回指定填充的过渡颜色类型。该属性为只读。使用OneColorGradient、PresetGradient 或TwoColorGradient方法设置填充的过渡类型。只读。MsoGradientColorType 类型。
MsoGradientColorType 可以是下列 MsoGradientColorType 类型常数之一。
msoGradientColorMixed
msoGradientOneColor
msoGradientPresetColors
msoGradientTwoColors
expression.GradientColorType
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将myDocument 中使用双色过渡填充的所有形状的填充更改为预设的过渡填充。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    With s.Fill
        If .GradientColorType = msoGradientTwoColors Then
            .PresetGradient msoGradientHorizontal, _
                1, msoGradientBrass
        End If
    End With
Next
GradientDegree属性
返回一个值，该值指示单色过渡填充的明暗度。该值为 0 指示在前景色中混合黑色形成过渡；该值为 1 指示混合白色；0 和 1 之间的值代表混合不同深浅的前景色。只读。Single 类型。
该属性为只读。使用OneColorGradient方法设置填充的过渡程度。
VBA示例
本示例向myDocument 添加矩形，并且设置该矩形的填充过渡程度以适应名为“Rectangle 2”的形状中的过渡程度。如果矩形 2 不使用单色过渡填充，则本示例失败。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    gradDegree1 = .Item("Rectangle 2").Fill.GradientDegree
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradient msoGradientHorizontal, 1, gradDegree1
    End With
End With

weiyingde

GradientStyle属性
返回指定填充的过渡样式。使用OneColorGradient、PresetGradient 或TwoColorGradient方法设置填充的过渡样式。对未使用过渡的填充试图返回该属性将产生错误。使用Type属性决定该填充是否使用过渡。只读。MsoGradientStyle 类型。
MsoGradientStyle 是下列 MsoGradientStyle 常数之一。
msoGradientDiagonalDown
msoGradientDiagonalUp
msoGradientFromCenter
msoGradientFromCorner
msoGradientFromTitle
msoGradientHorizontal
msoGradientMixed
msoGradientVertical
expression.GradientStyle
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例向myDocument 中添加矩形，并设置该矩形的填充过渡样式，以匹配名为“rect1”的形状的过渡样式。要执行本示例，“rect1”必须使用过渡填充。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    gradStyle1 = .Item("rect1").Fill.GradientStyle
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradient gradStyle1, 1, 1
    End With
End With
GradientVariant属性
返回指定填充的过渡变量。对于多数过渡填充，该值为从 1 到 4 的整数。如果过渡样式为 msoGradientFromTitle 或 msoGradientFromCenter，该属性返回 1 或 2。该属性的值对应于 “填充效果”对话框中 “过渡” 选项卡的过渡变量（按从左向右、从上到下编号）。只读。Long 类型。
该属性为只读。使用OneColorGradient、PresetGradient 或TwoColorGradient方法设置填充的过渡变量。
VBA示例
本示例向myDocument 中添加矩形，并设置该矩形的填充过渡变量，以匹配名为“rect1”的形状的过渡变量。要执行本示例，“rect1”必须使用过渡填充。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    gradVar1 = .Item("rect1").Fill.GradientVariant
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradient msoGradientHorizontal, gradVar1, 1
    End With
End With
GridDistance属性
设置或返回 Single 类型值，该值代表网格线之间的距离。可读写。
expression.GridDistance
expression  必选。该表达式返回一个Presentation对象。
VBA示例
本示例显示网格线，然后指定网格线之间的距离并且启用对齐网格的设置。
Sub SetGridLines()
    Application.DisplayGridLines = msoTrue
    With ActivePresentation
        .GridDistance = 18
        .SnapToGrid = msoTrue
    End With
End Sub

weiyingde

GroupItems属性
返回一个代表指定组中单个形状的GroupShapes对象。使用 GroupShapes对象的Item方法从该组中返回单个形状。应用于代表分组形状的 Shape 或 ShapeRange对象。只读。
VBA示例
本示例向myDocument 中添加三个三角形，将它们组合，再设置整个组的颜色，然后只更改第二个三角形的颜色。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    .AddShape(msoShapeIsoscelesTriangle, 10, _
        10, 100, 100).Name = "shpOne"
    .AddShape(msoShapeIsoscelesTriangle, 150, _
        10, 100, 100).Name = "shpTwo"
    .AddShape(msoShapeIsoscelesTriangle, 300, _
        10, 100, 100).Name = "shpThree"
    With .Range(Array("shpOne", "shpTwo", "shpThree")).Group
        .Fill.PresetTextured msoTextureBlueTissuePaper
        .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble
    End With
End With
HandoutMaster属性
返回一个代表讲义母版的Master对象。只读。
VBA示例
本示例设置当前演示文稿的讲义母版的背景图案。
Application.ActivePresentation.HandoutMaster.Background.Fill _
    .Patterned msoPatternDarkHorizontal
HandoutOrder属性
返回或设置幻灯片出现在打印讲义上的页面版式顺序，打印讲义可在一个页面上放映多个幻灯片。可读写。PpPrintHandoutOrder 类型。
PpPrintHandoutOrder 可以是下列 PpPrintHandoutOrder 类型常数之一。
ppPrintHandoutHorizontalFirst 幻灯片水平排序，第一张幻灯片位于左上角，第二张位于其右侧。如果语言设置指定的是从右向左的语言，则第一张幻灯片位于右上角，第二张位于其左侧。
ppPrintHandoutVerticalFirst 幻灯片垂直排序，第一张幻灯片位于左上角，第二张位于其下。如果语言设置指定的是从右向左的语言，则第一张幻灯片位于右上角，第二张位于其下。
expression.HandoutOrder
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例设置活动演示文稿的讲义使每个页面包含六张幻灯片，并在讲义上水平排序，然后打印。
With ActivePresentation
    .PrintOptions.OutputType = ppPrintOutputSixSlideHandouts
    .PrintOptions.HandoutOrder = ppPrintHandoutHorizontalFirst
    .PrintOut
End With