El día de hoy describiré cómo realizar un generador de frases usando macros. para ello listaré las instrucción mediante un ejemplo llamado "Frases de Canciones". El ejemplo lo adicionaré en la parte final, no olviden descomprimir la carpeta para poder ver la funcionalidad de la macro. El objetivo de la Macro es Mostrar las frase de canciones e imágenes al azar, podrás ver frases de todo genero.
- Primero debes crear un Userform y crear un botón de comando, una Etiqueta y una Imagen.
(Para mayor visualización de la imagen, hacer click en la misma)
- Luego en el botón añade lo siguiente:Private Sub CommandButton1_Click()Dim ult As Integer, a As Integer, b As Integer
ult = Worksheets("frasescanciones").Cells(Rows.Count, 1).End(xlUp).Row
a = WorksheetFunction.RandBetween(1, ult)
b = WorksheetFunction.RandBetween(1, 9)UserForm1.Label1.Caption = Worksheets("frasescanciones").Cells(a, 1).Valueruta = ActiveWorkbook.Path & "\imagencancion\" & b & ".jpg"
UserForm1.Image1.Picture = LoadPicture(ruta)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub - Y listo sólo tienes que crear un Botón de Comando y listo. Dejaré la Macro para su revisión.
Descargar archivo con las frases de canciones: Frases de Canciones