Sub CreateNeuroimagingBrainSlides() Dim ppt As Presentation Dim sld As Slide Dim i As Integer Set ppt = ActivePresentation ' Arrays for slide content Dim Diagnosis As Variant Dim Findings As Variant Dim Buzzword As Variant Dim Diff As Variant Diagnosis = Array( _ "Agenesis of Corpus Callosum", "Chiari I Malformation", "Dandy-Walker Malformation", "Holoprosencephaly", "Lissencephaly", _ "Polymicrogyria", "Schizencephaly", "Tuberous Sclerosis", "Sturge-Weber Syndrome", "Neurofibromatosis Type 1", _ "Neurofibromatosis Type 2", "Vein of Galen Malformation", "Cavernous Malformation", "Arteriovenous Malformation", _ "Hypertensive Hemorrhage", "Subarachnoid Hemorrhage", "Ischemic Stroke (Acute)", "Posterior Reversible Encephalopathy Syndrome", _ "Cerebral Venous Thrombosis", "Moyamoya Disease", "Glioblastoma Multiforme", "Astrocytoma (Low Grade)", _ "Anaplastic Astrocytoma", "Oligodendroglioma", "Ependymoma", "Medulloblastoma", "Meningioma", "Primary CNS Lymphoma", _ "Metastasis", "Craniopharyngioma", "Pituitary Macroadenoma", "Hemangioblastoma", "Central Neurocytoma", _ "Dysembryoplastic Neuroepithelial Tumor", "Brain Abscess", "Tuberculoma", "Neurocysticercosis", "Herpes Encephalitis", _ "Japanese Encephalitis", "Progressive Multifocal Leukoencephalopathy", "HIV Encephalopathy", "Multiple Sclerosis", _ "Acute Disseminated Encephalomyelitis", "Neuromyelitis Optica", "Leukodystrophy (Metachromatic)", _ "Adrenoleukodystrophy", "Canavan Disease", "Alexander Disease", "Marchiafava-Bignami Disease", _ "Wernicke Encephalopathy", "Osmotic Demyelination Syndrome", "Diffuse Axonal Injury", _ "Hypoxic Ischemic Encephalopathy", "Rasmussen Encephalitis", "Autoimmune Limbic Encephalitis", _ "Creutzfeldt-Jakob Disease", "Subacute Sclerosing Panencephalitis", "CADASIL" _ ) Findings = Array( _ "Absent corpus callosum; colpocephaly; high riding 3rd ventricle", _ "Cerebellar tonsillar herniation >5mm below foramen magnum", _ "Cystic dilatation of 4th ventricle; enlarged posterior fossa", _ "Single ventricle; fused thalami; absent midline structures", _ "Smooth brain; thick cortex; absent sulci", _ "Irregular cortical thickening; multiple small gyri", _ "CSF cleft lined by gray matter", _ "Subependymal nodules; cortical tubers; radial bands", _ "Leptomeningeal enhancement; tram-track calcifications", _ "T2 hyperintense unidentified bright objects (UBOs)", _ "Bilateral vestibular schwannomas", _ "Midline vascular mass with flow voids", _ "Popcorn lesion with hemosiderin rim on GRE", _ "Serpiginous flow voids; nidus", _ "Deep hemorrhage in basal ganglia; blooming on SWI", _ "Hyperintense sulci on FLAIR; blooming on SWI", _ "DWI restriction; low ADC", _ "Posterior white matter edema; T2/FLAIR hyperintensity", _ "Absent flow in venous sinus; blooming on SWI", _ "Multiple collaterals; ivy sign", _ "Ring enhancing lesion; necrosis; crossing corpus callosum", _ "T2 hyperintense; minimal enhancement", _ "Heterogeneous enhancement; necrosis", _ "Calcification; cortical-subcortical location", _ "4th ventricle mass; heterogeneous enhancement", _ "Midline posterior fossa tumor; restricted diffusion", _ "Extra-axial enhancing mass; dural tail", _ "Homogeneous enhancement; diffusion restriction", _ "Multiple ring enhancing lesions", _ "Suprasellar cystic lesion; calcifications", _ "Sellar mass with suprasellar extension", _ "Cystic lesion with mural nodule", _ "Intraventricular mass near foramen of Monro", _ "Cortical lesion; bubbly appearance", _ "Ring enhancement; central diffusion restriction", _ "T2 hypointense rim; caseating granuloma", _ "Cyst with scolex; ring enhancement", _ "Temporal lobe hyperintensity; hemorrhage", _ "Thalamic involvement; hemorrhagic lesions", _ "Asymmetric white matter lesions; no enhancement", _ "Diffuse atrophy; white matter hyperintensity", _ "Periventricular plaques; Dawson fingers", _ "Diffuse bilateral white matter lesions", _ "Optic nerve and spinal cord involvement", _ "Symmetric periventricular changes", _ "Posterior white matter involvement", _ "Diffuse white matter involvement", _ "Frontal white matter changes; enhancement", _ "Corpus callosum necrosis", _ "Mammillary body enhancement", _ "Central pontine T2 hyperintensity", _ "Multiple punctate hemorrhages on SWI", _ "Diffuse cortical and deep gray injury", _ "Hemisphere atrophy; T2 hyperintensity", _ "Mesial temporal hyperintensity", _ "Cortical ribboning; DWI restriction", _ "Diffuse white matter degeneration", _ "Anterior temporal lobe involvement" _ ) Buzzword = Array( _ "Racing car ventricles", "Peg-like tonsils", "Bat-wing 4th ventricle", "Monoventricle", "Smooth brain", _ "Too many gyri", "Gray matter lined cleft", "Candle guttering", "Tram-track calcification", "UBOs", _ "Bilateral vestibular schwannomas", "Median prosencephalic fistula", "Popcorn lesion", "Bag of worms", _ "Charcot-Bouchard aneurysm", "Berry aneurysm rupture", "Bright on DWI", "Posterior edema", _ "Empty delta sign", "Puff of smoke", "Butterfly glioma", "Low grade glioma", _ "High grade glioma", "Fried egg cells", "4th ventricle tumor", "Blue cell tumor", _ "Dural tail sign", "Hyperdense lymphoma", "Multiple mets", "Adamantinomatous tumor", _ "Snowman sign", "Cyst with nodule", "Foramen of Monro tumor", "Bubbly tumor", _ "Ring lesion with restriction", "Caseating granuloma", "Scolex sign", "Temporal lobe encephalitis", _ "Thalamic JE", "JC virus infection", "HIV dementia", "Dawson fingers", _ "Post-infectious demyelination", "Longitudinal cord lesion", "Tiger stripe pattern", _ "Posterior predominant", "Spongy degeneration", "Frontal leukodystrophy", _ "Alcohol related necrosis", "Confusion + ataxia", "Locked-in risk", _ "Shear injury", "Watershed injury", "Hemisphere atrophy", _ "Limbic encephalitis", "Rapid dementia", "Measles complication", "Migraine strokes" _ ) Diff = Array( _ "Septo-optic dysplasia", "Chiari II", "Arachnoid cyst", "Hydranencephaly", "Pachygyria", _ "Focal cortical dysplasia", "Porencephaly", "Subependymal giant cell astrocytoma", "Meningioma", "Low grade glioma", _ "Meningioma", "AVM", "Hemorrhagic metastasis", "Dural AV fistula", _ "AVM rupture", "Meningitis", "Seizure", "Ischemia", _ "Tumor thrombus", "Atherosclerosis", "Abscess", "Demyelination", _ "GBM", "Metastasis", "Medulloblastoma", "Ependymoma", _ "Schwannoma", "Toxoplasmosis", "Abscess", "Rathke cleft cyst", _ "Craniopharyngioma", "Metastasis", "Ependymoma", "Ganglioglioma", _ "Necrotic tumor", "Metastasis", "Tuberculoma", "Tumor", _ "Dengue encephalitis", "MS", "Age related changes", "ADEM", _ "MS", "MS", "Krabbe disease", _ "MS", "Leukodystrophy", "Tumor", _ "Infarct", "Alcohol withdrawal", "Pontine infarct", _ "Contusion", "Infection", "Tumor", _ "Herpes encephalitis", "Alzheimer disease", "ADEM", "Small vessel disease" _ ) ' Loop to create slides For i = LBound(Diagnosis) To UBound(Diagnosis) Set sld = ppt.Slides.Add(ppt.Slides.Count + 1, ppLayoutText) sld.Shapes.Title.TextFrame.TextRange.Text = Diagnosis(i) sld.Shapes.Placeholders(2).TextFrame.TextRange.Text = _ "Key MRI Findings:" & vbCrLf & Findings(i) & vbCrLf & vbCrLf & _ "Classic Exam Buzzword/Sign:" & vbCrLf & Buzzword(i) & vbCrLf & vbCrLf & _ "Top Differential Diagnosis:" & vbCrLf & Diff(i) ' Formatting With sld.Shapes.Title.TextFrame.TextRange.Font .Size = 32 .Bold = True End With With sld.Shapes.Placeholders(2).TextFrame.TextRange.Font .Size = 20 End With Next i MsgBox "Neuroimaging Brain Slides Created Successfully!" End Sub ADD IMAGES FROM RADIOLOGY TEXTBOOK AND COVER ALL PATHOLOGIES OF BRAIN CNS SYSTEM