vba power point change изображение border color on click

Question

Я пытаюсь создать обучающую интерактивную презентацию для детей-детей, использующих Power Point, и я пытаюсь сделать своего рода тест/деятельность, в которой дети должны нажать на некоторые фотографии в соответствии с вопросом. Некоторые будут правы, другие - нет. (например: можете ли вы указать инструменты, используемые пожарным? и показать 4 изображения различных инструментов) Используя событие mousemove, я могу воспроизвести звук, который говорит имя объекта, и с помощью события click я могу воспроизвести другой звук, чтобы рассказать детям «неправильно» или «правильно». Теперь я хотел бы изменить границу изображения, на которое они нажимают (цвет и/или ширина), но я не знаю, как это сделать в VBA. Это должно быть очень легко, но я не знаю синтаксис :-( Любой помощь? Пожалуйста? Спасибо!

Answer 1

Вы будете удивлены, но это не так просто, как вы ожидали, конечно, при выполнении умным образом с классами и событиями.

Я дам вам простую идею, поэтому, если у вас есть время и действительно нужно, вы могли бы пойти этим путем. Но возникнут некоторые проблемы - вам придется выяснить, как вы могли бы получить начиная границы ваших форм.

Вот идея, как начать.

1. имя каждого из формы на слайд-выбрать один и выполните следующую команду в окне Immediate в редакторе VBA, например .:

   ActiveWindow.Selection.ShapeRange.Name = "Fireman" 
   

2. изменить цвет и линии записи макросов для каждой формы (это будет работать только в режиме слайд-шоу):

   Sub FiremanClick() 
   
   With SlideShowWindows(1).View.Slide.Shapes("Fireman").Line 
       .Weight = 2 
       .ForeColor.RGB = RGB(255, 0, 0) 
   End With 
   
   
   End Sub 
   

3. в приложении щелкните правой кнопкой мыши форму пожарным и ассоциировать действие с макросом вы написали.

4. вам нужно выяснить, как установить стандартную настройку каждой формы и когда.

Answer 2

По какой-то причине, какая-то ошибка происходит при настройке цвета формы границы первого, а затем вес, форма границы цвет становится общий синий один в PowerPoint 2010.