次の方法で共有

Shapes.AddCallout メソッド (Project)

レポートに罫線吹き出しを作成します。 新しい吹き出しを表す Shape オブジェクトを返します。

構文

expression。 AddCallout (型、左、上、幅、高さ)

表現Shapes オブジェクトを表す変数です。

パラメーター

名前 必須 / オプション データ型 説明
型 必須 MsoCalloutType 引き出し線の種類を指定します。
Left 必須 Single 吹き出しの境界ボックスの左端の 位置をポイント単位で指定します。
Top 必須 Single 吹き出しの境界ボックスの上端の 位置をポイント単位で指定します。
Width 必須 Single 吹き出しの境界ボックスの幅 ( ポイント単位)。
Height 必須 Single 吹き出しの境界ボックスの高さ ( ポイント単位)。
型 必須 MSOCALLOUTTYPE
Left 必須 FLOAT
Top 必須 FLOAT
Width 必須 FLOAT
Height 必須 FLOAT

戻り値

Shape

解説

Type パラメーターには、次のいずれかの MsoCalloutType 定数を指定できます。
msoCalloutOne: 水平または垂直の単一セグメント吹き出し線。
msoCalloutTwo: 自由に回転する単一セグメントの吹き出し線。
msoCalloutMixed: 他の状態の組み合わせを示す戻り値。
msoCalloutThree: セグメントの端を異なる位置にドラッグできる 2 つのセグメントの線。
msoCalloutFour: 3 セグメントの線。

AddShape メソッドを使用すると、吹き出しや雲など、さまざまな吹き出しを挿入できます。

例

次の使用例は、2 セグメントの吹き出し線を含む吹き出しを追加し、終了セグメントの角度を垂直から 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

関連項目

Shapes オブジェクトShape オブジェクトAddShape メソッド

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。