FRASES DE COBRADORES
Se elaboró una macro con la finalidad de crear memes con imágenes y frases de cobradores de combi al azar, de una lista de 30 frases típicas y 6 imágenes que ilustran como es el transporte en Lima.
La codificación de la macro es la siguiente:
Private Sub CommandButton1_Click()
ult = Worksheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Row
X = WorksheetFunction.RandBetween(2, ult)
Y = WorksheetFunction.RandBetween(1, 6)
UserForm1.Label1.Caption = Worksheets("Hoja1").Cells(X, 1).Value
ruta = ActiveWorkbook.Path & "\imagenes\" & Y & ".jpg"
UserForm1.Image1.Picture = LoadPicture(ruta)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub
En esta codificación se usa como función principal el RandBetween, que te bota un número al azar entre un rango, es así como se eligen imágenes y frases al azar. Es necesario para esto que el libro de excel y la carpeta de imágenes estén siempre juntos.
Para generar el meme se hace lo siguiente:
- Se da click en el botón "Genera tu meme"
- A continuación aparecerá un formulario donde debes volver a hacer click en el botón "Genera tu meme"
- Como consecuencia se genera un meme con cualquier imagen y frase al azar de cobradores de combi de hoy en día. Para general otro meme se hace click nuevamente en el botón antes mencionado.
Por: RENATO TORRES MEJIA.