Rotate text without rotating border

Question

I'm attempting to rotate the text inside of a cell without altering the cell border.

Roughly the intended result:

Current Output:

The only solution I've found so far involves adding either splitting all columns or all rows by adding rows/columns in-between, then merging. If I have to, I Can do it, but I would prefer another option.

I'm quite comfortable with VBA if anyone has a programmatic solution.

EDIT:

My result after trying suggested fixes. Cell Border is still angled.

Answer 1

The only way I can see for having angled text within a square cell, is to take the text out of the cell.

The text would then be inside a Text Box that will itself be angled, and the box would be placed above a cell that is resized to fit the text box.

For easier resizing of the cell without the need to manually resize the text box, you might want to set the following in the Format Shape dialog of the text box:

• In Shape Options > Size & Properties, under Properties, set "Move and size with cells"
• In the same place, under Text Box, set "Resize shape to fit text"
• Set other properties as required.

Answer 2

Just use the Orientation tool on the Alignment dialog Format Cells => Alignment

If you are setting Borders which you need to keep straight, you will need to have your angled text in merged cells.

Answer 3

There is this button in the Excel home tab.

Answer 4

Final Version of accepted answer, for anyone interested.

Sub ConvertCellTextToRotatedTextBox(Optional RG2 As Range)

    Dim I As Long
    Dim RG As Range
    Dim CL As Range
    Dim TextShape As Object
    
    If Not RG2 Is Nothing Then
        Set RG = RG2
    Else
        Set RG = Selection
    End If
    
    If RG.Cells.Count > 200 Then
        If MsgBox("You are trying to cycle through " & RG.Cells.Count & " Cells. Are you Sure???", _
            vbYesNo, "***WARNING***") = vbNo Then
                Exit Sub
        End If
    End If

    For Each CL In RG.Cells
        If CL.Value <> "" Then
            Set TextShape = ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 129.75, 204, 72, 72)
            With TextShape
                .TextFrame2.TextRange.Characters.Text = CL.Value
                .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
                .TextFrame2.VerticalAnchor = msoAnchorMiddle
                .Left = CL.Left
                .Top = CL.Top
                .Width = CL.Width
                .Height = CL.Height
                .Rotation = 5
                .Select
            End With
            Selection.Formula = "=" & CL.Address
            CL.Font.Color = CL.Interior.Color
        End If
    Next CL
    
    Exit Sub
    
ERRORHAND:
 MsgBox "Unknown Error", vbOKOnly, "ERROR:"
End Sub

Answer 5

Clear the formatting of the cell first (including cell fill color, etc). Then after that, use the AB↑ again to rotate the text then use fill color in font section to color the cell.