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

Question

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

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

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

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

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

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

Answer 1

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

Добавьте это к модулю VBA в своей презентации. Вы должны будете сохранить презентацию как PPTM или PPSM, а не PPTX/PPTX. Следуйте инструкциям, включенным в качестве комментариев:

Вариант Явный

«Мы изменим слайд № 4 ... изменим по мере необходимости» Убедитесь, что на слайде нет пустого содержимого или заполнителей изображений. 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

Извините за плохое редактирование ...

Источник ответа