Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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.