Word VBA教程:AddCallout方法

应用于 CanvasShapes对象的 AddCallout方法。

在画布上添加无框线的标注。返回一个代表该标注的Shape对象,并将其添加到CanvasShapes集合。

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

expression   必需。该表达式返回一个 CanvasShapes对象。

Type  MsoCalloutType,必需。标注的类型。

MsoCalloutType 可以是下列 MsoCalloutType 常量之一:
msoCalloutOne  沿标注边框的左侧边缘垂直向下定位标注线。
msoCalloutTwo  沿对角线向下并远离标注边框左侧边缘定位标注线。
msoCalloutThree  直接向外,沿对角线向下并远离标注边框左侧边缘定位标注线。
msoCalloutFour  沿标注边框左侧边缘定位标注线。
msoCalloutMixed  一个返回值,该值表示某区域或选定内容中存在多于一个 MsoCalloutType。

Left  Single 类型,必需。标注边框左侧边缘的位置,以磅为单位。

Top  Single 类型,必需。标注边框上部边缘的位置,以磅为单位。

Width  Single 类型,必需。标注边框的宽度,以磅为单位。

Height  Single 类型,必需。标注边框的高度,以磅为单位。

应用于 Shapes对象的 AddCallout方法。

在文档中添加无框线的标注。返回代表该标注的Shape对象,并将其添加到Shapes集合。

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

expression   必需。该表达式返回一个 Shapes对象。

Type  MsoCalloutType,必需。标注的类型。

MsoCalloutType 可以是下列 MsoCalloutType 常量之一:
msoCalloutOne  沿标注框左侧边缘垂直向下定位标注线。
msoCalloutTwo  沿对角线向下并远离标注框左侧边缘定位标注线。
msoCalloutThree  直接向外,沿对角线向下并远离标注框左侧边缘定位标注线。
msoCalloutFour  沿标注文本框左侧边缘定位标注线。
msoCalloutMixed   一个返回值,该值表示在某区域或选定内容中存在多于一个 MsoCalloutType。

Left  Single 类型,必需。标注边框左侧边缘的位置,以磅为单位。

Top  Single 类型,必需。标注边框上部边缘的位置,以磅为单位。

Width  Single 类型,必需。标注边框的宽度,以磅为单位。

Height  Single 类型,必需。标注边框的高度,以磅为单位。

Anchor  Variant 类型,可选。一个Range对象,该对象代表该标注绑定的文本。如果指定 Anchor,则锁定标记将出现在锁定区域第一段的起始位置。如果忽略该参数,将自动选择锁定区域,并根据页面的上边界和左边界的相对位置来定位标注。

说明

使用AddShape方法可以插入多种不同的标注,例如气球和云朵。

VBA示例

在应用于 CanvasShapes对象时。

本示例在新创建的画布上添加标注。


Sub NewCanvasCallout()
    Dim shpCanvas As Shape
    'Add drawing canvas to the active document
    Set shpCanvas = ActiveDocument.Shapes.AddCanvas _
        (Left:=150, Top:=150, Width:=200, Height:=300)
    'Add callout to the drawing canvas
    shpCanvas.CanvasItems.AddCallout _
        Type:=msoCalloutTwo, Left:=100, _
        Top:=40, Width:=150, Height:=75
End Sub

当应用于 Shapes对象时。

本示例在当前文档中添加一个标注,然后设置标注的角度。


Sub NewCallout()
    Dim shpCallout As Shape
    'Add callout to the current document
    Set shpCallout = ThisDocument.Shapes.AddCallout( _
        Type:=msoCalloutTwo, Left:=InchesToPoints(1.25), _
        Top:=36, Width:=100, Height:=25)
    'Add text to the callout
    shpCallout.TextFrame.TextRange.Text = "This is a Callout."
    'Format the angle of the callout line to 30 degrees
    shpCallout.Callout.Angle = msoCalloutAngle30
End Sub

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号