Inteligencia Artificial (ChatGPT) para crear presentaciones de Power Point AUTOMÁTICAMENTE
🔴 Bienvenidos a HOWTO.... SUSCRÍBETE AHORA: / @howto...
En este video os mostramos como crear presentaciones de Power Point de manera automática utilizando ChatGPT. #ia #ai #chatgpt #powerpoint #office
Código de ejemplo VBA:
Sub CrearPresentacionExplicativaCarabelasPortuguesas()
Dim PPT As Object
Dim Presentacion As Object
Dim Diapositiva As Object
Dim Titulo As String
Dim Contenido As String
Dim i As Integer
' Crear una instancia de PowerPoint
Set PPT = CreateObject("PowerPoint.Application")
PPT.Visible = True ' Abrir PowerPoint visible
' Crear una nueva presentación
Set Presentacion = PPT.Presentations.Add
' Crear y agregar diapositivas explicativas
For i = 1 To 5
' Crear una nueva diapositiva
Set Diapositiva = Presentacion.Slides.Add(i, 11) ' 11 representa el tipo de diapositiva (título y contenido)
' Establecer título y contenido de la diapositiva
Select Case I
Case 1
Titulo = "Introducción a las Carabelas Portuguesas"
Contenido = "Las carabelas portuguesas, también conocidas como 'naus', fueron embarcaciones utilizadas por los portugueses durante los siglos XV y XVI. Estas carabelas eran fundamentales para la exploración marítima y el descubrimiento de nuevas rutas comerciales."
Case 2
Titulo = "Diseño y Estructura de las Carabelas"
Contenido = "Las carabelas eran barcos ligeros y rápidos, con un diseño que les permitía navegar en aguas abiertas y también acercarse a la costa. Eran impulsadas principalmente por velas cuadras y triangulares y tenían una eslora de aproximadamente 20 a 30 metros."
Case 3
Titulo = "Contribuciones de las Carabelas a la Era de los Descubrimientos"
Contenido = "Las carabelas portuguesas desempeñaron un papel crucial en la Era de los Descubrimientos, permitiendo a los exploradores portugueses navegar hacia el sur y el este, explorando nuevas rutas y descubriendo territorios desconocidos."
Case 4
Titulo = "Principales Viajes y Exploradores"
Contenido = "Varios exploradores portugueses famosos utilizaron carabelas en sus viajes. Entre ellos se encuentran Vasco da Gama, quien navegó hasta la India en 1498, y Pedro Álvares Cabral, quien llegó a Brasil en 1500."
Case 5
Titulo = "Legado de las Carabelas Portuguesas"
Contenido = "El legado de las carabelas portuguesas en la historia marítima es inmenso. Sus expediciones y descubrimientos abrieron nuevas rutas comerciales, impulsaron el intercambio cultural y tuvieron un impacto significativo en el desarrollo de la cartografía y la navegación."
End Select
' Agregar título a la diapositiva
Diapositiva.Shapes.Title.TextFrame.TextRange.Text = Titulo
' Agregar contenido a la diapositiva
Dim TextoContenido As Object
Set TextoContenido = Diapositiva.Shapes.AddTextbox(1, 100, 100, 500, 300)
TextoContenido.TextFrame.TextRange.Text = Contenido
TextoContenido.TextFrame.TextRange.Font.Size = 18
Next I
' Liberar memoria
Set PPT = Nothing
Set Presentacion = Nothing
Set Diapositiva = Nothing
' MsgBox "Presentación creada con éxito."
End Sub