En este artículo, aprenderá a crear una pantalla de presentación.

Con la pantalla de bienvenida que aparece al abrir el archivo de Excel impresionará al espectador.

Necesitamos seguir los pasos a continuación para iniciar el editor de VB. Haga clic en la pestaña Desarrollador. Desde el grupo Código, seleccione Visual Basic

img1

Haga clic en Insertar y luego en UserForm

img2

El formulario de usuario se abrirá desde Toolbox; seleccione Etiqueta y dibujar en el formulario de usuario

img3

img4

Cambie el nombre del cuadro de la etiqueta a «Mi pantalla de bienvenida»

img5

Para aumentar el tamaño de la fuente, haga clic en el cuadro Etiqueta y haga clic derecho para seleccionar Propiedades

img6

Desde la ventana Propiedades; seleccione Fuente y haga clic en tres puntos

img7

El cuadro de diálogo Fuente se abrirá

img8

Seleccione la fuente de la manera que desee y aumente el tamaño a 20 más o menos para hacerlo más grande

img9

El siguiente paso es insertar Imagen de la caja de herramientas, seleccionar Imagen y dibujar un poco más grande

img10

img11

Haga clic derecho en Imagen y seleccione Propiedades Haga clic en tres puntos en el menú Imagen en Propiedades

img12

Seleccione la ruta donde se guarda la imagen

img13

Así es como se ve ahora el formulario de usuario

img14

Haga doble clic en ThisWorkbook en el panel Proyecto

img15

Ingrese la siguiente codificación

Libro secundario privado_Open ()

UserForm1.Show

End Sub

img16

Para inicializar el formulario de usuario; haga doble clic en el formulario de usuario que no sea la etiqueta o la imagen. Aparecerá la siguiente codificación

===

Sub UserForm_Click ()

===

End Sub

img17

Reemplace el código anterior con el siguiente código

Sub UserForm_Activate privado ()

Application.OnTime Now + TimeValue («00:00:05»), «Quitform»

End Sub

img18

Ahora, debemos agregar el código a Quitform que hemos asignado a Userform para que se active después de 5 segundos.

Haga clic en Insertar y luego en Módulo

img19

Esto creará un nuevo módulo.

Ingrese el siguiente código en el Módulo

Sub Quitform ()

Descargar UserForm1

End Sub

===

img20

Guarde el archivo y luego ábralo.

img21

De esta forma, podemos crear una pantalla de bienvenida en Excel.