ppt学习资料

weiyingde

FarEastLineBreakControl属性
如果使用的亚洲语言设置为指定的 True 类型并且已经选择了换行控制选项，则返回或设置该换行控制选项。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue
VBA示例
本示例选择了当前演示文稿中第一个形状的文本换行选项。
ActivePresentation.Slides(1).Shapes(1).TextFrame _
    .TextRange.ParagraphFormat.FarEastLineBreakControl = msoTrue
FarEastLineBreakLanguage属性
返回或设置某种语言，该语言用于决定换行控制选项打开时所使用的换行级别。可读写。MsoFarEastLineBreakLanguageID 类型。
MsoFarEastLineBreakLanguageID 可以是下列 MsoFarEastLineBreakLanguageID 类型常数之一。
MsoFarEastLineBreakLanguageJapanese
MsoFarEastLineBreakLanguageKorean
MsoFarEastLineBreakLanguageSimplifiedChinese
MsoFarEastLineBreakLanguageTraditionalChinese
expression.FarEastLineBreakLanguage
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例将换行语言设置为日语。
ActivePresentation.FarEastLineBreakLanguage = _
MsoFarEastLineBreakLanguageJapanese
FarEastLineBreakLevel属性
返回或设置基于亚洲字符级别的换行符。可读写。Long 类型。可读写。PpFarEastLineBreakLevel 类型。
PpFarEastLineBreakLevel 可以是下列 PpFarEastLineBreakLevel 类型常数之一。
ppFarEastLineBreakLevelCustom
ppFarEastLineBreakLevelNormal
ppFarEastLineBreakLevelStrict
expression.FarEastLineBreakLevel
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将换行控制设置为使用第一级的避头尾字符。
ActivePresentation.FarEastLineBreakLevel = _
    ppFarEastLineBreakLevelNormal

weiyingde

FeatureInstall属性
返回或设置 Microsoft PowerPoint 中对调用的处理方法，该调用的对象是所需功能尚未安装的方法和属性。可读写。MsoFeatureInstall 类型。
MsoFeatureInstall 可以是下列 MsoFeatureInstall 类型常数之一。
msoFeatureInstallNone 默认值。调用未安装的功能时会产生可捕获的运行时自动错误。
msoFeatureInstallOnDemand 显示对话框提示用户安装新功能。
msoFeatureInstallOnDemandWithUI 安装时显示进度条。没有提示用户安装新功能。
expression.FeatureInstall
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
可以使用 msoFeatureInstallOnDemandWithUI 常数防止用户误以为当安装某功能时系统没有反应。使用带有错误捕获例程的 msoFeatureInstallNone 常数可防止安装最终用户功能。
注意  如果在一字符串中要引用一个已卸载的演示文稿设计模板，则会产生一个运行错误。模板不会不顾 FeatureInstall属性的设置而自动安装。为当前未安装的模板若要使用ApplyTemplate方法，必须首先安装附加的设计模板。方法是：通过运行 Microsoft Office 安装程序（使用 Windows 控制面板中的“添加/删除程序”图标）为 PowerPoint 安装附加设计模板。
VBA示例
本示例检查 FeatureInstall属性的值。如果该属性设置为 msoFeatureInstallNone，则代码显示一个消息框，以询问用户是否要更改属性设置。如果用户回答“是”，则此属性将会设置为 msoFeatureInstallOnDemand。
With Application
    If .FeatureInstall = msoFeatureInstallNone Then
        Reply = MsgBox("Uninstalled features for this " _
                & "application " & vbCrLf _
                & "may cause a run-time error when called." & vbCrLf _
                & vbCrLf _
                & "Would you like to change this setting" & vbCrLf _
                & "to automatically install missing features when called?" _
                , 52, "Feature Install Setting")
            If Reply = 6 Then
                .FeatureInstall = msoFeatureInstallOnDemand
            End If
    End If
End With
FileDialog属性
返回FileDialog对象，该对象代表文件对话框的单个示例。
expression.FileDialog(Type)
expression  必选。该表达式返回一个Application对象。
Type  必选。MsoFileDialogType 类型。该类型为返回的对话框类型。
MsoFileDialogType 可以是下列 MsoFileDialogType 类型常数之一。
msoFileDialogFilePicker
msoFileDialogFolderPicker
msoFileDialogOpen
msoFileDialogSaveAs
VBA示例
本示例显示“另存为”对话框。
Sub ShowSaveAsDialog()
    Dim dlgSaveAs As FileDialog
    Set dlgSaveAs = Application.FileDialog( _
        Type:=msoFileDialogSaveAs)
    dlgSaveAs.Show
End Sub
本示例显示“打开”对话框，并允许用户选择多个文件以打开。
Sub ShowFileDialog()
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog( _
        Type:=msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = True
        .Show
    End With
End Sub

weiyingde

FileName属性
返回或设置在发布整个或部分活动演示文稿时所创建的 Web 演示文稿的路径和文件名。可读写。String 类型。
说明
如果指定路径的文件夹不存在，则 FileName属性会产生错误。
VBA示例
本示例将活动演示文稿中第三张幻灯片到第五张幻灯片发布成 HTML 格式。本示例还将发布的演示文稿命名为“Mallard.htm”并将其保存在“Test”文件夹中。
With ActivePresentation.PublishObjects(1)
    .FileName = "C:\Test\Mallard.htm"
    .SourceType = ppPublishSlideRange
    .RangeStart = 3
    .RangeEnd = 5
    .Publish
End With
FileSearch属性
返回一个 FileSearch对象，该对象可用于以绝对路径或相对路径的方式搜索文件。只读。
VBA示例
本示例显示“My Documents”文件夹中所有以“New”开头的文件名称。
With Application.FileSearch
    .FileName = "New*.*"
    .LookIn = "C:\My Documents"
    .Execute
    For I = 1 To .FoundFiles.Count
        MsgBox .FoundFiles(I)
    Next
End With
Fill属性
返回一个FillFormat对象，该对象包含指定形状的填充格式属性。只读。
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
FirstChild属性
返回 DiagramNode对象，该对象代表图示节点集合中的第一个图示节点。
Expression.FirstChild
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例新建一个图示并且标识第一个图示子节点。
Sub FirstChildNodeHello()
    Dim dgnNode As DiagramNode
    Dim dgnFirst As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    Set shpDiagram = ActivePresentation.Slides(1).Shapes.AddDiagram _
        (Type:=msoDiagramOrgChart, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    Set dg nNode = shpDiagram.DiagramNode.Children.AddNode
    For intNodes = 1 To 3
        dg nNode.Children.AddNode
    Next intNodes
    Set dgnFirst = dg nNode.Children.FirstChild
    dgnFirst.Shape.TextFrame.TextRange.Text = "Here I am!"
End Sub

weiyingde

FirstMargin属性
以磅为单位返回或设置指定大纲级别的首行缩进。可读写。Single 类型。
说明
如果段落以一个项目符号开始，该项目符号的位置由 FirstMargin属性决定。该段落的第一个文本字符的位置由 LeftMargin属性决定。
注意  RulerLevels集合包含五个 RulerLevel对象，每个对象对应于一个可能的大纲级别。对应于第一个大纲级别的 RulerLevel对象的 FirstMargin属性值的有效范围为（- 9.0 到 4095.875）。对应于第二到第五个大纲级别的 RulerLevel对象的 FirstMargin属性值确定如下：
最大值永远为 4095.875。
最小值为 FirstMargin属性和前一级 LeftMargin属性加 9 之间的最大赋值。
可以使用以下公式决定 FirstMargin属性的最小值。Index，RulerLevel对象中的索引数目表示了对象所对应大纲级别。若要决定对应第二到第五大纲级别的 RulerLevel对象的最小 FirstMargin属性值，用 2、3、4 或 5 代替 index 占位符。
Minimum(RulerLevel(index).FirstMargin) = Maximum(RulerLevel(index -1).FirstMargin, RulerLevel(index -1).LeftMargin) + 9
Minimum(RulerLevel(index).LeftMargin) = Maximum(RulerLevel(index -1).FirstMargin, RulerLevel(index -1).LeftMargin) + 9
VBA示例
本示例设置当前演示文稿幻灯片母版的文本第一级的首行缩进和悬挂缩进。
With Application.ActivePresentation _
        .SlideMaster.TextStyles(ppBodyStyle)
    With .Ruler.Levels(1)
        .FirstMargin = 9
        .LeftMargin = 54
    End With
End With
FirstSlideNumber属性
返回或设置演示文稿第一张幻灯片的编号。可读写。Long 类型。
说明
幻灯片编号是在显示幻灯片编号时出现在幻灯片右下角的实际编号。此编号是由演示文稿中幻灯片编号（顺序，即 SlideIndex属性值）和演示文稿的起始幻灯片编号（FirstSlideNumber属性值）所决定的。幻灯片编号始终等于起始幻灯片编号加上幻灯片索引数目再减去一。SlideNumber属性返回幻灯片编号。
VBA示例
本示例显示当前演示文稿中第一张幻灯片编号的改变对指定幻灯片编号的影响。
With Application.ActivePresentation
    .PageSetup.FirstSlideNumber = 1  'starts slide numbering at 1
    MsgBox .Slides(2).SlideNumber    'returns 2
    .PageSetup.FirstSlideNumber = 10  'starts slide numbering at 10
    MsgBox .Slides(2).SlideNumber     'returns 11
End With
FitToPage属性
决定是否调整幻灯片大小以适应打印页面。可读写。MsoTriState。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认值。幻灯片将使用“页面设置”对话框中指定的尺寸，不论该尺寸是否与打印页面相适应。
msoTriStateMixed
msoTriStateToggle
msoTrue 调整指定幻灯片的大小以适应打印页面，忽略“页面设置”对话框（“文件”菜单）中的“高度”和“宽度”框中的值。
VBA示例
本示例打印当前演示文稿并调整幻灯片大小以适应打印页面。
With ActivePresentation
    .PrintOptions.FitToPage = msoTrue
    .PrintOut
End With

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