Lineas de texto en un msgbox
Ya se como se hace para poner un msgbox al abrir un libro de excel, ¿pero solo puedo poner una linea de texto?. Me gustaría poder poner dos o tres lineas centradas y no se como hacerlo.
1 Respuesta
Respuesta de javierdr
1
En VBA, la forma de insertar más de una línea es insertar un retorno de carro. El código sería, por ejemplo:
MsgBox "Hola" & vbCr & "Usuario"
En la presentación del mensaje, te saldría
Hola
Usuario
Si el texto que tienes es sencillo, para centrarlo bastaría con poner espacios en blanco y así lo centras manualmente. En este ejemplo,
MsgBox " Hola " & vbCr & "Usuario"
Y con esto el resultado sería:
Hola
Usuario
El problema aquí sería que, si utilizas una fuente como Arial, la anchura de cada letra es diferente. Así que tendrás que hacer filigranas para centralo bien.
Solución más correcta:
Insertar un formulario en el proyecto VBA, en la parte de formularios del menú. Ahí pones una etiqueta, donde puedes escribir lo que quieras, y hacer que el texto esté centrado, ponerle negrita, tamaño, etc. etc. Te aseguras de que el formulario sea modal (que hasta que no se cierre, no puedas seguir trabajando en la hoja Excel).
Puedes ponerle un botón para que sea más "elegante" el cierre. En el evento click del botón, añades la instrucción.
Unload Userform1 (o el nombre que tenga el formulario)
Para que se abra el formulario al abrir la hoja excel, en lugar del código de msgbox... pones lo siguiente:
Load UserForm1
UserForm1.Show
Así lo cargas, y lo muestras.
MsgBox "Hola" & vbCr & "Usuario"
En la presentación del mensaje, te saldría
Hola
Usuario
Si el texto que tienes es sencillo, para centrarlo bastaría con poner espacios en blanco y así lo centras manualmente. En este ejemplo,
MsgBox " Hola " & vbCr & "Usuario"
Y con esto el resultado sería:
Hola
Usuario
El problema aquí sería que, si utilizas una fuente como Arial, la anchura de cada letra es diferente. Así que tendrás que hacer filigranas para centralo bien.
Solución más correcta:
Insertar un formulario en el proyecto VBA, en la parte de formularios del menú. Ahí pones una etiqueta, donde puedes escribir lo que quieras, y hacer que el texto esté centrado, ponerle negrita, tamaño, etc. etc. Te aseguras de que el formulario sea modal (que hasta que no se cierre, no puedas seguir trabajando en la hoja Excel).
Puedes ponerle un botón para que sea más "elegante" el cierre. En el evento click del botón, añades la instrucción.
Unload Userform1 (o el nombre que tenga el formulario)
Para que se abra el formulario al abrir la hoja excel, en lugar del código de msgbox... pones lo siguiente:
Load UserForm1
UserForm1.Show
Así lo cargas, y lo muestras.
