Макросы в Power Point для новичков или как создать игровую платформу

Меня зовут Валерия Чечельницкая. Я креативный психолог и специалист по созданию эффектных презентаций. Я перевожу игры в онлайн формат и обучаю как это делать самостоятельно. Это видео создано для тех, кто хочет узнать о возможностях Power Point. Мы поговорим о том, что такое макросы, модули и классы. Что такое VBA и чем он может помочь? Как создавать простые задачи и какие возможности существуют в целом. Как создать несложные игровые макросы? Тайм коды 00:00 – Знакомство 01:03 – Что умеет Power Point 02:52 – Первые шаги 06:54 – Что такое VBA 08:15 – Самый простой код на VBA 08:49 – Что такое макросы? 09:24 – Что такое классы 10:00 – Самый простой макрос 11:14 – Проверка и диагностика: как избежать ошибок 21:25 – Ресурсые послания 24:51 – Подведение итогов Макросы, о которых мы говорили в видео: 1. Добро пожаловать в игру Sub WelcomeMessage() MsgBox "Добро пожаловать в игру!" End Sub 2. Светофор эмоций с ресурсными посланиями '=== Найти фигуру по имени === Function GetShapeByName(ByVal sld As slide, ByVal shapeName As String) As Shape Dim shp As Shape For Each shp In sld.Shapes If shp.name = shapeName Then Set GetShapeByName = shp Exit Function End If Next shp Set GetShapeByName = Nothing End Function '=== Светофор + ресурсная фраза в облачке (чёрный текст, без точек, простой шрифт) === Sub MoodWithCloud2() Dim sld As slide, dot As Shape, cloud As Shape, st As String Dim phrases As Variant, msg As String 'Фразы БЕЗ точки в конце phrases = Array( _ "У тебя всё получится", _ "Я вдохновляюсь тобой", _ "Ты прекрасно справляешься", _ "Каждый шаг – это маленькая победа", _ "Пусть у тебя всё складывается наилучшим образом" _ ) 'Текущий слайд Set sld = SlideShowWindows(1).View.slide 'Фигуры Set dot = GetShapeByName(sld, "MoodDot") Set cloud = GetShapeByName(sld, "MessageCloud") If dot Is Nothing Or cloud Is Nothing Then Exit Sub 'Переключение цвета индикатора st = dot.AlternativeText Select Case st Case "green" dot.Fill.ForeColor.RGB = RGB(255, 192, 0) 'жёлтый dot.AlternativeText = "yellow" Case "yellow" dot.Fill.ForeColor.RGB = RGB(192, 0, 0) 'красный dot.AlternativeText = "red" Case Else dot.Fill.ForeColor.RGB = RGB(0, 176, 80) 'зелёный dot.AlternativeText = "green" End Select 'Случайная фраза Randomize msg = phrases(Int((UBound(phrases) + 1) * Rnd)) 'Запись фразы в облачко (чёрный текст, простой шрифт) With cloud.TextFrame2 .TextRange.Text = msg With .TextRange .ParagraphFormat.Alignment = msoAlignCenter With .Font .name = "Calibri" 'Можно заменить на Arial .Size = 22 .Bold = msoFalse .Fill.ForeColor.RGB = RGB(0, 0, 0) 'чёрный End With End With End With End Sub