Mover una gráfico

23/07/2004 - 23:04 por marc_ | Informe spam

Como se haria para mover una gràfica generada desde VB en una hoja de
Excel. De su posición predefinida. He intentado grabar un macro y ver lo
que esta haciendo, y en la macro me hace

ActiveSheet.Shapes("Gráfico ??").IncrementLeft 10
ActiveSheet.Shapes("Gráfico ??").IncrementTop 10

como podria, durante la ejecución conocer el valor de ? en la cadena
"Gráfico ?" del gráfico que acabo de generar?

Gracias!

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

24/07/2004 - 05:28 | Informe spam

hola, Marc1s !

... mover una grafica generada desde VB en una hoja ... de su posicion predefinida [...]

al insertar un grafico en una hoja de calculo, de manera 'predeterminada' se inserta 'ocupando'...
- la mitad del ancho y alto de la ventana activa [o el 'panel' activo, si la ventana esta 'dividida']
suponiendo 'tomas' los datos del rango 'A1:B13' [incluyendo los titulos/rotulos de los ejes]
y deseas que el [nuevo] grafico sea 'incrustado' en el rango 'C1:H20' de la hoja activa...
en un modulo de codigo 'normal' ==Sub Insertar_Grafico()
Dim NuevoGrafico As ChartObject
Set NuevoGrafico = _
ActiveSheet.ChartObjects.Add( _
Range("c1").Left, _
Range("c1").Top, _
Range("c1:h20").Width, _
Range("c1:h20").Height)
NuevoGrafico.Chart.ChartWizard _
Source:=ActiveSheet.Range("a1:b13"), _
CategoryLabels:=1, _
SeriesLabels:=1, _
Gallery:=xlLine, _
HasLegend:=False
Set NuevoGrafico = Nothing
End Sub

saludos,
hector.

Responder a este mensaje

#2 marc_

24/07/2004 - 12:42 | Informe spam

Problema solucionado! Grácias!

Héctor Miguel wrote:

hola, Marc1s !

> ... mover una grafica generada desde VB en una hoja ... de su posicion

predefinida [...]

al insertar un grafico en una hoja de calculo, de manera 'predeterminada' se

inserta 'ocupando'...

- la mitad del ancho y alto de la ventana activa [o el 'panel' activo, si la

ventana esta 'dividida']

suponiendo 'tomas' los datos del rango 'A1:B13' [incluyendo los

titulos/rotulos de los ejes]

y deseas que el [nuevo] grafico sea 'incrustado' en el rango 'C1:H20' de la

hoja activa...

en un modulo de codigo 'normal' ==> Sub Insertar_Grafico()
Dim NuevoGrafico As ChartObject
Set NuevoGrafico = _
ActiveSheet.ChartObjects.Add( _
Range("c1").Left, _
Range("c1").Top, _
Range("c1:h20").Width, _
Range("c1:h20").Height)
NuevoGrafico.Chart.ChartWizard _
Source:=ActiveSheet.Range("a1:b13"), _
CategoryLabels:=1, _
SeriesLabels:=1, _
Gallery:=xlLine, _
HasLegend:=False
Set NuevoGrafico = Nothing
End Sub

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida