Как обновить слайд PowerPoint во время презентации

MDT ближе, чем он может подумать; я использовал для краткого стека презентаций, некоторые из которых редактировались во время шоу. Ключ должен создать мастер-презентацию как гладкий интерфейс к коллекции презентаций. Раньше я делал это в офисе 97, я уверен, что это можно сделать сейчас. Если это соответствует вашим потребностям, статическая ссылка на летучую презентацию (но со стабильным именем файла) может быть вещью.

в PowerPoint 2013, это действительно очень просто:

1. в Presenter View, нажмите на Показать панель задач (верхний левый угол)

2. когда панель задач открывается в нижней части экрана, нажмите на вкладку PowerPoint,

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

4. Если вы хотите, чтобы аудитория видела ваши изменения по мере их внесения, показывайте один и тот же слайд во всех 3 просмотр.

5. Если вы не хотите, чтобы аудитория видела изменения до тех пор, пока вы не закончите, щелкните значок черного экрана в представлении докладчика (монитор с диагональю поперек), прежде чем начать изменение, или измените слайд в представлении докладчика.

6. слайд-шоу покажет измененный слайд на большом экране, когда вы идете к нему.

Счастливый PowerPointing!

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

добавить это в модуль VBA в презентации.

Вам придется сохранить презентацию как PPTM или PPSM, а не PPTX/PPTX.

следуйте instrux включены в качестве комментариев:

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

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

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)

    ' NEW:  Delete any existing image we may have added previously
    On Error Resume Next
    Set oSh = oSl.Shapes("MagicImage")
    If Err.Number = 0 Then
       oSh.Delete
    End If

    ' 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
        ' NEW:  Name it so we can locate it easily later:
        .Name = "MagicImage"
        .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