Hi
Is there away to rotet a text in a label 90 degres ?

Alvin

Dear Alvin

You could try this after placing a label with enough height and a command
button in a user form.

Private Sub CommandButton1_Click()
UserForm1.Label1.Caption = Replace("A D M I N", " ", vbCr)
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"alvin Kuiper" wrote:

Hi
Is there away to rotet a text in a label 90 degres ?

Alvin

Yes
But this would not rotate the letters

alvin


"Jacob Skaria" skrev:

Dear Alvin

You could try this after placing a label with enough height and a command
button in a user form.

Private Sub CommandButton1_Click()
UserForm1.Label1.Caption = Replace("A D M I N", " ", vbCr)
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"alvin Kuiper" wrote:

Hi
Is there away to rotet a text in a label 90 degres ?

Alvin

Hi,

If the text is static consider using an image. Use autoshape textbox and
change alignment.
The copy the textbox as picture. Select textbox. Whilst holding shift use
menu, Edit Copy Picture Bmp.

Then within your userform add a Image or Label. Select the Picture property
and paste.

If the text is dynamic then there is code here to create/copy/paste shape on
the fly
http://www.andypope.info/vba/userformdraw.htm

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"alvin Kuiper" wrote in message
...
Hi
Is there away to rotet a text in a label 90 degres ?

Alvin