как инфографика ау

Sub CreateElectricianPresentation()
Dim ppt As Object
Dim slide As Object
Dim i As Integer
Dim titles As Variant
Dim images As Variant

' Создаем новую презентацию
Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = True
ppt.Presentations.Add

' Заголовки для слайдов
titles = Array("Профессия электрик", "Обязанности электрика", "Инструменты", "Электропроводка", _
"Электрощиты", "Монтаж кабеля", "Системы освещения", "Ремонт и обслуживание", _
"Схемы подключения", "Безопасность", "Средства защиты", "Рабочее место", _
"Современные технологии", "Перспективы профессии", "Заключение")

' Ссылки на изображения (замените на свои пути к файлам)
images = Array("C:\Images\electrician1.jpg", "C:\Images\electrician2.jpg", "C:\Images\tools.jpg", _
"C:\Images\wiring.jpg", "C:\Images\panel.jpg", "C:\Images\cable.jpg", _
"C:\Images\lighting.jpg", "C:\Images\repair.jpg", "C:\Images\scheme.jpg", _
"C:\Images\safety.jpg", "C:\Images\protection.jpg", "C:\Images\workplace.jpg", _
"C:\Images\modern.jpg", "C:\Images\future.jpg", "C:\Images\conclusion.jpg")

' Создаем слайды
For i = 0 To 14
Set slide = ppt.ActivePresentation.Slides.Add(i + 1, 1) ' 1 = заголовок + текст
slide.Shapes.Title.TextFrame.TextRange.Text = titles(i) ' Добавляем заголовок

' Вставляем картинку, если есть
On Error Resume Next
slide.Shapes.AddPicture images(i), False, True, 100, 100, 600, 400
On Error GoTo 0
Next i

MsgBox "Презентация создана!", vbInformatio