Upside down text with shrink to fit by textbox

Sami_Noa

New Member
Joined
Apr 19, 2019
Messages
14
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

Well-known Member
Joined
Mar 11, 2015
Messages
4,710
Office Version
365
Platform
Windows
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
Code:
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

New Member
Joined
Apr 19, 2019
Messages
14
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.
 
Last edited:

Forum statistics

Threads
1,082,478
Messages
5,365,783
Members
400,850
Latest member
Raj_Jpr

Some videos you may like

This Week's Hot Topics

Top