Se ha creado un formulario que muestra de forma aleatoria una frase y una imagen; se creó un banco con 20 frases diferentes de amor cortas y 8 imágenes distintas.
Descargar archivo con el ejemplo de: FRASES DE AMOR CORTAS
Para emplear el archivo solo descárguelo, y presione "Frases de Amor", cada vez que lo presione recibirá una nueva Frase de Amor.
Si desea crear una presentación similar a la realizada en archivo debe hacer lo siguiente:
- Ubicamos en cada celda de una hoja del libro a trabajar, en este caso “Sheet2”, cada frase.
- Abrimos VBA e insertamos un Formulario, UserForm.
- Insertamos un Label e Imagen para que ahí aparezcan la frase e imagen aleatoria respectivamente.
- Se inserta un CommandButton, nombrado como “FRASES DE AMOR!!!”
- Se coloca el siguiente código:
Private Sub CommandButton1_Click()
Dim ult As Integer, a As Integer, b As Integer
ult = Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row
a = WorksheetFunction.RandBetween(2, ult)
b = WorksheetFunction.RandBetween(1, 8)
UserForm1.Label1.Caption = Worksheets("sheet2").Cells(a, 1).Value
ruta = ActiveWorkbook.Path & "\carpetadeimagen\" & b & ".jpg"
UserForm1.Image1.Picture = LoadPicture(ruta)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub
- Luego se diseña el formulario, se cambio el tipo, tamaño de letra, color del Label e imagen.
- Se inserta a la hoja 1 "sheet1"un CommandButton al cual tiene el nombre de “FRASES DE AMOR CORTAS” y se le inserta una imagen referente al tema.
- A este CommandButton se le agrega el código:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
NOTA:
Para no tener problemas con mostrar las imágenes del catalogo se recomienda descargar y guardar tanto el archivo Excel y la carpeta de imágenes en una misma carpeta.
Descargar archivo con el ejemplo de: FRASES DE AMOR CORTAS