ShapeRange.PickUp, méthode (Project)

Copie la mise en forme de la plage de formes.

Syntaxe

expression. Ramassage

Expression Variable qui représente un objet « ShapeRange ».

Valeur renvoyée

Nothing

Remarques

Utilisez la méthode Apply pour appliquer la mise en forme copiée à une autre forme ou plage de formes.

Exemple

L’exemple suivant crée trois formes cylindriques, colore la première forme en rouge, ajoute les deuxième et troisième formes à une plage de formes, copie la mise en forme de la première forme, puis applique la mise en forme à la plage de formes.

Sub ApplyShapeFormat()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 10, 30, 100, 100)
    shp1.Name = "Shape 1"
    shp1.Fill.ForeColor.RGB = &H1010FF  ' Red color.
    
    ' Blue default color.
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 30, 140, 100, 100)
    
    ' Blue default color.
    Set shp3 = theReport.Shapes.AddShape(msoShapeCan, 140, 140, 100, 100)
    
    Set sRange = theReport.Shapes.Range(Array(2, 3))
    
    theReport.Shapes("Shape 1").PickUp
    sRange.Apply
End Sub

Voir aussi

ShapeRange, objetApply, méthodeShape.PickUp, 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.