Dzwebs.Net

撰写电脑技术杂文十余年

vba之AddCallout 方法

Admin | 2014-2-7 16:14:09 | 被阅次数 | 6654

温馨提示!

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

  创建一个无边框的线形标注。返回一个代表新标注的 Shape 对象。

  expression.AddCallout(Type, Left, Top, Width, Height)

  expression  必选。该表达式返回“应用于”列表中的对象之一。

  Type  必选。MsoCalloutType 类型。标注线的类型。

  MsoCalloutType 可以是下列 MsoCalloutType 类型常数之一。
  msoCalloutOne 可水平或垂直的单段标注线。
  msoCalloutTwo 可自由旋转的单段标注线。
  msoCalloutThree两段标注线。
  msoCalloutThree 三段标注线。

  Left  必选。Single 类型。标注边界框左边缘相对于幻灯片左边缘的位置(以磅为单位)。

  Top  必选。Single 类型。标注边界框上边缘相对于幻灯片上边缘的位置(以磅为单位)。

  Width  必选。Single 类型。标注的边界框的宽度(以磅为单位)。

  Height  必选。Single 类型。标注的边界框的高度(以磅为单位)。

  说明:通过使用 AddShape 方法可插入多种不同的标注。

  代码示例:

  本示例在 myDocument 中添加一个无边框标注(此标注带有一个可自由旋转的单段标注线),并且将标注角度设为 30 度。

  Sub NewCallout()
      Dim sldOne As Slide
      Set sldOne = ActivePresentation.Slides(1)
      sldOne.Shapes.AddCallout(Type:=msoCalloutTwo, Left:=50, Top:=50, _
          Width:=200, Height:=100).Callout.Angle = msoCalloutAngle30
  End Sub


该杂文来自: PowerPoint杂文

上一篇:VBA编程之View对象与WebOptions

下一篇:vba6个特殊常量

网站备案号:

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

版权属性:

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

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计