大众计算机学习网

专门提供各种电脑教程

VBA之AnimationSettings、Application、AutoCorrect

Admin | 2012-9-12 10:01:18 | 被阅次数 | 4487

  一、AnimationSettings

  代表幻灯片放映时应用于指定形状的动画的特殊效果。

  使用AnimationSettings对象

  使用 Shape 对象的 AnimationSettings 属性返回 AnimationSettings 对象。以下示例在当前演示文稿中添加一张幻灯片,其中包含标题和一个三项列表,然后设置该列表由第一级段落激活,从左侧飞入,被制成动画后变暗为指定颜色,并且其中的项目按逆向激活。

  Set sObjs = ActivePresentation.Slides.Add(2, ppLayoutText).Shapes
  sObjs.Title.TextFrame.TextRange.Text = "Top Three Reasons"
  With sObjs.Placeholders(2)
      .TextFrame.TextRange.Text = _
          "Reason 1" & VBNewLine & "Reason 2" & VBNewLine & "Reason 3"
      With .AnimationSettings
          .TextLevelEffect = ppAnimateByFirstLevel
          .EntryEffect = ppEffectFlyFromLeft
          .AfterEffect = ppAfterEffectDim
          .DimColor.RGB = RGB(100, 120, 100)
          .AnimateTextInReverse = True
      End With
  End With

  二、Application

  代表整个 Microsoft PowerPoint 应用程序。Application 对象包括:

  应用程序范围内的设置和选项(例如,当前打印机的名称)
  用于返回顶层对象的属性,例如 ActivePresentation、Windows 等。

  使用 Application 对象

  使用 Application 属性返回 Application 对象。以下示例返回应用程序文件的路径。

  Dim MyPath As String
  MyPath = Application.Path

  以下示例在其他应用程序中创建一个 PowerPoint Application 对象,并启动 PowerPoint(如果还未运行的话),然后打开一个名为“Ex_a2a.ppt”的现有演示文稿。

  Set ppt = New Powerpoint.Application
  ppt.Visible = True
  ppt.Presentations.Open "c:\MyTest\111.ppt"

  说明

  编写要在 PowerPoint 中运行的编码时,以下 Application 对象的属性可以在没有对象限定符的情况下使用:ActivePresentation、ActiveWindow、AddIns、Assistant、CommandBars、Presentations、SlideShowWindows 和 Windows。例如,可以用 ActiveWindow.Height = 200 来代替 Application.ActiveWindow.Height = 200。

  三、AutoCorrect

  代表 Microsoft PowerPoint 中的“自动更正”功能。

  使用 AutoCorrect 对象

  使用 AutoCorrect 属性返回一个 AutoCorrect 对象。以下示例禁止显示“自动更正选项”按钮。

  Sub HideAutoCorrectOpButton()
      With Application.AutoCorrect
          .DisplayAutoCorrectOptions = msoFalse
          .DisplayAutoLayoutOptions = msoFalse
      End With
  End Sub