Arreglos de elementos

No se bien a que te refieres con "el mismo rango"... , para poner varias
const en un array sería algo así como:

"={1,2,3}"

ahora si te refieres al mismo rango de la forma en que ese 1,2,3 sean de
agregación, tendrías que crear una nueva serie:

ActiveChart.SeriesCollection(1).Values = "={1,2,3}"
ActiveChart.SeriesCollection(2).Values = "={3,2,1}"

te mando dos macros para generar cód con cont... espero que te sirvan y
entiendas el código:

Sub Macro1()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("F4")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "={1.55,2.3,3.3}"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub


Sub Macro2()
Charts.Add
ActiveChart.ChartType = xl3DColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("C3")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "={1,2,3}"
ActiveChart.SeriesCollection(2).Values = "={3,2,1}"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
ActiveWindow.Visible = False
ActiveChart.ChartArea.Select
End Sub


José Luis
Guns And Roses

"Cesar Garcia" escribió en el mensaje
news:

Buenas a todos,

Esta vez mi pregunta es como puedo poner un arreglo de elementos en una
seleccion... me explico

Cuando creo un grafico con el asistente, este me pide un rango de celdas,
pero a veces uno puede poner un valor constante poniendo este valor entre
llaves por ejemplo {3.45} y este valor sera tomado para los datos del
grafico. Lo que yo quiero es poner varios datos fijos para el mismo rango
pero no se como hacerlo algo asi {3.56, 7.8, 7}

Si alguien sabe como se hace pues le estaria muy agradecido que me dijera
como es.

Pd : Si se puede hacer eso, tambien se pueden poner formulas dentro de ese
arreglo???