Como criar um suplemento do PowerPoint no PowerPoint 2000

Voltar ao topo

Passo 1 - criar o código para o suplemento

1. Inicie o PowerPoint e crie uma apresentação em branco.
2. No menu Ferramentas , aponte para macro e, em seguida, clique em Editor do Visual Basic .
3. No Editor do Visual Basic, clique em módulo , no menu Inserir .
4. Escreva o seguinte código na janela Module . Nota : É possível substituir o código para o seguinte código.

         Sub ChangeView()
   
            ' Check to see whether a presentation is open.
            If Presentations.Count <> 0 Then
               If ActiveWindow.ViewType <> ppViewSlideSorter Then
                  ActiveWindow.ViewType = ppViewSlideSorter
               End If
            Else
               MsgBox "No presentation open. Open a presentation and " _
                  & "run the macro again.", vbExclamation
            End If
         End Sub
   						

   Nota : A linha que é precedida por um apóstrofo (') apresenta um comentário no código. Comentários são fornecidos para explicar o que o código está a fazer num determinado ponto no procedimento. Este texto é opcional e pode ser excluído a partir do código.

Voltar ao topo

Passo 2 - criar a Macro Auto_Open

   Sub Auto_Open()

      Dim NewControl As CommandBarControl

      ' Store an object reference to a command bar.
      Dim ToolsMenu As CommandBars

      ' Figure out where to place the menu choice.
      Set ToolsMenu = Application.CommandBars

      ' Create the menu choice. The choice is created in the first
      ' position in the Tools menu.
      Set NewControl = ToolsMenu("Tools").Controls.Add _
                       (Type:=msoControlButton, _
                        Before:=1)

      ' Name the command.
      NewControl.Caption = "Change to Slide Sorter"

      ' Connect the menu choice to your macro. The OnAction property
      ' should be set to the name of your macro.
      NewControl.OnAction = "ChangeView"

   End Sub
				

Voltar ao topo

Passo 3 - criar a Macro Auto_Close

   Sub Auto_Close()

      Dim oControl As CommandBarControl
      Dim ToolsMenu As CommandBars

      ' Get an object reference to a command bar.
      Set ToolsMenu = Application.CommandBars

      ' Loop through the commands on the tools menu.
      For Each oControl In ToolsMenu("Tools").Controls

            ' Check to see whether the comand exists.
            If oControl.Caption = "Change to Slide Sorter" Then

              ' Check to see whether action setting is set to ChangeView.
              If oControl.OnAction = "ChangeView" Then

                  ' Remove the command from the menu.
                  oControl.Delete
               End If
            End If
      Next oControl

   End Sub
				

Voltar ao topo

Passo 4 - criar o ficheiro ppa

1. No menu ' Depurar ', clique em Compilar VBAProject. Se o código tiver erros de compilação, não poderá criar o suplemento.
   Nota : este passo apenas é necessário se a opção Verificar a sintaxe automaticamente no Editor do Visual Basic não está seleccionada. Para activar ou desactivar a esta opção, siga estes passos:
   1. Clique em Opções no menu ' Ferramentas ' e clique em separador Editor.
   2. Clique para desmarcar ou seleccionar a caixa de verificação verificar a sintaxe automaticamente e, em seguida, clique em OK.
   Se esta opção está actualmente seleccionada, avance para o passo 2.
   
2. Guarde a apresentação.
   1. No menu ficheiro , clique em Close and Return to Microsoft PowerPoint .
   2. No menu ficheiro , clique em Guardar como .
   3. Seleccione apresentação (* .ppt) na lista Guardar com o tipo .
   4. Atribua um nome de apresentação e, em seguida, clique em Guardar .
   O código do suplemento é guardado na apresentação.
3. Crie o ficheiro ppa.
   1. No menu ficheiro , clique em Guardar como .
   2. Seleccione suplemento do PowerPoint (* ppa) na lista Guardar com o tipo .
   3. Na caixa Nome do ficheiro , escreva um nome para o suplemento e, em seguida, clique em Guardar .
   Normalmente, suplementos do PowerPoint são colocados na pasta c:\Programas\Microsoft Files\ Microsoft Office\Office. No entanto, pode escolher outra pasta se pretender.

Voltar ao topo

Passo 5 - carregar o suplemento

1. No menu Ferramentas , clique em Add-Ins .
2. Clique em Adicionar novo .
3. Na caixa de diálogo Adicionar novo PowerPoint Add-in , seleccione o ficheiro add-in que criou na secção "Passo 4 - criar o PPA ficheiro". Clique em OK .
4. Na caixa de mensagem de aviso de macro, clique em Activar Macros .
   
   NOTA: Se tiver recebido um ficheiro de suplemento de uma origem desconhecida, clique em Desactivar Macros .
   
   A macro Auto_Open executa agora.

Voltar ao topo

Passo 6 - descarregar o suplemento

1. No menu Ferramentas , clique em Add-Ins .
2. Na lista de Suplementos disponíveis , seleccione o suplemento que pretende descarregar e, em seguida, clique em Descarregar ou Remover . Quando clica descarregar, o suplemento é descarregado mas permanece na lista de suplementos disponíveis. Quando clica em Remover, o suplemento é carregado e é removida da lista de suplementos disponíveis.
   
   A macro Auto_Close executa agora.

Voltar ao topo

Passo 7 - proteger o suplemento com uma palavra-passe

1. No menu Ferramentas , clique em Propriedades VBAProject e, em seguida, clique no separador protecção .
2. Clique para seleccionar a caixa de verificação Bloquear projecto para visualização .
3. Em Propriedades do projecto palavra-passe para ver , escreva a palavra-passe que pretende nas caixas palavra-passe e Confirmar palavra-passe .
4. Clique em OK . Uma palavra-passe agora é necessário para visualizar o código de origem.

Voltar ao topo