Jump to content

PEGAR GRÁFICA VINCULADA DE EXCEL A WORD


Recommended Posts

Hola,

No se si se necesiten macros.

Lo que se es que se pueden copiar / pegar rangos, tablas, graficos, desde Excel a Word y Power Point, como vínculos, esto permite que los objetos pegados en las aplicaciones se actualicen con con cambios realizados en el origen.

Debe usar las opciones de pegado especial que le ofrece el WORD.

 

 

imagen.png

Edited by GabrielRaigosa
Link to post
Share on other sites

Hola! Gracias por tu respuesta, pero lo que busco es que cuando pulse un botón además de sustituir el texto en el archivo word, ya predefinido en la macro en el excel, copie solo la gráfica de una hoja que le indiquemos y la pegue en un espacio determinado del archivo word...

Tengo el siguiente código pero no me funciona.. (no está incluido en el excel anterior)

Sheet("grafica1").Shapes(1).CopyPicture

 

Paragraphs(.Paragraphs.Count).Range.Start).Select

Selection.Collapse Direction:=wdCollapseEnd
Paste

Gracias igualmente por tu ayuda! Saludos,

Link to post
Share on other sites
a


  • Crear macros Excel

  • Posts

    • perdon ahi  esta el id  o el numero unico de cada rango lo tomo desde la celda del combobox que tiene nombre en el userform "nivel y pro" muestra ingreso.xlsm   puedo ingresar datos como esta el archivo pero siempre me agrega una linea nueva lo que quiero hacer es que cuando ponga el campo del id  que tomo en "NIVEL Y PRO" EN USER FORM .  EN PLANILLA INGRESO: NIVEL  si el dato esta  me arroje los datos que alla asi puedo completar o modificar
    • Quita que me tiznas, le dijo la sartén al cazo...
    • Lo primero que tienes que hacer es subir tu archivo de ejemplo, y explicar cómo funciona (¿dónde iría ese ID?) Así es imposible ayudarte
    • hola... prueba con: if range("h7") = "hangar" then     rows(7).copy destination:=sheets("Arrastre_Hangar").range("a" & rows.count),end(xlup).offset(1, 0) end if   si la celda h7 es hangar.. que copie toda la fila 7 y la lleve a la hoja.. "arrantre" y la ponga en la siguiente a la ultima escrita de la columna a
    • Que tal a todos ante todos y muchas gracias por el tiempo dispensado. tengo un formulario creado en userform por mi  para ingresar datos en una planilla.   ahora lo que estoy tratando de lograr y no puedo es lo siguiente : tengo un combobox con el nombre NIVEL Y PRO el cual al situarte en el  te da lo que seria el id de identificador de datos  me gustaría que al colocar el id  me trajera  automáticamente  el resto de los datos a la planilla    . puse  solo un botón de ingreso por que me parece mas simple  y fácil  la idea es que si meto un dato nuevo lo ingresa y si traigo un dato que ya existe   lo modifique en la misma linea   dejo el código que utiliza para que se den una idea  de como lo realice y me puedan orientar gracias  también  tuve que poner mas espacio blancos en el id  por futuras referencia nuevas a agregar pero me gustaría saber cual es la formula para que en el combobox no se muestre  los espacios en blanco  desde ya muchas gracias Private Sub CommandButton1_Click() Sheets("ingreso").Select ActiveSheet.Range("a3").Select Selection.EntireRow.Insert Range("a3") = TextBox1 Range("e3") = ComboBox7 Range("f3") = TextBox4   obviamente  son muchos codigos  no los pongo todos  y luego     ComboBox7 = Empty  TextBox4 = Empty  TextBox5 = Empty no se si me explicado bien espero que alguien pueda ayudarme o guiarme desde ya muchas gracias    
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy