Este ejemplo consta de una lista de frases e imágenes sobra la Belleza, que son mostradas aleatoriamente en un formulario.
El código del formulario permite agregar mas frases añadiéndolas a la lista existente y el formulario se actualizará automáticamente.
Código del generador de Frases de Belleza:
Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer
ult = Worksheets("Frases").Cells(Rows.Count, 1).End(xlUp).Row
a = WorksheetFunction.RandBetween(1, ult)
b = WorksheetFunction.RandBetween(1, 5)
UserForm1.Label1.Caption = a & ". " & Worksheets("Frases").Cells(a, 1).Value
UserForm1.Label2.Caption = Worksheets("Frases").Cells(a, 2).Value
ruta = ActiveWorkbook.Path & "\belleza\" & b & ".jpg"
UserForm1.Image1.Picture = LoadPicture(ruta)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub
Descargar Archivo con las Frases y ejemplo: Frases de Belleza
Por: Víctor Alonso Herrera Segura