Shape.Select, méthode (Project)

Sélectionne la forme.

Syntaxe

expression. Select(Replace)

Expression Variable qui représente un objet Shape .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Replace	Facultatif	Variant	True remplace la sélection actuelle par la nouvelle sélection. False ajoute la nouvelle sélection à la sélection actuelle. La valeur par défaut est True.
Replace	Facultatif	Variant

Valeur renvoyée

Nothing

Exemple

L’exemple suivant crée trois formes, puis sélectionne chaque forme. Étant donné que les deuxième et troisième sélections s’ajoutent à la première sélection, les trois formes sont sélectionnées (voir figure 1).

Sub SelectShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 As shape
    Dim reportName As String
    
    reportName = "Select Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeActionButtonHelp, 20, 50, 20, 30)
    Set shp2 = theReport.Shapes.AddShape(msoShapeBalloon, 100, 50, 30, 50)
    Set shp3 = theReport.Shapes.AddShape(msoShapeWave, 140, 50, 30, 50)
            
    shp1.Select
    shp2.Select False
    shp3.Select False
End Sub

Figure 1. Utilisation de la méthode Select pour ajouter à une sélection

Voir aussi

Shape, objet

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.