Como criar um suplemento do PowerPoint no PowerPoint 2000

Voltar para o início

Etapa 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. Digite o seguinte código na janela módulo . Observação : você pode substituir seu código para o código a seguir.

         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
   						

   Observação : uma 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á fazendo em um ponto específico no procedimento. Esse texto é opcional e pode ser excluído do seu código.

Voltar para o início

Etapa 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 para o início

Etapa 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 para o início

Etapa 4 - criar o arquivo .ppa

1. No menu Debug, clique em Compile VBAProject. Se seu código possui erros de compilação, não será capaz de criar o suplemento.
   Observação : essa etapa só é necessário se a opção verificação automática de sintaxe no Editor do Visual Basic não é selecionada. Para ativar ou desativar o essa opção, execute essas etapas:
   1. Clique em Opções no menu Ferramentas e, em seguida, clique na guia Editor.
   2. Clique para limpar ou marque a caixa de seleção verificação automática de sintaxe e, em seguida, clique em OK.
   Se esta opção é selecionada no momento, pule para a etapa 2.
   
2. Salve a apresentação.
   1. No menu arquivo , clique em Fechar e voltar para Microsoft PowerPoint .
   2. No menu arquivo , clique em Salvar como .
   3. Selecione apresentação (* .ppt) na lista Salvar como tipo .
   4. Nome da apresentação e, em seguida, clique em Salvar .
   O código do suplemento agora está salvo na apresentação.
3. Crie o arquivo ppa.
   1. No menu arquivo , clique em Salvar como .
   2. Selecione suplementos do PowerPoint (* ppa) na lista Salvar como tipo .
   3. Na caixa Nome do arquivo , digite um nome para o add-in e, em seguida, clique em Salvar .
   Normalmente, os suplementos do PowerPoint são colocados na pasta c:\Arquivos de Files\ Microsoft Office\Office. No entanto, você pode escolher outra pasta, se você desejar.

Voltar para o início

Etapa 5 - carregar o suplemento

1. No menu Ferramentas , clique em Suplementos .
2. Clique em Adicionar novo .
3. Na caixa de diálogo Adicionar novo suplementos do PowerPoint , selecione o arquivo add-in que você criou na seção "Etapa 4 - criar o PPA arquivo". Clique em OK .
4. Na caixa de mensagem de aviso de macro, clique em Ativar Macros .
   
   Observação: Se você recebeu um arquivo add-in de uma fonte desconhecida, clique em Desativar Macros .
   
   Agora executa a macro Auto_Open.

Voltar para o início

Etapa 6 - descarregar o suplemento

1. No menu Ferramentas , clique em Suplementos .
2. Na lista de Suplementos disponíveis , selecione o suplemento que você deseja descarregar e, em seguida, clique em Descarregar ou Remover . Quando você clica em Unload, o suplemento for descarregado, mas permanece na lista de suplementos disponíveis. Quando você clica em Remover, o suplemento é descarregado e ele é removido da lista de suplementos disponíveis.
   
   Agora executa a macro Auto_Close.

Voltar para o início

Etapa 7 - Protegendo seu suplemento com uma senha

1. No menu Ferramentas , clique em Propriedades do VBAProject e, em seguida, clique na guia proteção .
2. Clique para selecionar a caixa de seleção Bloquear projeto para exibição .
3. Em Senha para exibir propriedades do projeto , digite a senha desejada nas caixas senha e Confirmar senha .
4. Clique em OK . Agora é necessária uma senha para exibir o código-fonte.

Voltar para o início