Méthode ShapeRange.PickUp (Project)

Copie la mise en forme de la plage de formes.

Syntaxe

expression. Enlèvement

expression Variable qui représente un objet 'ShapeRange'.

Valeur renvoyée

Nothing

Remarques

Utilisez la méthode Appliquer 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

Objet ShapeRange Méthoded’applicationMéthode Shape.PickUp

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.