Sub CreateFetalMedicinePresentation() Dim pptPres As Presentation Dim pptSlide As Slide ' Create a new presentation Set pptPres = Application.Presentations.Add ' Slide 1: Title Slide Set pptSlide = pptPres.Slides.Add(1, ppLayoutTitle) pptSlide.Shapes(1).TextFrame.TextRange.Text = "Semilobar Holoprosencephaly with Transposition of Great Arteries at 21 Weeks" pptSlide.Shapes(2).TextFrame.TextRange.Text = "A Rare Embryological Association" & vbCrLf & "[Your Name]" & vbCrLf & "[Your Institution]" ' Slide 2: Introduction Set pptSlide = pptPres.Slides.Add(2, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "Introduction" pptSlide.Shapes(2).TextFrame.TextRange.Text = "• Holoprosencephaly (HPE) is a failure of forebrain division." & vbCrLf & _ "• Spectrum includes: Alobar, Semilobar, and Lobar." & vbCrLf & _ "• Frequently associated with craniofacial anomalies and congenital heart defects." ' Slide 3: Objective Set pptSlide = pptPres.Slides.Add(3, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "Objective" pptSlide.Shapes(2).TextFrame.TextRange.Text = "• Present a rare clinical case of semilobar HPE with TGA." & vbCrLf & _ "• Explore the shared embryological correlation between CNS and cardiac anomalies." ' Slide 4: Case Details (Neurosonography) Set pptSlide = pptPres.Slides.Add(4, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "Case Details (Neurosonography)" pptSlide.Shapes(2).TextFrame.TextRange.Text = "• Patient: 21-week foetus." & vbCrLf & _ "• Ultrasound findings:" & vbCrLf & _ " - Single monoventricular cavity." & vbCrLf & _ " - Fused thalami." & vbCrLf & _ " - Partial hemispheric separation." ' Slide 5: Cardiac Findings Set pptSlide = pptPres.Slides.Add(5, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "Cardiac Findings" pptSlide.Shapes(2).TextFrame.TextRange.Text = "• Modality: Foetal echocardiography." & vbCrLf & _ "• Key Finding: Ventriculoarterial discordance." & vbCrLf & _ "• Anatomy: Aorta arising from RV, Pulmonary artery from LV." & vbCrLf & _ "• Diagnosis: Transposition of Great Arteries (TGA)." ' Slide 6: Rarity & Embryology Set pptSlide = pptPres.Slides.Add(6, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "Rarity & Embryology" pptSlide.Shapes(2).TextFrame.TextRange.Text = "• Cardiac defects are common in HPE, but TGA is rarely reported." & vbCrLf & _ "• Gestational weeks 3–6 are the critical developmental window." & vbCrLf & _ "• The brain and heart develop simultaneously during this period." ' Slide 7: Shared Mechanisms Set pptSlide = pptPres.Slides.Add(7, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "Shared Mechanisms" pptSlide.Shapes(2).TextFrame.TextRange.Text = "• Disruption of midline patterning." & vbCrLf & _ "• Defective neural crest cell migration." & vbCrLf & _ "• Left-right axis signaling defect." ' Slide 8: Molecular Pathways Set pptSlide = pptPres.Slides.Add(8, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "Molecular Pathways" pptSlide.Shapes(2).TextFrame.TextRange.Text = "• Sonic Hedgehog (SHH) Pathway: Critical for forebrain and cardiac morphogenesis." & vbCrLf & _ "• Nodal Signaling: Essential for left-right axis determination." & vbCrLf & _ "• Neural Crest: Vital contribution to cardiac outflow tract development." ' Slide 9: Clinical Importance Set pptSlide = pptPres.Slides.Add(9, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "Clinical Importance" pptSlide.Shapes(2).TextFrame.TextRange.Text = "• Highlights the importance of early and detailed anomaly detection." & vbCrLf & _ "• Guides accurate genetic counselling for parents." & vbCrLf & _ "• Clarifies long-term prognostic implications." ' Slide 10: Conclusion & Take-Home Message Set pptSlide = pptPres.Slides.Add(10, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "Conclusion & Take-Home Message" pptSlide.Shapes(2).TextFrame.TextRange.Text = "• Conclusion: This rare association suggests a shared developmental origin." & vbCrLf & _ "• Take-Home Message: Always rigorously evaluate the foetal heart in the presence of CNS anomalies." & vbCrLf & _ "• Impact: Early embryological signaling pathways simultaneously influence brain and cardiac development." ' Slide 11: References Set pptSlide = pptPres.Slides.Add(11, ppLayoutText) pptSlide.Shapes(1).TextFrame.TextRange.Text = "References" pptSlide.Shapes(2).TextFrame.TextRange.Text = "• Muenke M, Beachy PA. Holoprosencephaly. Nat Rev Genet." & vbCrLf & _ "• Roessler E, Muenke M. Molecular genetics of holoprosencephaly. Am J Med Genet." & vbCrLf & _ "• Cohen MM Jr. Holoprosencephaly: clinical, anatomic, and molecular dimensions." & vbCrLf & _ "• Bruneau BG. Developmental genetics of congenital heart disease. Nature." & vbCrLf & _ "• ISUOG Practice Guidelines for fetal anomaly scan." MsgBox "Presentation successfully generated, Dr. Yash! Don't forget to add your ultrasound images and apply the dark blue theme.", vbInformation, "Success" End Sub

CONTINUE

CONTINUE