[Resolvido]Exportar um relatorio com grafico e tabela para o word

Ola, sou iniciante nesse forum e não estou cosneguindo desenvolver uma função para exportar um grafico para um relatorio. Na verdade necessito fazer um relatorio gerencial de numero de chamados, onde nele contem quantas OS tiveram abertas no período, mais o tempo que foi resolvido, alem disso gera graficos e tabelas para um documento no word.

Alguem pode me ajudar ? Não consigo exportar os graficos e tabelas para o word.

Ola seja bem vindo ao fórum;

Se o seu grafico estiver a ser gerado num formulario;

Cole num modulo novo, mude para os nomes corretos e salve;

Public Const wdPasteOLEObject = 0
Public Const wdFloatOverText = 1

Public Function ExportaGrafico()
'By JPaulo ® Maximo Access
Dim wd As Object
Dim frm As Form
Dim ctl As Control
Set frm = Forms!SeuFormGrafico
Set ctl = Forms!SeuFormGrafico.SeuGrafico
frm(ctl.Name).SetFocus
DoCmd.RunCommand acCmdCopy
With CreateObject("Word.Application")
.Visible = True
.Documents.Add
.Selection.PasteSpecial False, wdPasteOLEObject, wdFloatOverText, False
End With
End Function

Num botão, ao pressionar chame a função:

Private Sub SeuBotão_Click()
Call ExportaGrafico
End Sub


Para salvar dados no Word, veja este exemplo do Professor Osmar:

http://dl.dropboxusercontent.com/u/771097/AccessWordI.rar

Meus gráficos estão em relatórios, mesmo assim passei para formulário e fiz os procedimentos que me passoui, mas da erros na função.

Amigão em todos os testes que fiz, funfa com nota 10, se dá erro é porque você fez algo errado.

Se você tem os Graficos em Relatórios, a melhor solução será você exportar para Snapshot, ele leva toda a formatação dos seus relatórios.

Num módulo novo cole este código e salve com o nome que você quiser:

Public Function ExportaSnapshot()
Dim strNomeRelatorio As String
Dim TituloRelatorio As String
Dim NomeRelatorio As Report
Set NomeRelatorio = Screen.ActiveReport
strNomeRelatorio = NomeRelatorio.Name
TituloRelatorio = NomeRelatorio.Caption
DoCmd.SetWarnings False
DoCmd.OutputTo acReport, strNomeRelatorio, "SnapshotFormat(*.snp)", TituloRelatorio & ".snp", True, ""
DoCmd.SetWarnings True
MsgBox "Exportação concluída..."
End Function

No evento ao pressionar de um botão, cole este e mude apenas o que está grifado a Bold;

Private Sub SeuBotaoExportar_Click()
Dim stDocName As String
stDocName = "NomeDoSeuRelatorio"
DoCmd.OpenReport stDocName, acPreview
Call ExportaSnapshot
End Sub

JPaulo, eu necessito que seja enviado esses graficos e as tabelas para um documento no word para que o documento seja editavel. Bom refiz os procedimentos para exportação do gráfico para o word e continua dando erro. Teria um exemplo para eu baixar e ver ?

Gostaria de agradecer muito por responder. E sinceramente esse forum é o maximo mesmo. Para nós que usamos essa FErramenta fantastica que é o access estavamos precisando de um forum assim. Parabens

Coloque o seu banco aqui, para vermos esses erros;

http://www.speedyshare.com/

JPaulo, em anexo o documento que preciso gerar com esse banco de dados

Vou tenter fazer-lhe isso depois retorno.

O exemplo que lhe passei funfa, mas pelo que vi você não conseguiu porque o grafico no formulario tem de estar com a propriedade Ativado=Sim

Amigão bom dia;
Como o tempo não abunda, fiz dois formularios para lhe mostrar o caminho das pedras, você depois pode fazer tudo num só.
Atenção:
O documento Word tem de estar sempre junto do Banco.
O frmExportaGrafico, exporta o Grafico para o 2.1 Resumo, Grafico Criticidade.
O frmExportaDados, exporta os dados desse form para 4.1.HAMADO 1171.
No word;
Nas zonas onde queremos os dados, você tem de mesclar no word.
Basta posicionar o cursor no lugar onde quer que receba o Valor, ir a Inserir, Marcador, vai abrir uma janela de marcadores e ae você
dá o nome ao marcador onde está o cursor, tem de salvar sempre.
Os marcadores só serão colocados uma unica vez e valem para sempre nesse doc.

Link Removido por razões confidenciais.

JPaulo, primeiramente gostaria de te agradecer muito, ficou ótimo segundo dizer que você é o cara. Estava a um tempão tentando desenvolver essa solução. Um grande abraço e obrigado por manter esse forum.


Valeu mesmo, abraços. Parabens pelo forum

Obrigado pelo retorno amigo.

Links removidos.

Se precisar de novo dê um grito aqui.

Valeu mesmo