DetailPage-MSS-KB

Base de Dados de Conhecimento

Artigo: 162090 - Última revisão: quarta-feira, 11 de Outubro de 2006 - Revisão: 3.2

 

Nesta página

Sumário

Este artigo contém uma exemplo do Microsoft Visual Basic for Applications macro (procedimento Sub) que desactiva os eventos clique do rato e do rato sobre cada objecto na apresentação activa. No fim da macro é apresentada uma caixa de mensagem que indica se as alterações efectuadas a apresentação.

Mais Informação

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Procedimento do Visual Basic de exemplo

   Sub ResetActionSettings()

      Dim SlideObject As Slide
      Dim ShapeObject As Shape
      Dim MouseClickCount As Long
      Dim MouseOverCount As Long
      Dim Total As Long

      ' Initialize the counters.
      MouseClickCount = 0
      MouseOverCount = 0
      Total = 0

      ' Outer loop goes through every slide in the Active presentation.
      For Each SlideObject In Application.ActivePresentation.Slides

         ' Inner loop goes through every shape in the presentation.
         For Each ShapeObject In SlideObject.Shapes

            ' See whether object has Mouse click events.
            With ShapeObject.ActionSettings(ppMouseClick)

               ' Reset the object action to none, add 1 to counter.
               If .Action <> ppActionNone Then
                  .Action = ppActionNone
                  MouseClickCount = MouseClickCount + 1
               End If
            End With

            ' See whether object has mouse over events.
            With ShapeObject.ActionSettings(ppMouseOver)

               ' Reset the object action to none.
               If .Action <> ppActionNone Then
                  .Action = ppActionNone
                  MouseOverCount = MouseOverCount + 1
               End If
            End With

         Next ShapeObject

      Next SlideObject

      ' See whether any objects were changed.
      If MouseOverCount = 0 And MouseClickCount = 0 Then
         MsgBox "No objects had mouse events. No changes were made " _
            & "to the presentation.", vbInformation, _
            "No Mouse Events Found"
      Else

         ' This is the total number of objects changed.
         Total = MouseOverCount + MouseClickCount

         ' Set up the message box.
         If Total = 1 Then
            MsgBox "The action settings were successfully reset.", _
               vbInformation, Total & " Object Reset"
         Else
            MsgBox "The action settings were successfully reset.", _
               vbInformation, Total & " Objects Reset"
         End If

      End If

   End Sub
				

Referências

Para mais informações sobre a criação do Visual Basic para as macros, faça clique sobre o Assistente do Office no Microsoft PowerPoint, tipo de como criar uma macro clique em Procurar e, em seguida, clique em para visualizar "Criar uma macro no Visual Basic".

Para obter mais informações sobre a execução do Visual Basic para as macros, faça clique sobre o Assistente do Office no Microsoft PowerPoint, escreva a executar uma macro , clique em Procurar e, em seguida, clique para visualizar "Executar uma macro."

NOTA: Se o assistente estiver oculto, clique no botão Assistente do Office na barra de ferramentas padrão. Se o assistente não conseguir responder à consulta, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
176476  (http://support.microsoft.com/kb/176476/EN-US/ ) OFF: Assistente do Office não atendimento frequentes do Visual Basic
Para mais informações sobre como obter ajuda com o Visual Basic for Applications, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
163435  (http://support.microsoft.com/kb/163435/EN-US/ ) VBA: Recursos de programação do Visual Basic for Applications

A informação contida neste artigo aplica-se a:
  • Microsoft PowerPoint 98 para Macintosh
  • Microsoft PowerPoint 97 Standard Edition
Palavras-chave: 
kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB162090 KbMtpt
Tradução automáticaTradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 162090  (http://support.microsoft.com/kb/162090/en-us/ )
Artigo KB retiradoExclusão de Responsabilidade para Conteúdo sem Suporte na KB
Este artigo foi escrito sobre produtos para os quais a Microsoft já não fornece suporte. Por conseguinte, este artigo é oferecido "tal como está" e deixará de ser actualizado.
Partilhar
Opções de suporte adicionais
Fóruns de Suporte da Comunidade Microsoft
Contacte-nos directamente
Encontre um parceiro certificado Microsoft
Loja Microsoft