Ayuda con el objeto array que no entiendo muy bien

[NASTRAN&PATRAN]

Buenos dias a todos, necesito crear un array con un número de componentes no conocido a priori. No se la manera de hacerlo puesto que para crear un array utilizo la función array

kk=array("1","2","3")

si en este momento deseara añadir elementos al objeto array creado ¿como se haría?

La razón de esta pregunta es la creación mediante codigo de un grupo de objetos a agrupar mediante VBA

Ruego si no se ha entendido la pregunta se me haga saber para ampliar la explicació con ejemplos

[Insomnia]

Hola

No se si es lo que necesitas pero para trabajar con arrays primero tienes que declararlo:

Código:

Dim num(10) as integer

Con eso declaras un array numérico de 10 posiciones. Para referirte o llenar una posición del array:

Código:

num(3)=44

Con esto le estas diciendo que guarde el número 44 en la posición 3 del array.

Espero que te resulte útil.

--Saludos--

[NASTRAN&PATRAN]

No me refiero a las matrices si no al objeto array que se crea al utilizar la funcion array. No se si es lo mismo pero el grabador de macros de excel lo utiliza para hacer todo tipo de listas (como un monton de hojas)

Corregidme si me equivoco por favor

[luciano]

Hola, creo que lo mejor es que des mas detalles de lo que queres hacer, por que me parece que no necesitas usar la funcion Array, solo con usar un array dinamico podes hacerlo, ya que si no conocés la cantidad de elementos que va atener el array, lo podes hacer con un array dinamico, y los array pueden contener ademas de los tipos de datos comunes como un entero un string etc..., controles y demas cosas, por ejemplo:

Código:

Private Sub Form_Load()
Dim ArrayTextBox() As TextBox

ReDim ArrayTextBox(2)

Set ArrayTextBox(0) = Text1
Set ArrayTextBox(1) = Text2
Set ArrayTextBox(2) = Text3

Call MostrarTexto(ArrayTextBox)

End Sub



Sub MostrarTexto(ElArray() As TextBox)

Dim i As Integer

For i = lbound(ElArray) To UBound(ElArray)

MsgBox ElArray(i)

Next


End Sub

--------------------------------

[NASTRAN&PATRAN]

He grabado una macro en excel donde genero 4 graficos los selecciono y luego los agrupo

Sub Macro1()

Range("B4:C22").Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Datos f06 (2)").Range("B4:C22")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Datos f06 (2)"
ActiveSheet.Shapes("Gráfico 1").Duplicate.Select
ActiveSheet.Shapes("Gráfico 1").IncrementLeft 407.25
ActiveSheet.Shapes("Gráfico 1").IncrementTop -9#
ActiveWindow.Visible = False
ActiveSheet.ChartObjects("Gráfico 2").Activate
Windows("ProcesadoEnvolventesTot_V_2_0.xls").Small Scroll ToRight:=-4
Windows("ProcesadoEnvolventesTot_V_2_0.xls").Large Scroll ToRight:=-1
ActiveWindow.Visible = False
Windows("ProcesadoEnvolventesTot_V_2_0.xls").Activ ate
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("ProcesadoEnvolventesTot_V_2_0.xls").Activ ate
ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 2")).Select
Selection.ShapeRange.Duplicate.Select
Selection.ShapeRange.IncrementLeft -6.75
Selection.ShapeRange.IncrementTop 227.25
Range("F7").Select
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("ProcesadoEnvolventesTot_V_2_0.xls").Activ ate
ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 4")).Select
ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 4", "Chart 2")).Select
ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 4", "Chart 2", "Chart 3")).Select
Selection.ShapeRange.Group.Select
Range("G7").Select
End Sub

Si en lugar de seleccionar 4 graficos deseara seleccionar n no se como podría hacerlo

[GeoAvila]

en las faq's hay un post explicando los array's...

nos vemos..