Descargar las Frases de Mandela: Frases de Nelson Mandela
En éste aplicativo podremos generar de forma aleatoria una frase y una imagen de Nelson Mandela. Fue un abogado, político que actuó como presidente de su país de 1994 a 1999. Fue el primer mandatario de raza negra que encabezó el poder ejecutivo, y también el primero en resultar elegido por sufragio universal en su país.
En éste ejercicio daremos uso de una macro que nos brinde una forma de conocer más a fondo a Mandela; el cual nos brindará una frase aleatoria de una base de datos de 30 frases, de la misma forma nos brindará una imagen de una base de 5 imágenes.
En este ejercicio tendremos que agregar una carpeta, en el cual debemos insertar las imágenes correspondientes.
Código empleado:
Private Sub CommandButton1_Click()
Dim ult As Integer, a As Integer, b As Integer
ult = Worksheets("Frases").Cells(Rows.Count, 1).End(xlUp).Row
a = WorksheetFunction.RandBetween(2, ult)
b = WorksheetFunction.RandBetween(1, 5)
UserForm1.Label1.Caption = Worksheets("Frases").Cells(a, 1).Value
ruta = ActiveWorkbook.Path & "\fotosmandela\" & b & ".jpg"
UserForm1.Image1.Picture = LoadPicture(ruta)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub
Descargar las Frases de Mandela: Frases de Nelson Mandela