Vertical text on command button

[ipbr21054]

Hi,
As per titlae i have a vertical button & would like to have text top to bottom as opposed the normal left to right.
Is this possible ?
Please advise

Many Thanks

 

[Fluff]

If it's a forms control button, then yes.

 

[MickG]

Something Like :-

Private Sub CommandButton1_Click()
CommandButton1.Caption = "This" & vbLf & "Button" & vbLf & "Is" & vbLf & "CommandButton1"
End Sub

 

[ipbr21054]

Something Like :-

Private Sub CommandButton1_Click()
CommandButton1.Caption = "This" & vbLf & "Button" & vbLf & "Is" & vbLf & "CommandButton1"
End Sub

Hi,
I have applied your advised code to the button but it is still horizontal.
I have copy/paste as shown below but it doesnt take into consideration my TEST TEXT on the buttons Caption part.

Private Sub CommandButton1_Click()CommandButton1.Caption = "This" & vbLf & "Button" & vbLf & "Is" & vbLf & "CommandButton1"
End Sub

What did i miss on how to do this correctly.
Thanks

 

[MickG]

Do you mean you want every letter to be listed one below the other, or does the code not produce the text in the code ???
Please show what you expect to see in the Command Button.

 

[My Aswer Is This]

If you mean you want the text in your Button to look like this:

W
E
L
C
O
M
E


I would use a Shape for a button.

Click the shape choose format shape and choose TextBox then choose Text Direction Stacked

 

[ipbr21054]

Do you mean you want every letter to be listed one below the other, or does the code not produce the text in the code ???
Please show what you expect to see in the Command Button.

I have applied the code to the button as in post #3
leaving at default Command Button that is what i see left to right.
I changed it to TEST TEXT but still left to right.

I thought it would be
T
E
S
T

T
E
X
T

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG28Jun54
[COLOR="Navy"]Dim[/COLOR] nstr  [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]

[COLOR="Navy"]For[/COLOR] n = 1 To Len("Test Text")
    nstr = nstr & IIf(nstr = "", Mid("Test Text", n, 1), Chr(10) & Mid("Test Text", n, 1))
[COLOR="Navy"]Next[/COLOR] n
CommandButton1.Caption = nstr

'[COLOR="Green"][B]NB:- The code line below will fill a Forms "Button" if required.[/B][/COLOR]
'[COLOR="Green"][B]ActiveSheet.Shapes("Button 3").OLEFormat.Object.Caption = nstr[/B][/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Rick Rothstein]

I have applied the code to the button as in post #3
leaving at default Command Button that is what i see left to right.
I changed it to TEST TEXT but still left to right.

I thought it would be
T
E
S
T

T
E
X
T

If you are using an ActiveX command button, then use these two lines of code in whatever procedure you plan to initialize the command button with...

CommandButton1.WordWrap = True
CommandButton1.Caption = Replace(StrConv("TEST TEXT", vbUnicode), Chr(0), vbLf)

 

[ipbr21054]

Thanks very much