Excel Avanzado

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

Excel Avanzado

Frases de belleza

| 0 comments

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.

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 un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5