En el siguiente adjunto se encuentra una relación versículos de la biblia que son combinados con algunas imágenes, solo debe descargar el siguiente archivo y obtendrá de forma aleatoria frases de distintas partes de la biblia.
Descargar ejemplo con: Frases de la Biblia
El programa empleado para generar el programa que muestra estos versículos es el siguiente:
Private Sub CommandButton1_Click()
Dim aleatorio As Integer
Dim ultimo As Integer
Dim ultimo2 As Integer
ultimo = Worksheets("Frases").Cells(Rows.Count, 2).End(xlUp).Row
'Ultimo, es la ultima fila con la frase de la hoja 3
aleatorio = WorksheetFunction.RandBetween(1 + 1, ultimo)
'La variable "aleatorio" tomará un valor ubicado entre el número 2 y la última fila con datos (ultimo)
Label1 = Worksheets("Frases").Cells(aleatorio, 2)
'En label1, se llama de manera aleatoria a las frases de la columna 2 que se encuentran en la hoja "Frases".
ultimo2 = Cells(Rows.Count, 4).End(xlUp).Row
'Ultimo, es la ultima fila con la numeracion de la foto de la Frases
foto = WorksheetFunction.RandBetween(ultimo2, 4)
ubicacion = ActiveWorkbook.Path & "\imagenes\" & foto & ".jpg"
'Para indicar la ubicación de la foto
Image2.Picture = LoadPicture(ubicacion)
'Carga la foto al boton Imagen2
End Sub