Descargar archivo desde: Frases de Ghandi
Para la creación del archivo con las frases de Ghandi se realizaron los siguientes pasos:
-Se seleccionó 44 frases de Ghandi, las cuales se ubican en la hoja 2 desde la celda A2 a la celda A45 (Rango a Utilizar).
-Se insertó un Formulario en VBA (UserForm1)
-Se insertó un Label (Aparezcan las Frases) e Image (Aparezcan las Imágenes).
-Se insertó un CommandButton que tiene de contenido “Frases de Ghandi” (Caption). El cual tiene la opción de que cuando se haga click sobre él se realice la aleatoriedad.
-Se diseñó el formulario a gusto, acomodando todas las herramientas según la preferencia.
-En la Hoja 1 se insertó un CommandButton con el Nombre “Frases de Ghandi”.
-Se escriben los códigos para que se pueda utilizar según lo mencionado al inicio.
A continuación el código VBA utilizado:
- Show: Muestra el Userform1 cuando se haga click en el CommandButton “Frases de Ghandi”.
- WorsheetFunction.RandBetwee: Para la aleatoriedad
- Se brindo valores a algunas letras.
- Se seleccionó el lugar de donde saldrán las imágenes.
Private Sub CommandButton1_Click()
Dim ult As Integer, a As Integer, b As Integer
ult = Worksheets(“Hoja2”).Cells(Rows.Count, 1).End(xlUp).Row
a = WorksheetFunction.RandBetween(2, ult)
b = WorksheetFunction.RandBetween(1, 11)
UserForm1.Label1.Caption = Worksheets(“Hoja2”).Cells(a, 1).Value
ruta = ActiveWorkbook.Path & “\carpetadeimagen\” & b & “.jpg”
UserForm1.Image1.Picture = LoadPicture(ruta)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub