none
INSERIR PLANILHA NO WORD

    Pergunta

  • Pessoal,

    Estou fazendo manutenção em um sistema VB6 que gera planilha automática, agora implementei a geração de alguns gráficos. Até aí tudo ok !!! porém, agora preciso inserir estes gráficos no Word.

    Preciso de um help...

    quinta-feira, 21 de setembro de 2006 11:58

Respostas

  • olá Ruivão,

    Gere os gráficos como figuras a partir do excel e cole no word.

    Segue codigo para gerar o gif do gráfico:

    'define o grafico que vai usar, dimensionando-o.
        Set CurrentChart = Sheets("Gráficos").ChartObjects(ChartNum).Chart
        CurrentChart.Parent.Width = 400
        CurrentChart.Parent.Height = 200

    ' salva o grafico como um gif
        Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
        CurrentChart.Export FileName:=Fname, FilterName:="GIF"

    ' e mostra em uma image
        Image1.Picture = LoadPicture(Fname)

    Espero ter ajudado!´

    []'s

    sexta-feira, 29 de setembro de 2006 05:12

Todas as Respostas

  • olá Ruivão,

    Gere os gráficos como figuras a partir do excel e cole no word.

    Segue codigo para gerar o gif do gráfico:

    'define o grafico que vai usar, dimensionando-o.
        Set CurrentChart = Sheets("Gráficos").ChartObjects(ChartNum).Chart
        CurrentChart.Parent.Width = 400
        CurrentChart.Parent.Height = 200

    ' salva o grafico como um gif
        Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
        CurrentChart.Export FileName:=Fname, FilterName:="GIF"

    ' e mostra em uma image
        Image1.Picture = LoadPicture(Fname)

    Espero ter ajudado!´

    []'s

    sexta-feira, 29 de setembro de 2006 05:12
  • Dan,

    Obrigado pela ajuda...

    sexta-feira, 29 de setembro de 2006 11:38