[Презентация] Sub CreateBookAnimation() Dim slideIndex As Integer Dim slide As slide Dim shape As shape ' Создаем 5 слайдов с макетом книги For slideIndex = 1 To 5 ' Добавляем новый слайд Set slide = ActivePresentation.Slides.Add(slideIndex, ppLayoutBlank) ' Устанавливаем фон (бежевый цвет для эффекта старинной книги) slide.FollowMasterBackground = msoFalse slide.Background.Fill.BackColor.RGB = RGB(245, 222, 179) ' Добавляем текст сказки Set shape = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 600, 100) shape.TextFrame.TextRange.Text = "Это текст страницы " & slideIndex & " сказки" shape.TextFrame.TextRange.Font.Size = 24 shape.TextFrame.TextRange.Font.Name = "Times New Roman" ' Добавляем прямоугольник для видео Set shape = slide.Shapes.AddShape(msoShapeRectangle, 100, 200, 400, 300) shape.Fill.ForeColor.RGB = RGB(200, 200, 200) ' Цвет рамки shape.Line.Visible = msoTrue ' Добавляем простую анимацию для текста slide.TimeLine.MainSequence.AddEffect shape, msoAnimEffectFade, , msoAnimTriggerAfterPrevious Next slideIndex End Sub