Sub CrearPresentacionSaludPreventivaMasculina() Dim pptApp As Object Dim pptPres As Object Dim slideIndex As Integer ' Crear una nueva presentación Set pptApp = CreateObject("PowerPoint.Application") pptApp.Visible = True Set pptPres = pptApp.Presentations.Add ' Diapositiva 1: Título With pptPres.Slides.Add(1, ppLayoutTitle) .Shapes(1).TextFrame.TextRange.Text = "Salud Preventiva Masculina: Claves para el Bienestar" End With ' Diapositiva 2: Introducción With pptPres.Slides.Add(2, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Introducción" .Shapes(2).TextFrame.TextRange.Text = "La salud masculina es crucial para prevenir enfermedades comunes." & vbCrLf & _ "Temas a abordar: andropausia, consumo de grasas no saludables, falta de actividad física y salud cardíaca." End With ' Diapositiva 3: Andropausia With pptPres.Slides.Add(3, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Andropausia" .Shapes(2).TextFrame.TextRange.Text = "Definición: Disminución gradual de hormonas masculinas, especialmente la testosterona." & vbCrLf & _ "Síntomas: Cambios en el estado de ánimo, disminución de la libido, fatiga y pérdida de masa muscular." & vbCrLf & _ "Manejo: Consultas médicas regulares y ejercicio." End With ' Diapositiva 4: Consumo de Grasas No Saludables With pptPres.Slides.Add(4, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Consumo de Grasas No Saludables" .Shapes(2).TextFrame.TextRange.Text = "Impacto en la salud: Aumento del riesgo de enfermedades cardíacas y obesidad." & vbCrLf & _ "Tipos de grasas a evitar: Grasas trans y saturadas." & vbCrLf & _ "Diferencias entre grasa parda y amarilla." End With ' Diapositiva 5: Falta de Actividad Física With pptPres.Slides.Add(5, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Falta de Actividad Física" .Shapes(2).TextFrame.TextRange.Text = "Consecuencias: Aumento del riesgo de enfermedades crónicas." & vbCrLf & _ "Evitar el exceso de actividad física." End With ' Diapositiva 6: Importancia de Conocer tu Variabilidad Cardiaca (VFC) With pptPres.Slides.Add(6, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Importancia de Conocer tu Variabilidad Cardiaca (VFC)" .Shapes(2).TextFrame.TextRange.Text = "La VFC refleja la adaptabilidad del corazón al estrés físico y mental." & vbCrLf & _ "Dispositivos que Miden la VFC: ECG, pulsómetros y dispositivos portátiles." End With ' Diapositiva 7: Oura Ring With pptPres.Slides.Add(7, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Oura Ring" .Shapes(2).TextFrame.TextRange.Text = "Características del Oura Ring: Mide frecuencia cardíaca y calidad del sueño." & vbCrLf & _ "Beneficios para la salud cardiovascular." End With ' Diapositiva 8: Salud Cardíaca With pptPres.Slides.Add(8, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Salud Cardíaca" .Shapes(2).TextFrame.TextRange.Text = "Enfermedades cardiovasculares son las principales causas de muerte en hombres." & vbCrLf & _ "Prevención a través de dieta equilibrada y ejercicio regular." End With ' Diapositiva 9: Importancia de Revisiones Médicas With pptPres.Slides.Add(9, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Importancia de Revisiones Médicas" .Shapes(2).TextFrame.TextRange.Text = "Chequeos regulares para detectar problemas antes de que se agraven." & vbCrLf & _ "Exámenes recomendados como PSA y testosterona total." End With ' Diapositiva 10: Alimentación Saludable With pptPres.Slides.Add(10, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Alimentación Saludable" .Shapes(2).TextFrame.TextRange.Text = "Incluir frutas, verduras y proteínas magras. Limitar azúcar y grasas saturadas." End With ' Diapositiva 11: Salud Mental With pptPres.Slides.Add(11, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Salud Mental" .Shapes(2).TextFrame.TextRange.Text = "La salud mental es crucial; la depresión puede afectar la salud física." & vbCrLf & _ "Estrategias para mejorar la salud mental." End With ' Diapositiva 12: Conclusión With pptPres.Slides.Add(12, ppLayoutTitle) .Shapes(1).TextFrame.TextRange.Text = "Conclusión" .Shapes(2).TextFrame.TextRange.Text = "La prevención es clave para una vida saludable. ¡Cuida tu salud!" End With End Sub