Навигация во время живого редактирования и презентации в Powerpoint 2010

343
LordT

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

Это прекрасно работает, когда редактирование в реальном времени некоторых точек на том же слайде, который представлен в данный момент (будет автоматически обновлено), - но как только обсуждение покажет, что необходим еще один слайд из колоды или даже новый слайд, адский навигационный блок вырвался на свободу:

Представление «Правка» имеет один слайд, а представленная презентация находится на совершенно другом слайде.

Есть ли способ "синхронизировать" два из вида редактирования? Мои обходные пути до сих пор:

  • Я либо alt-tab в окне презентации, переходя на правильный слайд, а затем alt-tab обратно в представление редактирования, но это портит презентацию
  • Или я нажимаю «ESC», чтобы закрыть представление презентации, которое автоматически перемещает представление редактирования на последний представленный слайд, прокручивать свою презентацию, пока не найду слайд, который редактировал последним, и снова начать презентацию оттуда.

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

4

1 ответ на вопрос

0
VirtualHat

This is really quite simple, especially since you say you want to change a slide that's not currently in view (which can get tricky due to bugs in some PPT versions).

Add this to a VBA module in your presentation. You'll have to save the presentation as PPTM or PPSM rather than PPTX/PPTX. Follow the instrux included as comments:

Option Explicit

' We'll modify slide #4 ... change as needed ' Make sure that the slide has no empty content or picture placeholders on it Const lSlideNum As Long = 4

Sub AddAnImage() ' add a shape to any slide you like ' assign the shape an Action Setting of Run Macro: AddAnImage

Dim oSl As Slide Dim oSh As Shape Set oSl = ActivePresentation.Slides(lSlideNum) ' bring in the image; setting width/height to -1 ensures that you ' don't distort it Set oSh = oSl.Shapes.AddPicture("c:\temp\photo.jpg", msoFalse, msoTrue, 0, 0, -1, -1) With oSh .LockAspectRatio = msoTrue ' to make sure it stays undistorted ' change its position/size as you wish ' for example, let's make it the full width of the slide: .Width = ActivePresentation.PageSetup.SlideWidth End With 

End Sub

Sorry for the bad editing...

Source of answer

Я проверил это, и оно, казалось, работало, используя мой компьютер и другой монитор, который лежал в шкафу. VirtualHat 8 лет назад 0