Sub CreatePresentation() Dim newPPT As PowerPoint.Application Dim pres As PowerPoint.Presentation Dim slide As PowerPoint.slide Dim SlideNum As Integer ' Создаем объекты PowerPoint Set newPPT = New PowerPoint.Application newPPT.Visible = True Set pres = newPPT.Presentations.Add SlideNum = 0 ' Создаем слайды For i = 1 To 8 SlideNum = SlideNum + 1 Set slide = pres.Slides.Add(SlideNum, PowerPoint.PpSlideLayout.ppLayoutTitle) ' Добавляем заголовок slide.Shapes.Title.TextFrame.TextRange.Text = "Слайд " & i ' Добавляем изображение животного With slide.Shapes.AddPicture(FileName:="C:\Users\class603\downloads\kartinki-milyh-zhivotnyh-52" & i & ".jpg", _ LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, _ Top:=0, Width:=pres.PageSetup.SlideWidth, Height:=pres.PageSetup.SlideHeight) .LockAspectRatio = msoTrue ' Фиксируем пропорции изображения End With ' Добавляем описание животного slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 350, 600, 200).TextFrame.TextRange.Text = "Описание слайда " & i Next i ' Освобождаем ресурсы pres.Close newPPT.Quit Set slide = Nothing Set pres = Nothing Set newPPT = Nothing End Sub