Project) (Shapes.AddCallout 方法

在報表中建立無框線圖說文字。 傳回代表新圖說文字的 Shape 物件。

語法

expression。 AddCallout (類型，左，頂端，寬度，高度)

expression 代表 Shapes 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Type 必要 MsoCalloutType 圖說文字類型。
Left 必要 Single 圖說文字的邊界方塊左邊緣的位置， 以點為單位。
Top 必要 Single 圖說文字的邊界方塊上邊緣的位置， 以點為單位。
Width 必要 Single 圖說文字的邊界方塊寬度， 以點為單位。
Height 必要 Single 圖說文字的邊界方塊高度， 以點為單位。
Type 必要 MSOCALLOUTTYPE
Left 必要 FLOAT
Top 必要 FLOAT
Width 必要 FLOAT
Height 必要 FLOAT

傳回值

圖形

註解

Type 參數可以是下列其中一個 MsoCalloutType 常數：
msoCalloutOne：可以是水平或垂直的單一區段註標線。
msoCalloutTwo：一段可自由旋轉的圖說文字線。
msoCalloutMixed：表示其他狀態組合的傳回值。
msoCalloutThree：一條兩段線，可以將線段結尾拖曳到不同的位置。
msoCalloutFour：三段線。

您可以使用 AddShape 方法插入更多種圖說文字，例如氣球和雲朵。

範例

下列範例會新增具有兩段註標線的圖說文字，將結束線段的角度設定為與垂直方向成 60 度，並將文字新增至圖說文字。

Sub AddCallout()
    Dim oReports As Reports
    Dim oReport As Report
    Dim calloutShape As shape
    Dim reportName As String
    
    reportName = "Report 1"
    Set oReports = ActiveProject.Reports

    If oReports.IsPresent(reportName) Then
        ' Make the report the active view.
        oReports(reportName).Apply
        
        Set oReport = oReports(reportName)
        
        Set calloutShape = oReport.Shapes.AddCallout(Type:=msoCalloutTwo, _
                                        left:=200, top:=5, width:=100, height:=50)
        With calloutShape
            .Callout.Type = msoCalloutThree
            .Callout.Angle = msoCalloutAngle60
            .BackgroundStyle = msoBackgroundStylePreset10
            .TextFrame2.TextRange.Text = "This is a test"
        End With
    Else
         MsgBox Prompt:="The requested report, '" & reportName _
            & "', does not exist.", Title:="Report error"
    End If
End Sub

另請參閱

圖形物件圖形物件AddShape 方法

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。

  • 上次更新時間：