En el siguiente ejemplo se encontrará un archivo Excel que ha sido preparado para generar frases de cariño, combinando imágenes con las frases seleccionadas aleatoriamente,
Descargar archivo con Frases de Cariño
Para poder crear el ejemplo se han seguido los siguientes pasos:
Ingresar al Editor de Visual Basic que nos ofrece EXCEL
- En el panel izquierdo crear un formulario, para ello se debe realizar lo siguiente:
- Botón derecho del mouse
- Clic en INSERTAR
- Clic en USERFORM
- Ahora crearemos el siguiente Formulario:
Donde agregaremos los siguientes elementos:
- Etiquetas:
- Label1 para el título del formulario
- Label2 para el subítulo1
- Label3 para el subtítulo2
- Cuadros de Texto:
- TextBox1 para que aquí aparezca la frase aleatoria
- Imagen:
- Imagen1 para el logotipo de Excel
- Imagen2 para el lugar donde aparecerá la imagen aleatoria
- Botón de comando:
- CommandButton1 para que Genere los aleatorios
- CommnadButton2 para que permita salir del formulario
Ahora programaremos al Botón GENERADOR:
El cual mostrara en forma aleatoria una de las 20 frases que tenemos en la hoja 1 y también debe mostrar una de las 10 imágenes que están en una carpeta, para lo cual su programación es la siguiente:
- Genero un número aleatorio entre 1 y 20, para asignarlo a la variable NUMFRASE, luego para comprobarlo lo imprimo.
- Aquí la variable FRASE tendrá como contenido de la hoja1, la celda número de frase +1 y la columna 2. Luego el textBox1 asume dicho contenido de la variable FRASE.
- Genero un número aleatorio entre 1 y 10, para asignarlo a la variable NUMIMAGEN, Luego para comprobarlo lo imprimo.
- Con esta línea estamos cargando de la carpeta Imágenes de Cariño, el archivo que se genera aleatoriamente en el NUMIMAGEN, el cual está grabado en una carpeta
La programación completa es la siguiente:
(Para mayor visualización de la imagen, hacer click en la misma)
Descargar archivo con Frases de Cariño
Por: Carlos Eduardo Carranza