Shapes.AddCallout, méthode (Project)

Crée une légende de ligne sans bordure dans un rapport. 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	Obligatoire	MsoCalloutType	Type de légende.
Left	Obligatoire	Unique	Position, en points, du bord gauche du cadre englobant de la légende.
Top	Obligatoire	Unique	Position, en points, du bord supérieur du cadre englobant de la légende.
Width	Obligatoire	Unique	Largeur, en points, du cadre englobant de la légende.
Height	Obligatoire	Unique	Hauteur, en points, du cadre englobant de la légende.
Type	Obligatoire	MSOCALLOUTTYPE
Left	Obligatoire	FLOAT
Top	Obligatoire	FLOAT
Width	Obligatoire	FLOAT
Height	Obligatoire	FLOAT

Valeur renvoyée

Forme

Remarques

Le paramètre Type peut être l’une des constantes MsoCalloutType suivantes :

msoCalloutOne : ligne de légende à segment unique qui peut être horizontale ou verticale.
msoCalloutTwo : ligne de légende à segment unique qui pivote librement.
msoCalloutMixed : valeur de retour qui indique une combinaison des autres états.
msoCalloutThree : ligne à deux segments, où les extrémités du segment peuvent être déplacées vers différentes positions.
msoCalloutFour : ligne à trois segments.

Vous pouvez insérer une plus grande variété de légendes, telles que des bulles et des nuages, à l’aide de la méthode AddShape .

Exemple

L’exemple suivant ajoute une légende avec une ligne de légende à deux segments, définit l’angle du segment de fin à 60 degrés par rapport à la verticale et ajoute du texte à la légende.

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

Voir aussi

Shapes, objetShape ObjectAddShape, méthode

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.