Shapes.AddCallout, méthode (PowerPoint)
Crée une légende sans bordure. Renvoie un objet Shape qui représente la nouvelle légende.
Syntaxe
expression. AddCallout
( _Type_
, _Left_
, _Top_
, _Width_
, _Height_
)
expression Variable qui représente un objet Shapes.
Paramètres
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Type | Requis | MsoCalloutType | Type de légende. |
Gauche | Obligatoire | Unique | Position, exprimée en points, du bord gauche de la zone de délimitation de la légende par rapport au bord gauche de la diapositive. |
Top | Obligatoire | Unique | Position, exprimée en points, du bord supérieur de la zone de délimitation de la légende par rapport au bord supérieur de la diapositive. |
Width | Obligatoire | Unique | Largeur de la zone de délimitation de la légende, exprimée en points. |
Height | Obligatoire | Unique | Hauteur de la zone de délimitation de la légende, exprimée en points. |
Valeur renvoyée
Shape
Remarques
Vous pouvez insérer une plus grande variété de légendes à l’aide de la méthode AddShape .
Exemple
Cet exemple ajoute une légende sans bordure avec une ligne de légende d’un seul segment en rotation libre à « myDocument » et définit l’angle de la légende à 30 degrés.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.