Shape.Apply, méthode (Project)
Applique la mise en forme à une forme, 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 Shape .
Valeur renvoyée
Nothing
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 deuxième 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
Shape ObjectPickUp, méthodeShapeRange.Apply, 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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour