次の方法で共有

Shape.Callout プロパティ (Publisher)

  • [アーティクル]

線吹き出しの書式設定を表す CalloutFormat オブジェクトを取得します。

構文

式。コールアウト

式Shape オブジェクトを表す変数。

例

次の使用例は、作業中の文書に楕円および楕円を指す吹き出しを追加します。 吹き出しには輪郭を設定しないで、引き出し線とテキストを分ける垂直の強調線を設定します。

Sub NewShapeItem() 
 
 Dim shpNew As Shapes 
 
 Set shpNew = Application.ActiveDocument.MasterPages(1).Shapes 
 With shpNew 
 .AddShape Type:=msoShapeOval, Left:=180, _ 
 Top:=200, Width:=280, Height:=130 
 With .AddCallout(Type:=msoCalloutTwo, Left:=420, _ 
 Top:=170, Width:=170, Height:=40) 
 .TextFrame.TextRange = "Big Oval" 
 With .Callout 
 .Accent = msoTrue 
 .Border = msoFalse 
 End With 
 End With 
 End With 
 
End Sub

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

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