none
Macros para pasar graficos de excel a word RRS feed

  • Pregunta

  • Estimada comunidad,Con el codigo que realize puedo copiar graficos, tablas y texto de un excel a un word(El word se crea de forma automatica).

    Sin embargo el reto es hacer que todos las graficos sean copiados solo en un documento word y no cada uno por pestaña de excel que exista..

    Adjunto el codigo de mi macros, alguna pista como hacerlo o extracto de código, gracias desde ya!!!!

    Sub Copiar_a_Word()

    'para todas las hojas del libro...
    For i = 1 To Sheets.Count
      'seleccionamos la hoja que corresponda
       Sheets(i).Select
      'escribimos lo que queremos
       ActiveCell.Range("A1:G23").Select
    'continuamos con la siguiente hoja
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    Selection.Copy

    With WordApp
    'Con este codigo se abrira Word y se creara un documento nuevo'
    .Visible = True
    .Activate
    .Documents.Add
    End With

    WordApp.Selection.PasteSpecial link:=True
    'Se pegara en el documento lo seleccionado en la hoja de calculo'
    WordApp.Selection.Sections(1).Footers(1).Range.Text = "Pie de Página"
    Set WordApp = Nothing

    Next




    End Sub

    lunes, 12 de junio de 2017 19:16