Méthode Shape.PickUp (Project)

Copie la mise en forme d’une forme.

Syntaxe

expression. Enlèvement

expression Une variable qui représente uneForme d’objet.

Valeur renvoyée

Nothing

Remarques

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

Exemple

L’exemple suivant crée deux formes cylindriques, colore la première forme en rouge, copie la mise en forme de la première forme, puis l’applique à la seconde forme.

Sub ApplyShapeFormat()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 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.
    
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 30, 140, 100, 100)
    shp2.Name = "Shape 2"               ' Blue default color.
    
    With theReport
        .Shapes("Shape 1").PickUp
        .Shapes("Shape 2").Apply
    End With
End Sub

Voir aussi

Objet FormeMéthoded’application Méthode ShapeRange.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.