Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Cette méthode passe, dans l'objet WordArt spécifié, de l'orientation horizontale de l'enchaînement de texte à l'orientation verticale et vice-versa.
Syntaxe
expression. ToggleVerticalText
expression Variable qui représente un objet TextEffectFormat .
Remarques
L’utilisation de la méthode ToggleVerticalText échange les valeurs des propriétés Width et Height de l’objet Shape qui représente l’objet WordArt, et laisse les propriétés Gauche et Haut inchangées.
La méthode Flip et la propriété Rotation de l’objet Shape , ainsi que la propriété RotatedChars et la méthode ToggleVerticalText de l’objet TextEffectFormat affectent toutes l’orientation et le sens du flux de texte dans un objet Shape qui représente un objet WordArt . Vous devrez peut-être effectuer diverses tentatives pour déterminer comment combiner les effets de ces propriétés et de ces méthodes pour obtenir le résultat escompté.
Exemple
Cet exemple ajoute un objet WordArt qui contient le texte Test à myDocument et passe d’un flux de texte horizontal (valeur par défaut pour le style WordArt spécifié, msoTextEffect1) à un flux de texte vertical.
Set myDocument = Worksheets(1)
Set newWordArt = myDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect1, Text:="Test", _
FontName:="Arial Black", FontSize:=36, _
FontBold:=False, FontItalic:=False, Left:=100, _
Top:=100)
newWordArt.TextEffect.ToggleVerticalText
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.