Upside down text with shrink to fit by textbox

[Sami_Noa]

Hi, I need to invert text in cells up down side and I have found the best way to insert textbox and invert it then linking it to the cell.
I try to make the text in the textbox to shrink to fit the size of the text box, thanks in advance.

 

[Yongle]

Try this:

to DECREASE font size - click on shape and "OK" (click more than once to keep decreasing)

to INCREASE font size - click on shape and replace "Y" with any other character (or delete the "Y")


Assgn this macro to the textbox

Sub TextBox1_Click()
    
With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Font
    If UCase(InputBox("Y = decrease", "Font Size", "Y")) = "Y" Then .Size = .Size - 1 Else .Size = .Size + 1
End With

End Sub

 

[Sami_Noa]

Thank you
The shrink to fit is the most amazing formatting features in excel.
That makes me make printing programs many times from excels file.

I think there isn't any way to get this features on textboxs but something like your way.
Thank you again.