Los formularios tienen distintas funcionalidades, en esta ocasión los utilizaremos para la generación de frases aleatorias.
En el siguiente ejemplo observamos cómo utilizando los códigos de la función aleatorio podemos generar frases e imágenes aleatorias, respecto a la temática escogida, presionando un solo botón.
El código utilizado es el siguiente:
Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer
a = WorksheetFunction.RandBetween(1, 5)
b = WorksheetFunction.RandBetween(1, 30)
TextBox1 = Worksheets("bancofrases").Cells(b, 1)
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & a & ".jpg")
Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub
Anexado a esta entrada, pueden ver el ejemplo en Excel y el código VBA del generador de frases de hermanos.
Descargar archivo con Frases de Hermanos: Frases de Hermanos
Por: Sofía G.