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.
 

Some videos you may like

Excel Facts

Excel Can Read to You
Customize Quick Access Toolbar. From All Commands, add Speak Cells or Speak Cells on Enter to QAT. Select cells. Press Speak Cells.

Yongle

Well-known Member
Joined
Mar 11, 2015
Messages
6,369
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:

Watch MrExcel Video

Forum statistics

Threads
1,102,778
Messages
5,488,819
Members
407,658
Latest member
Arias610

This Week's Hot Topics

  • Timer in VBA - Stop, Start, Pause and Reset
    [CODE=vba][/CODE] Option Explicit Dim CmdStop As Boolean Dim Paused As Boolean Dim Start Dim TimerValue As Date Dim pausedTime As Date Sub...
  • how to updates multiple rows in muliselect listbox
    Hello everyone. I need help with below code. code is only chaning 1st row in mulitiselect list box. i know issue with code...
  • Delete Row from Table
    I am trying to delete a row from a table using VBA using a named range to find what I need to delete. My Range is finding the right cell. In the...
  • Assigning to a variable
    I have a for each block where I want to assign the value in column 5 of the found row to the variable Serv. [CODE=vba] For Each ws In...
  • Way to verify information
    Hi All, I don't know what to call this formula, and therefore can't search. I have a spreadsheet with information I want to reference...
  • Active Cell Address – Inactive Sheet
    How to use VBA to get the cell address of the active cell in an inactive worksheet and then place that cell address in a location on the current...
Top