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!

Preguntas similare

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.
Respuesta 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.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida