Excel Avanzado

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

Excel Avanzado

Frases de belleza

| Sin comentarios

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.

Frases de Belleza 300x230 Frases de belleza

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

 

Deja una respuesta

Los campos requeridos estan marcados con *.