Here is an example
Sub Orientations()
ActiveCell.Orientation = xlHorizontal
ActiveCell.Orientation = xlVertical
ActiveCell.Orientation = xlUpward
ActiveCell.Orientation = xlDownward
ActiveCell.Orientation = 45
ActiveCell.Orientation = -45
End Sub
The orientation of the cell in Excel would be as follows:
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjkTxGfoiB78X8kR6fXb49jqBWw6oATM1FuyT33ndLvwqFxPFVy4RBUYhQI-uKiKOWhAwMf3Q_uWjD9dfc1Y-IYYvcYQuwT0qPsl_vHmrhIT8WISSgPbH9N72VX-hQjgOcUWQMJ/s400/VBAdud_Excel_ORientation.gif)
thanks!
ReplyDeleteThanks
ReplyDelete