В MS PowerPoint нет стандартной подсветки объекта-фигуры (SHAPE) при наведении на него курсором мыши. Но это возможно реализовать при помощи макроса (macros). Для этого необходимо в MS PowerPoint перейти в раздел Вид, выбрать пункт Макросы, задать имя новому макросу и нажать Создать. Откроется Module1, куда размещаем следующий код:
Sub FLASHLIGHT(oShp As Shape) Dim oSlide As Slide ' Здесь я задал первый слайд, поскольку мои объекты расположены на нем Set oSlide = Application.ActivePresentation.Slides(1) vName = oShp.Name ' Проверяем видимость линий объекта vis = oSlide.Shapes.Item(vName).Line.Visible ' Условие, по которому включаем или выключаем подветку объекта If vis = 0 Then ' Включаем видимость линий, изменяем толщину их, изменяем цвет With oSlide.Shapes.Item(vName) .Line.Visible = msoTrue .Line.Weight = 5 .Line.ForeColor.RGB = RGB(255, 255, 50) End With Else ' В качестве отключения подсветки, я просто делаю линии невидимыми ' (но можно также менять их толщину и цвет, если это надо) With oSlide.Shapes.Item(vName) .Line.Visible = msoFalse End With End If End Sub
После того, как макрос создан, его нужно назначить объекту на слайде (у меня первый слайд) указанном в скрипте. Для этого выделяем объект-фигуру на слайде, переходим в раздел Вставка и нажимаем пункт Действие. В открывшемся окне «Настройка действия» переходим на закладку «По наведению указателя мыши», ставим галочку Запуск макроса и со списка выбираем наш макрос (FLASHLIGHT).
Теперь проверяем как работает подсветка в режиме презентации, жмем F5 и наводим на наш объект-фигуру. Убрать подстветку возможно только при повторном наведении на объект.
