Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Mover una gráfico

23/07/2004 - 23:04 por marc_ | Informe spam
Ayuda Hacer una pregunta
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!
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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.

Preguntas similares

 

Busqueda sugerida :