Este fórum está sendo desativado

[wesleyribeiro123]

Galera
Boa tarde,

Possuo 10 Gráficos de umas disciplinas cursadas e gostaria de carrega-los em uma página de Word para criar um EBook futuro.
A ideias é bem simples, mas percebi que a execução não parece ser tão simples assim
No anexo montei o modelinho simples para exemplificar como estão dispostos os gráficos em minha planilha!
O arquivo Word não existe, ou seja, o Excel está criando um novo arquivo Word e colando as informações que desejo (tudo isto já está funcionando, preciso apenas levar os Gráficos).
Não me preocupo com posição deste Gráfico no Word, apenas preciso que saia do Excel e chegue no Word, rsrs

Ahhhh, lembrando, utilizei o Modelo que a Microsoft explica como fazer, porém ao tentar ajustar para minha realidade não funcionou...
Se quiser ver, o link é este
https://msdn.microsoft.com/pt-br/vba/e ... -document


Obrigado pela atenção de todos!!!
Forte Abraço..

[Basole]

Veja se ajuda

Código: Selecionar todos

Sub Exportar_Grafico_Word()
    Dim WordApp As Object
    Dim shp As Shape
    Dim i!
    
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    WordApp.Documents.Add
    i = 1
    
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoChart Then
            With ActiveSheet
                .ChartObjects(i).Select
                .ChartObjects(1).Copy
                WordApp.Selection.Paste
                i = i + 1
            End With
        End If
        
    Next
    
End Sub

[wesleyribeiro123]

Basole
Bom dia,

Muito obrigado, serviu perfeitamente...
Solução extremamente mais simples que o apresentado pela Microsoft, e 100% funcional!!!

Obrigado.