Propriété TextEffectFormat.RotatedChars (Word)
MsoTrue si les caractères contenus dans l'objet WordArt spécifié sont pivotés de 90 degrés par rapport à la forme de délimitation WordArt. MsoFalse si les caractères contenus dans l'objet WordArt spécifié conservent leur orientation d'origine par rapport à la forme de délimitation. En lecture-écriture MsoTriState.
Syntaxe
expression. RotatedChars
expression Obligatoire. Variable qui représente un objet « TextEffectFormat ».
Remarques
Si l'objet WordArt comporte du texte horizontal, la définition de la propriété RotatedChars sur True fait pivoter les caractères de 90 degrés vers la gauche. Si l'objet WordArt comporte du texte vertical, la définition de la propriété RotatedChars sur False fait pivoter les caractères de 90 degrés vers la droite. Utilisez la méthode ToggleVerticalText pour basculer entre le texte horizontal et vertical.
La méthode Flip et propriété Rotation de l'objet Shape et la propriété RotatedChars et de la méthode ToggleVerticalText d'un objet TextEffectFormat affectent l'orientation des caractères et le sens du texte dans un objet Shape qui représente l'objet WordArt. Vous devrez peut-être plusieurs essais pour savoir comment combiner les effets de ces propriétés et méthodes pour obtenir le résultat souhaité.
Exemple
Cet exemple indique comment ajouter un objet WordArt qui contient le texte « Test » dans myDocument et comment faire pivoter les caractères de 90 degrés dans le sens contraire des aiguilles d’une montre.
Set myDocument = ActiveDocument
Set newWordArt = _
myDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect1, _
Text:="Test", _
FontName:="Arial Black", FontSize:=36, _
FontBold:=False, FontItalic:=False, Left:=10, Top:=10)
newWordArt.TextEffect.RotatedChars = True
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