Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Frases de Nelson Mandela

| Sin comentarios

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.

MANDELA 300x279 Frases de Nelson Mandela

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

 

Deja una respuesta

Los campos requeridos estan marcados con *.