PPT2000: Exemplo de código do Visual Basic para actualizar ligações de uma folha de dados do gráfico

Traduções de Artigos Traduções de Artigos
Artigo: 222689 - Ver produtos para os quais este artigo se aplica.
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo fornece uma exemplo do Microsoft Visual Basic for Applications macro (procedimento sub ) que actualiza as ligações dentro de um objecto do Microsoft Graph num diapositivo do Microsoft PowerPoint.

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. Nota : os exemplos de macro seguinte trabalhar apenas no PowerPoint. Visual Basic for Applications macros não suportadas pelo Microsoft PowerPoint Viewer. Para obter informações adicionais, clique no número de artigo que se segue para visualizar o artigo na Microsoft Knowledge Base:
Antes de poder executar a macro de Visual Basic de exemplo, terá de adicionar uma referência ao modelo de objecto do Graph 9.0. Para adicionar a referência, siga estes passos:
  1. No menu Ferramentas , aponte para macro e, em seguida, clique em Editor do Visual Basic .
  2. No menu Ferramentas , clique em References .
  3. Na caixa de diálogo References - VBAProject , clique para seleccionar a caixa de verificação Microsoft Graph 9.0 Object Library .
  4. Clique em OK .

    O projecto agora contém uma referência ao modelo de objecto do Graph 9.0.

Procedimento do Visual Basic de exemplo

   Sub UpdateAllGraphs()

      Dim oShape As Shape
      Dim oSlide As Slide
      Dim oGraph As Object

      ' Loop through each slide in the presentation.
      For Each oSlide In ActivePresentation.Slides

         ' Loop through all the shapes on the current slide.
         For Each oShape In oSlide.Shapes

            ' Check whether the shape is an OLE object.
            If oShape.Type = msoEmbeddedOLEObject Then

               ' Check whether the OLE object is a Graph object.
               If oShape.OLEFormat.ProgID = "MSGraph.Chart.8" Then

                  ' Found a graph; obtain object reference, and
                  ' then update.
                  Set oGraph = oShape.OLEFormat.Object
                  oGraph.Application.Update

               End If
            End If
         Next oShape
      Next oSlide

   End Sub
				

Referências

Para mais informações sobre como utilizar o código de exemplo neste artigo, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft:
212536OFF2000: Como executar códigos de exemplo a partir de artigos da base de dados de conhecimento da Microsoft

Propriedades

Artigo: 222689 - Última revisão: 23 de fevereiro de 2014 - Revisão: 2.3
A informação contida neste artigo aplica-se a:
  • Microsoft PowerPoint 2000 Standard Edition
  • Microsoft Graph 2000
Palavras-chave: 
kbnosurvey kbarchive kbmt kbcode kbdtacode kbhowto kbprogramming KB222689 KbMtpt
Traduçã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: 222689

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com