Partager via


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

Objet Shapes

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.