Hermosas Frases De Confianza

Descargar el archivo generador de frases de confianza desde aquí --> Frases de Confianza

Este proyecto permitirá la creación de un formulario en Microsoft Excel que nos permita mostrar imágenes y frases sobre confianza de forma aleatoria cada vez que presionemos el botón Generar Otra.

En esta sección se explicara paso como fue la creación de este proyecto:

1.- Primero aparecerá una ventana de Bienvenida cuando ingresemos al Archivo de Microsoft Excel:

Este formulario aparecerá cuando abrimos el archivo de Excel para ello hemos tenido que crear los siguientes códigos:

En el Workbook.

          Private Sub Workbook_Open()
         UserForm1.Show
         End Sub

Si selecciona el botón continuar deberá parecer la ventana que permita ver la imágenes y las frases sobre confianza de una manera aleatoria cada vez que se presiona el botón Generar Otra...

Este formulario tiene los siguientes códigos:

• El botón Salir.

         Private Sub CommandButton2_Click()
         End
         End Sub

• El botón Generar Otra...

         Private Sub CommandButton1_Click()

        contador_frase = WorksheetFunction.RandBetween(1, 20)

         frasealetoria = Worksheets(2).Cells(contador_frase + 1, 2)

         T1.Text = frasealetoria

        contador_imagen = WorksheetFunction.RandBetween(1, 5)

         Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\frasesconfianza\" & contador_imagen & ".jpg")
         End Sub

Espero que les guste este proyecto tanto como a mí.

Descargar el archivo generador de frases de confianza desde aquí --> Frases de Confianza