Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Frases de Amor Cortas

| Sin comentarios

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.

Frases de amor cortas

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:

  1. Ubicamos en cada celda de una hoja del libro a trabajar, en este caso “Sheet2”, cada frase.
  2. Abrimos VBA e insertamos un Formulario, UserForm.
  3. Insertamos un Label e Imagen para que ahí aparezcan la frase e imagen aleatoria respectivamente.
  4. Se inserta un CommandButton, nombrado como “FRASES DE AMOR!!!”
  5. 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

  1. Luego se diseña el formulario,  se  cambio el tipo, tamaño de letra, color del Label e imagen.
  2. 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.
  3. 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

 

Deja una respuesta

Los campos requeridos estan marcados con *.