Blog Archive

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2005-04-10
É possível centrar texto numa MsgBox:



O Código:

Function Msg(ParamArray parm())
    For a = LBound(parm) To UBound(parm)
        If Len(parm(a)) > max_len Then
            max_len = Len(parm(a))
        End If
    Next a
    For a = LBound(parm) To UBound(parm)
        If Len(parm(a)) < max_len Then
            spaces = (((max_len - Len(parm(a))) / 1.6))
            For b = 1 To spaces
                parm(a) = " " & parm(a) & " "
            Next b
        End If
        msgstring = msgstring & parm(a) & Chr(10)
    Next a
    MsgBox msgstring
End Function

Sub Testar_Msg()
a = Msg("Esta é uma frase que está na 1ª linha;", "Esta está na segunda;", _
    "Esta encontra-se na terceira linha", _
    "e esta na 4ª, mas a mensagem está toda centrada!")
End Sub


Nota - este código, agora adaptado, apareceu num Newsgroup de Excel pela mão de Paul Anthony (1998).