Editar Dados De Um Gráfico Em Powerpoint Pelo Access Opções

[Sames Davis]

Resolvido de outra forma, exportei o gráfico e a base para o Excel e estou fazendo tudo por lá.

[Sames Davis]

Mandei para o seu Email: nelsonasousa@yahoo.com.br

[Nelson Sousa]

Sames,

Manda o ppt aí pra gente testar.

[Sames Davis]

Sames,

Porque você não cria um Gráfico no Excel com os dados necessários e depois insere esse Objeto no PowerPoint criando um vínculo com o arquivo. Assim sempre que houver alterações nos dados basta atualizar o vínculo ?

Faz um teste e retorne.

Eu até pensei em fazer isso, mas esse gráfico está com tantos detalhes visuais que iria me dar muito trabalho, acredito que esse código abaixo está quase no fim, só falta esse detalhe ae. O estranho é que vi em outros sites e a sintaxe do comando está correta, não sei o que falta, já marquei a referencia e mesmo assim não funciona.

[Roberto Pires]

Sames,

Porque você não cria um Gráfico no Excel com os dados necessários e depois insere esse Objeto no PowerPoint criando um vínculo com o arquivo. Assim sempre que houver alterações nos dados basta atualizar o vínculo ?

Faz um teste e retorne.

[Sames Davis]

Qual erro?

oGraph.Application.DataSheet.Range("B10").Value = "10" <=== 'O objeto não aceita esta propriedade ou método

[Nelson Sousa]

Qual erro?

[Sames Davis]

O que eu consegui fazer até o momento foi isso:

Dim oPPTApp As PowerPoint.Application
Dim oPPTFile As PowerPoint.Presentation
Dim oPPTShape As PowerPoint.Shape
Dim oGraph As Object

Set oPPTApp = CreateObject("PowerPoint.Application")
oPPTApp.Visible = True
Set oPPTFile = oPPTApp.Presentations.Open(Filename:=sPath & "GraficoDias.ppt")
Set oPPTShape = oPPTFile.Slides(1).Shapes(1)
Set oGraph = oPPTShape.OLEFormat.Object

oGraph.Application.DataSheet.Range("B10").Value = "10"
oGraph.Application.Update
oGraph.Application.Quit

Set oPPTShape = Nothing
Set oGraph = Nothing


Só que está dando erro nessa linha em vermelho.

[Nelson Sousa]

E tem gente que ainda fala mal da Microsoft!!!

Dá uma olhada:

http://support.microsoft.com/kb/222929

[Sames Davis]

Sames,

Os dados do gráfico no PPoint vem de onde?

Dou dois cliques no gráfico do powerpoint e edito o objeto que simula uma janela do excel
mas o gráfico não é vinculado em arquivo do Excel.

[Nelson Sousa]

Sames,

Os dados do gráfico no PPoint vem de onde?

[Sames Davis]

Olá pessoal,

Estou precisando editar os dados de um gráfico que está dentro do PowerPoint via Access.

Atualmente esse procedimento é manual, mas gostaríamos de deixa-lo automático buscando
os dados do Access e editando a base de dados do Excel.

Alguém sabe como faço isso?

Se o gráfico estivesse no Excel eu saberia edita-lo, mas como ele está no PowerPoint eu estou enrolado,
alguém pode dar uma ajuda?

Sames.