Navegação durante a edição e apresentação ao vivo no Powerpoint 2010

4

Ao apresentar uma TV ou um projetor, especialmente durante a reunião de trabalho, muitas vezes a apresentação no monitor do meu laptop é aberta no modo de edição e no modo de apresentação na tela externa.

Isso funciona muito bem ao editar alguns pontos no mesmo slide que é apresentado atualmente (será automaticamente atualizado) - mas assim que a discussão mostrar que outro slide do deque ou até mesmo um novo slide é necessário, o hell de navegação solta:

A visualização de edição tem um slide em exibição, enquanto a apresentação apresentada está em um slide completamente diferente.

Existe alguma maneira de "sincronizar" os dois a partir da visualização de edição? Minhas soluções alternativas até agora são:

  • Eu alterno alternadamente para a janela de apresentação, pulo para o slide correto e, em seguida, alterno para a exibição de edição, mas isso atrapalha a apresentação
  • Ou eu pressiono "ESC" para fechar a visualização da apresentação, que reposiciona automaticamente a visualização de edição para o último slide apresentado, rola pela minha apresentação até encontrar o slide que eu estava editando por último e iniciar a apresentação novamente

Ambas as soluções são gerenciáveis, mas em apresentações complexas muitas vezes me faz perder o foco. Existe alguma maneira mais direta para isso?

    
por LordT 13.08.2015 / 13:55

1 resposta

0

Isto é realmente muito simples, especialmente porque você diz que quer mudar um slide que não está atualmente em exibição (o que pode ser complicado devido a erros em algumas versões do PPT).

Adicione isso a um módulo VBA em sua apresentação. Você terá que salvar a apresentação como PPTM ou PPSM em vez de PPTX / PPTX. Siga o instrux incluído como comentários:

Option Explicit

'Modificaremos o slide nº 4 ... altere conforme necessário' Certifique-se de que o slide não contenha nenhum espaço vazio ou espaços reservados para figuras nele 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

Desculpe pela má edição ...

Fonte de resposta

    
por 02.09.2015 / 13:12