Sub CrearPresentacionBovinos() Dim pptApp As Object Dim pptPres As Object Dim slideIndex As Integer Dim slide As Object

' Crear una nueva presentación de PowerPoint
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
Set pptPres = pptApp.Presentations.Add

' Título de la presentación
slideIndex = slideIndex + 1
Set slide = pptPres.Slides.Add(slideIndex, 1) ' 1 = Título
slide.Shapes(1).TextFrame.TextRange.Text = "Los Bovinos"
slide.Shapes(2).TextFrame.TextRange.Text = "Introducción a los bovinos y su importancia en la agricultura"

' Slide 2 - Introducción
slideIndex = slideIndex + 1
Set slide = pptPres.Slides.Add(slideIndex, 2) ' 2 = Título y contenido
slide.Shapes(1).TextFrame.TextRange.Text = "¿Qué son los Bovinos?"
slide.Shapes(2).TextFrame.TextRange.Text = "Los bovinos son animales de granja que incluyen vacas, toros y bueyes. Son conocidos por su importancia en la producción de leche, carne y cuero."

' Slide 3 - Características de los Bovinos
slideIndex = slideIndex + 1
Set slide = pptPres.Slides.Add(slideIndex, 2)
slide.Shapes(1).TextFrame.TextRange.Text = "Características de los Bovinos"
slide.Shapes(2).TextFrame.TextRange.Text = "• Tienen una complexión robusta y son animales herbívoros. " & vbCrLf & _
                                            "• Cuentan con cuernos (aunque no todos) y un sistema digestivo especializado. " & vbCrLf & _
                                            "• Los machos se llaman toros y las hembras vacas."

' Slide 4 - Tipos de Bovinos
slideIndex = slideIndex + 1
Set slide = pptPres.Slides.Add(slideIndex, 2)
slide.Shapes(1).TextFrame.TextRange.Text = "Tipos de Bovinos"
slide.Shapes(2).TextFrame.TextRange.Text = "Existen dos tipos principales de bovinos:" & vbCrLf & _
                                            "1. Bovinos de carne (ej. Hereford, Charolais)." & vbCrLf & _
                                            "2. Bovinos de leche (ej. Holstein, Jersey)."

' Slide 5 - Importancia de los Bovinos
slideIndex = slideIndex + 1
Set slide = pptPres.Slides.Add(slideIndex, 2)
slide.Shapes(1).TextFrame.TextRange.Text = "Importancia de los Bovinos"
slide.Shapes(2).TextFrame.TextRange.Text = "Los bovinos son esenciales en la agricultura debido a su contribución en:" & vbCrLf & _
                                            "• Producción de leche." & vbCrLf & _
                                            "• Producción de carne." & vbCrLf & _
                                            "• Aporte al abono y fertilizantes." & vbCrLf & _
                                            "• Fuente de trabajo y economía en muchas regiones del mundo."

' Slide 6 - Alimentación y cuidado
slideIndex = slideIndex + 1
Set slide = pptPres.Slides.Add(slideIndex, 2)
slide.Shapes(1).TextFrame.TextRange.Text = "Alimentación y Cuidado de los Bovinos"
slide.Shapes(2).TextFrame.TextRange.Text = "Los bovinos son animales rumiantes y necesitan una dieta balanceada basada en pasto, heno, y alimentos concentrados. El cuidado incluye:" & vbCrLf & _
                                            "• Provisión de agua fresca." & vbCrLf & _
                                            "• Control sanitario y vacunación." & vbCrLf & _
                                            "• Espacio adecuado para el pastoreo."

' Slide 7 - Enfermedades Comunes
slideIndex = slideIndex + 1
Set slide = pptPres.Slides.Add(slideIndex, 2)
slide.Shapes(1).TextFrame.TextRange.Text = "Enfermedades Comunes"
slide.Shapes(2).TextFrame.TextRange.Text = "Entre las enfermedades comunes de los bovinos se encuentran:" & vbCrLf & _
                                            "• Brucelosis." & vbCrLf & _
                                            "• Tuberculosis." & vbCrLf & _
                                            "• Mastitis (en las vacas lecheras)." & vbCrLf & _
                                            "Es importante tener medidas de control y prevención para garantizar la salud del ganado."

' Slide 8 - Producción y Comercio
slideIndex = slideIndex + 1
Set slide = pptPres.Slides.Add(slideIndex, 2)
slide.Shapes(1).TextFrame.TextRange.Text = "Producción y Comercio"
slide.Shapes(2).TextFrame.TextRange.Text = "Los bovinos son parte fundamental en la economía mundial." & vbCrLf & _
                                            "• Exportación de carne y productos lácteos." & vbCrLf & _
                                            "• El comercio de ganado también tiene un impacto significativo en países productores."

' Slide 9 - Conclusión
slideIndex = slideIndex + 1
Set slide = pptPres.Slides.Add(slideIndex, 2)
slide.Shapes(1).TextFrame.TextRange.Text = "Conclusión"
slide.Shapes(2).TextFrame.TextRange.Text = "Los bovinos son animales esenciales para la agricultura moderna, con un rol destacado en la alimentación humana y el desarrollo económico."

' Finalizar y limpiar objetos
Set slide = Nothing
Set pptPres = Nothing
Set pptApp = Nothing

End Sub