ShapeRange.Apply, méthode (Project)

Applique la mise en forme à une plage de formes, où les informations de mise en forme ont été copiées à l’aide de la méthode PickUp .

Syntaxe

expression. Appliquer

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

Valeur renvoyée

Nothing

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 Méthodede prélèvement d’objetShape.Apply

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.