LABEL NA VERTICAL ?

SNNIFFER 27/02/2011 22:29:19
#366726

Não entendi muito bem, o que realmente voce quer, mas, ve se serve isto cara.

[txt-color=#e80000]Private Function ShowVertical(ByVal sMyString As String) As String
Dim sTheString As String
Dim i As Long
For i = 1 To Len(sMyString)
If i < Len(sMyString) Then
sTheString = sTheString + Mid$(sMyString, i, 1) & vbCrLf
Else
sTheString = sTheString + Mid$(sMyString, i, 1)
End If
Next
ShowVertical = sTheString
End Function

Private Sub Form_Load()
Label1.Caption = ShowVertical(Label1.Caption)
End Sub[/txt-color]

RICOCARDOZO 27/02/2011 23:30:07
#366730

È o seguinte.
Este jeito eu cosegui, mais não é assim q eu queria queria q as letras ficassem na verical não a escrita.

http://help.adobe.com/pt_BR/photoshop/cs/using/WSfd1234e1c4b69f30ea53e41001031ab64-759aa.html
Neste exemplo acima no segundo dezenho é o q eu quero tentar fazer.

MARCELO.TREZE 28/02/2011 00:53:45
#366731

é isso aqui que procura colega

IRENKO 28/02/2011 08:04:15
#366734 Resposta escolhida

Um pequeno exemplo bem simples, vê se ajuda:

IRENKO 28/02/2011 09:15:08
#366739

Acho q encontrei o desejado. Veja o exemplo anexo:

Obs.: Coloque o Degrees com -90.

RICOCARDOZO 28/02/2011 10:06:29
#366744

Na mosca muito obrigado a todos,