Dzwebs.Net

撰写电脑技术杂文十余年

演示文稿的Selection对象

Admin | 2013-8-23 8:16:42 | 被阅次数 | 3808

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  Selection对象

  代表指定文档窗口中的选中对象。

  使用 Selection 对象

  使用 Selection 属性返回 Selection 对象。以下示例将当前窗口中的选中对象复制到剪贴板。

  ActiveWindow.Selection.Copy

  使用 ShapeRange、SlideRange 或 TextRange 属性从选中的对象返回一系列形状、幻灯片或文本。

  以下示例设置第二个窗口中选中形状的前景色,假设至少选中了一个形状且所有选中的形状具有可以改变前景色的填充。

  With Windows(2).Selection.ShapeRange.Fill
      .Visible = True
      .ForeColor.RGB = RGB(255, 0, 255)
  End With

  如果第二个窗口中的第一个选中形状包含一文本框,以下示例设置其中的文本。

  With Windows(2).Selection.ShapeRange(1)
      If .HasTextFrame Then
          .TextFrame.TextRange = "Current Choice"
      End If
  End With

  以下示例剪切当前窗口中选中的文本,将其放到剪贴板。

  ActiveWindow.Selection.TextRange.Cut

  以下示例复制选中的所有幻灯片(如果位于幻灯片视图,则复制当前幻灯片)。

  ActiveWindow.Selection.SlideRange.Duplicate

  如果使用这些属性时而没有选中合适类型对象(例如,在没有选中形状的情况下使用 ShapeRange 属性),则会发生错误。请使用 Type 属性判断选中对象的类型。以下示例检查选中的对象中是否包含幻灯片。如果其中包含幻灯片,该示例设置其中第一个选中幻灯片的背景色。

  With Windows(2).Selection
      If .Type = ppSelectionSlides Then
          With .SlideRange(1)
              .FollowMasterBackground = False
              .Background.Fill.PresetGradient _
                  msoGradientHorizontal, 1, msoGradientLateSunset
          End With
      End If
  End With

  说明:在某一幻灯片视图中修改幻灯片时,Selection 对象将被删除(Type 属性将返回 ppSelectionNone)。


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231