MS PowerPoint — как подсветить объект при наведении курсора мыши

В 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 и наводим на наш объект-фигуру. Убрать подстветку возможно только при повторном наведении на объект.

Реклама