Mover una gráfico

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.

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.