Mover un grafico

25/02/2009 - 17:43 por Avergaston | Informe spam

Hola a todos.

Tengo 5 graficos en la Hoja1 y quiero moverlos a las Hoja2.

No tengo problemas si es uno solo, pero no me da error al ser mas de uno.

Les copio el codigo que uso para mover un solo grafico:
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.Location Where:=xlLocationAsObject, Name:="hoja2"
ActiveWindow.Visible = False

Hasta aqui todo bien.

Como hago para mover 5 graficos de una hoja a otra ?????

Gracias.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Héctor Miguel

25/02/2009 - 19:55 | Informe spam

hola (...), ?????

Tengo 5 graficos en la Hoja1 y quiero moverlos a las Hoja2.
No tengo problemas si es uno solo, pero no me da error al ser mas de uno.
Les copio el codigo que uso para mover un solo grafico:
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.Location Where:=xlLocationAsObject, Name:="hoja2"
ActiveWindow.Visible = False
Hasta aqui todo bien.
Como hago para mover 5 graficos de una hoja a otra ?????

prueba con un bucle del tipo "for x = 1 to y... next" SIN cambiar el indice (1) para los objetos (p.e.)

Sub Mover_graficos()
Dim n As Byte
With ActiveSheet.ChartObjects
For n = 1 To .Count
.Item(1).Chart.Location xlLocationAsObject, "hoja2"
Next
End With
End Sub

saludos,
hector.

Responder a este mensaje

#2 Avergaston

26/02/2009 - 13:41 | Informe spam

Es exactamente lo que necesitaba.

Muchas gracias.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida