Rotate text issue?

[tabuariki]

im having trouble finding resources for using visio with vba macros. there are multiple things im trying to work out, but currently i need my text to rotate 90 degrees counter clockwise. visShape.CellsU("TextDirection").FormulaU = "1" works with rotating counterclockwise, but visShape.CellsU("TextDirection").FormulaU = "2" and visShape.CellsU("TextDirection").FormulaU = "3" do nothing. any suggestions?

[Nikolay]

visShape.CellsU("TxtAngle").FormulaU = "90 deg"

[wapperdude]

The TextDirection cell is not used for angular rotations.  It only allows the text to flow horizontally or vertically.  Allowed entry values are either 0 or 1.  See https://learn.microsoft.com/en-us/office/client-developer/visio/textdirection-cell-text-block-format-section

For more comprehensive text treatment, see Designing Text Behavior, https://learn.microsoft.com/en-us/previous-versions/office/developer/office-xp/aa200986(v=office.10)