Презентация на VBA. Проблема с макросом

 content = Array( _
        "Рожистое воспаление (erysipelas) – это инфекционное заболевание, вызванное стрептококками группы А. Заболевание поражает кожу и слизистые оболочки, вызывая воспаление, отек и боль.", _

Sub Рожистое воспаление()
    ' Создаем новую презентацию PowerPoint с названием "Рожистое воспаление"
    Dim pptApp As Object
    Dim pptPresentation As Object
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True
    Set pptPresentation = pptApp.Presentations.Add
    pptPresentation.Windows(1).Caption = "Рожистое воспаление"
 
    ' Заголовки, содержимое и изображения для слайдов
    Dim titles As Variant
    Dim content As Variant
    Dim images As Variant
    
    ' Пути к изображениям для каждого слайда
    images = Array("/Users/username/Pictures/erysipelas_overview.jpg", _
                   "/Users/username/Pictures/erysipelas_definition.jpg", _
                   "/Users/username/Pictures/erysipelas_form_erythematous.jpg", _
                   "/Users/username/Pictures/erysipelas_form_bullous.jpg", _
                   "/Users/username/Pictures/erysipelas_form_hemorrhagic.jpg", _
                   "/Users/username/Pictures/erysipelas_form_necrotic.jpg", _
                   "/Users/username/Pictures/erysipelas_risk_factors.jpg", _
                   "/Users/username/Pictures/erysipelas_symptoms.jpg", _
                   "/Users/username/Pictures/erysipelas_diagnosis.jpg", _
                   "/Users/username/Pictures/erysipelas_treatment.jpg", _
                   "/Users/username/Pictures/erysipelas_prevention.jpg", _
                   "/Users/username/Pictures/erysipelas_complications.jpg", _
                   "/Users/username/Pictures/erysipelas_emergency.jpg", _
                   "/Users/username/Pictures/erysipelas_conclusion.jpg")
 
    ' Основные заголовки и содержание для слайдов
    titles = Array("Рожистое воспаление: Обзор", _
                   "Определение и характеристика", _
                   "Формы: Эритематозная", _
                   "Формы: Буллёзная", _
                   "Формы: Геморрагическая", _
                   "Формы: Некротическая", _
                   "Факторы риска", _
                   "Симптомы", _
                   "Диагностика", _
                   "Лечение", _
                   "Профилактика", _
                   "Осложнения", _
                   "Алгоритм помощи", _
                   "Заключение")
 
    content = Array( _
        "Рожистое воспаление (erysipelas) – это инфекционное заболевание, вызванное стрептококками группы А. " & _
        "Заболевание поражает кожу и слизистые оболочки, вызывая воспаление, отек и боль.", _
        
        "Рожистое воспаление проявляется как острое ограниченное воспаление с четкими границами и отеком. " & _
        "Иногда оно переходит в хроническую форму с частыми рецидивами.", _
        
        "Эритематозная форма – наиболее распространенная. Появляется ярко-красное пятно с четкими границами, " & _
        "болью и отеком в пораженной области. Часто сопровождается лихорадкой.", _
        
        "Буллёзная форма рожистого воспаления – образование пузырей с жидкостью, которые могут вскрываться и " & _
        "оставлять эрозии, увеличивая риск инфицирования.", _
        
        "Геморрагическая форма – характеризуется пузырями с кровянистым содержимым, что придает воспалению " & _
        "сине-багровый цвет и сопровождается выраженным отеком.", _
        
        "Некротическая форма – самая тяжелая, включает отмирание тканей, гангрену, интенсивную боль и " & _
        "требует немедленного вмешательства для предотвращения осложнений.", _
        
        "К факторам риска относятся хронические заболевания (например, диабет), плохая гигиена, лимфедема и " & _
        "иммунодефицит, что повышает восприимчивость к инфекции.", _
        
        "Основные симптомы: покраснение кожи, боль, отек, жжение и высокая температура. Пораженные участки " & _
        "имеют четкие границы и могут распространяться при отсутствии лечения.", _
        
        "Диагностика включает осмотр пораженных участков, анализы крови на наличие воспаления, а также " & _
        "ультразвук для оценки состояния тканей и исключения других инфекций.", _
        
        "Лечение: назначение антибиотиков (например, пенициллины), противовоспалительных и обезболивающих " & _
        "средств. В тяжелых случаях требуется госпитализация и интенсивная терапия.", _
        
        "Профилактика включает соблюдение гигиенических норм, обработку ран антисептиками и контроль " & _
        "за хроническими заболеваниями для снижения риска заражения.", _
        
        "Осложнения: абсцессы, гангрена, лимфостаз и сепсис. Рецидивы могут привести к хроническому воспалению " & _
        "и нарушению лимфатического оттока.", _
        
        "Алгоритм скорой помощи включает оценку состояния, обезболивание, противошоковые меры, антибиотики " & _
        "и транспортировку в стационар.", _
        
        "Рожистое воспаление требует быстрой диагностики и лечения для предотвращения осложнений и " & _
        "появления рецидивов.")
 
    ' Добавляем слайды с заголовками, содержимым и анимацией
    Dim i As Integer
    For i = 0 To 13
        Dim slide As Object
        Set slide = pptPresentation.Slides.Add(i + 1, 1)
        
        ' Заголовок слайда
        Dim titleShape As Object
        Set titleShape = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 600, 50)
        titleShape.TextFrame.TextRange.Text = titles(i)
        titleShape.TextFrame.TextRange.Font.Size = 28
        titleShape.TextFrame.TextRange.Font.Bold = msoTrue
        ' Анимация заголовка
        slide.TimeLine.MainSequence.AddEffect titleShape, msoAnimEffectFly, , msoAnimTriggerAfterPrevious
        
        ' Основной текст
        Dim contentShape As Object
        Set contentShape = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 150, 600, 300)
        contentShape.TextFrame.TextRange.Text = content(i)
        contentShape.TextFrame.TextRange.Font.Size = 18
        ' Анимация текста
        slide.TimeLine.MainSequence.AddEffect contentShape, msoAnimEffectFade, , msoAnimTriggerAfterPrevious
 
        ' Проверка, что изображение существует, и добавление его на слайд
        If i <= UBound(images) Then
            Dim imgShape As Object
            Set imgShape = slide.Shapes.AddPicture(images(i), msoFalse, msoCTrue, 650, 150, 250, 200)
            ' Анимация изображения
            slide.TimeLine.MainSequence.AddEffect imgShape, msoAnimEffectFade, , msoAnimTriggerAfterPrevious
        End If
    Next i
End Sub

 ' Заголовки, содержимое и изображения для слайдов
    Dim titles (20) 'c запасом 
    Dim content (20)
    Dim images (20)
    dim nc as long
    ' Пути к изображениям для каждого слайда
 
    nc=nc+1:images(nc) = "/Users/username/Pictures/erysipelas_overview.jpg"
    titles(nc) = "Рожистое воспаление: Обзор"
    content(nc) ="Рожистое воспаление (erysipelas) – это инфекционное заболевание, вызванное стрептококками группы А. " _
                       "Заболевание поражает кожу и слизистые оболочки, вызывая воспаление, отек и боль.", 
   
    nc=nc+1:images(nc) = "/Users/username/Pictures/erysipelas_definition.jpg"
    titles(nc) = "Определение и характеристика"
    content(nc) ="Рожистое воспаление проявляется как острое ограниченное воспаление с четкими границами и отеком. " &  _
                        "Иногда оно переходит в хроническую форму с частыми рецидивами."
 
''''''' и т.д.

content = Array( _

Case

Sub Рожа()
    ' Создаем новую презентацию PowerPoint
    Dim pptApp As Object
    Dim pptPresentation As Object
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True
    Set pptPresentation = pptApp.Presentations.Add
    
    ' Заголовки и изображения для каждого слайда
    Dim titles As Variant
    Dim images As Variant
    titles = Array("Рожистое воспаление: Обзор", "Определение и характеристика", _
                   "Формы: Эритематозная", "Формы: Буллёзная", "Формы: Геморрагическая", _
                   "Формы: Некротическая", "Факторы риска", "Симптомы", "Диагностика", _
                   "Лечение", "Профилактика", "Осложнения", "Алгоритм помощи", "Заключение")
                   
    images = Array("C:\Images\erysipelas_overview.jpg", "C:\Images\erysipelas_definition.jpg", _
                   "C:\Images\erysipelas_form_erythematous.jpg", "C:\Images\erysipelas_form_bullous.jpg", _
                   "C:\Images\erysipelas_form_hemorrhagic.jpg", "C:\Images\erysipelas_form_necrotic.jpg", _
                   "C:\Images\erysipelas_risk_factors.jpg", "C:\Images\erysipelas_symptoms.jpg", _
                   "C:\Images\erysipelas_diagnosis.jpg", "C:\Images\erysipelas_treatment.jpg", _
                   "C:\Images\erysipelas_prevention.jpg", "C:\Images\erysipelas_complications.jpg", _
                   "C:\Images\erysipelas_emergency.jpg", "C:\Images\erysipelas_conclusion.jpg")
    
    ' Цвет фона слайдов
    Dim slideColor As Long
    slideColor = RGB(152, 224, 173)  ' HTML код #98E0AD
    
    ' Создаем слайды
    Dim slide As Object, titleShape As Object, contentShape As Object, imgShape As Object
    For i = 0 To UBound(titles)
        Set slide = pptPresentation.Slides.Add(i + 1, 1)
        slide.FollowMasterBackground = msoFalse
        slide.Background.Fill.ForeColor.RGB = slideColor
        
        ' Добавляем заголовок
        Set titleShape = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 600, 50)
        titleShape.TextFrame.TextRange.Text = titles(i)
        titleShape.TextFrame.TextRange.Font.Size = 28
        titleShape.TextFrame.TextRange.Font.Bold = msoTrue
        slide.TimeLine.MainSequence.AddEffect titleShape, msoAnimEffectZoom, , msoAnimTriggerAfterPrevious
        
        ' Добавляем содержимое
        Set contentShape = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 150, 600, 300)
        Select Case i
            Case 0
                contentShape.TextFrame.TextRange.Text = "Рожистое воспаление (erysipelas) – это острое инфекционное заболевание, вызванное стрептококками группы А, поражающее кожу и слизистые оболочки. " & _
                "Часто сопровождается болью, покраснением и отеком пораженной области. Затрагивает обычно конечности и лицо."
            Case 1
                contentShape.TextFrame.TextRange.Text = "Рожистое воспаление характеризуется воспалением с четкими границами, " & _
                "быстрым распространением по подкожным тканям, высокой температурой и возможными осложнениями. " & _
                "Важно быстро начинать лечение, так как заболевание может перейти в хроническую форму с частыми рецидивами."
            Case 2
                contentShape.TextFrame.TextRange.Text = "Эритематозная форма: проявляется как ярко-красное пятно с четкими границами, окружающее здоровую кожу. " & _
                "Боль, отек и лихорадка являются основными симптомами. В тяжелых случаях возможны симптомы интоксикации, усталость и слабость."
            Case 3
                contentShape.TextFrame.TextRange.Text = "Буллёзная форма: на воспаленных участках появляются пузыри, заполненные жидкостью, которые вскрываются, оставляя эрозии. " & _
                "Эта форма требует специального ухода для предотвращения инфекции, а в тяжелых случаях может осложняться."
            Case 4
                contentShape.TextFrame.TextRange.Text = "Геморрагическая форма: воспаление ярко выражено с кровянистыми пузырями, придающими поражению багровый оттенок. " & _
                "Эта форма может сопровождаться сильной болью и отеком, а также высокой температурой, часто требует госпитализации."
            Case 5
                contentShape.TextFrame.TextRange.Text = "Некротическая форма: это тяжелая форма, при которой происходит отмирание тканей. Может потребоваться хирургическое удаление. " & _
                "Высокий риск сепсиса и других осложнений. Срочная госпитализация необходима для предотвращения распространения инфекции."
            Case 6
                contentShape.TextFrame.TextRange.Text = "Факторы риска: пожилой возраст, иммунодефицит, диабет, наличие хронических заболеваний, плохая гигиена, травмы кожи."
            Case 7
                contentShape.TextFrame.TextRange.Text = "Основные симптомы включают лихорадку, боль, покраснение кожи, отек и четкие границы пораженной области. В тяжелых случаях — головная боль, усталость."
            Case 8
                contentShape.TextFrame.TextRange.Text = "Диагностика включает клинический осмотр, анализ крови и, при необходимости, ультразвуковое исследование для оценки состояния лимфатических узлов и тканей."
            Case 9
                contentShape.TextFrame.TextRange.Text = "Лечение проводится антибиотиками, а также назначаются обезболивающие и противовоспалительные препараты. В тяжелых случаях возможно хирургическое вмешательство."
            Case 10
                contentShape.TextFrame.TextRange.Text = "Профилактика включает соблюдение личной гигиены, контроль хронических заболеваний, предупреждение травм и своевременное лечение ран."
            Case 11
                contentShape.TextFrame.TextRange.Text = "Осложнения включают развитие абсцессов, некроз тканей, лимфостаз и сепсис, которые могут требовать длительного лечения."
            Case 12
                contentShape.TextFrame.TextRange.Text = "Алгоритм помощи: быстрое обезболивание, антибактериальная терапия и срочная госпитализация в случае тяжелого состояния. Поддержка основных функций организма."
            Case 13
                contentShape.TextFrame.TextRange.Text = "Заключение: своевременная диагностика и лечение необходимы для предотвращения осложнений и рецидивов. Обучение пациентов мерам профилактики играет ключевую роль."
        End Select
        contentShape.TextFrame.TextRange.Font.Size = 18
        slide.TimeLine.MainSequence.AddEffect contentShape, msoAnimEffectFade, , msoAnimTriggerAfterPrevious
 
        ' Добавляем изображение
        If i <= UBound(images) Then
            Set imgShape = slide.Shapes.AddPicture(images(i), msoFalse, msoCTrue, 650, 150, 250, 200)
            slide.TimeLine.MainSequence.AddEffect imgShape, msoAnimEffectFly, , msoAnimTriggerAfterPrevious
        End If
    Next i
End Sub