Friday, 14 November 2014

Setting the text alignment to CounterClockwise

Sub CounterClockwise()

    With ActiveCell
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 45
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

No comments:

Post a Comment