ShapeRange.SetShapesDefaultProperties, méthode (PowerPoint)
Applique le format de la forme spécifiée à la forme par défaut. Les formes créées après utilisation de cette méthode appliqueront ce format par défaut.
Syntaxe
expression. SetShapesDefaultProperties
Expression Variable qui représente un objet ShapeRange .
Exemple
Cet exemple ajoute un rectangle à myDocument, met en forme le remplissage du rectangle, applique la mise en forme du rectangle à la forme par défaut et ajoute ensuite un rectangle plus petit au document. Le deuxième rectangle présente le même remplissage que le premier.
Set mydocument = ActivePresentation.Slides(1)
With mydocument.Shapes
With .AddShape(msoShapeRectangle, 5, 5, 80, 60)
With .Fill
.ForeColor.RGB = RGB(0, 0, 255)
.BackColor.RGB = RGB(0, 204, 255)
.Patterned msoPatternHorizontalBrick
End With
' Sets formatting for default shapes
.SetShapesDefaultProperties
End With
' New shape has default formatting
.AddShape msoShapeRectangle, 90, 90, 40, 30
End With
Voir aussi
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