CODIGO VISUAL BASIC PRESENTACION PPT ELECTROCARDIOGRAMA

 Sub CrearPresentacionECG()

    Dim pptApp As Object

    Dim pptPres As Object

    Dim slideIndex As Integer

    

    ' Crear una nueva instancia de PowerPoint

    Set pptApp = CreateObject("PowerPoint.Application")

    pptApp.Visible = True

    

    ' Crear una nueva presentación

    Set pptPres = pptApp.Presentations.Add

    

    ' Títulos y contenido para las diapositivas

    Dim titulos(1 To 10) As String

    Dim contenidos(1 To 10) As String

    

    titulos(1) = "Introducción al Electrocardiograma"

    contenidos(1) = "El electrocardiograma (ECG) es una prueba que mide la actividad eléctrica del corazón."

    

    titulos(2) = "¿Qué es un ECG?"

    contenidos(2) = "Un ECG registra la actividad eléctrica del corazón a través de electrodos colocados en la piel."

    

    titulos(3) = "Historia del ECG"

    contenidos(3) = "El ECG fue desarrollado por Willem Einthoven en 1903."

    

    titulos(4) = "Electrodos"

    contenidos(4) = "Se utilizan electrodos para captar las señales eléctricas del corazón."

    

    titulos(5) = "Curva del ECG"

    contenidos(5) = "La curva del ECG muestra diferentes ondas: P, QRS y T."

    

    titulos(6) = "Interpretación del ECG"

    contenidos(6) = "La interpretación del ECG es crucial para diagnosticar enfermedades del corazón."

    

    titulos(7) = "Aplicaciones Clínicas"

    contenidos(7) = "El ECG se utiliza para diagnosticar arritmias, infartos y otros problemas cardíacos."

    

    titulos(8) = "Limitaciones del ECG"

    contenidos(8) = "El ECG puede no detectar problemas en el corazón que no se manifiestan eléctricamente."

    

    titulos(9) = "Avances Tecnológicos"

    contenidos(9) = "El ECG ha evolucionado con tecnología digital y dispositivos portátiles."

    

    titulos(10) = "Conclusiones"

    contenidos(10) = "El ECG es una herramienta esencial en la medicina cardiovascular."

    

    ' Crear las diapositivas

    For slideIndex = 1 To 10

        Dim slide As Object

        Set slide = pptPres.Slides.Add(slideIndex, ppLayoutText)

        slide.Shapes(1).TextFrame.TextRange.Text = titulos(slideIndex)

        slide.Shapes(2).TextFrame.TextRange.Text = contenidos(slideIndex)

    Next slideIndex

    

    ' Limpiar

    Set slide = Nothing

    Set pptPres = Nothing

    Set pptApp = Nothing

End Sub