Da array a shape

[miko]

Buonasera,
ho inserito in un foglio excel degli shapes, che excel chiama forme.
è possibile inserire gli item di un array direttamente in una serie di shapes senza iterazione come avviene per un range di celle?
per un range di celle uso il seguente codice

Codice: Seleziona tutto

Array = range("A" & NRow).resize(5,1).value

range("M" & NRow).resize(5,1).value = Array

per un range di shapes è possibile scrivere qualcosa di simile

Codice: Seleziona tutto

Array = range("A" & NRow).resize(5,1).value

range("shapes").Text = Array

se si come deve essere strutturata la macro?

saluti grazie

[Anthony47]

La gestione degli oggetti e' alquanto diversa dalla gestione dei dati...
La cosa piu' vicina a quello che dici e' del tipo:

Codice: Seleziona tutto

ActiveSheet.Shapes.Range(Array("Picture 4", "Picture 6", "Picture 2")).Select
Selection.Copy                              'seleziona un tot di immagini e copia
Range("Z1").Select                          'Seleziona la destinazione
ActiveSheet.Paste                           'Incolla le immagini
ActiveWindow.RangeSelection.Select          'Disseleziona le immagini


Copiera' le immagini a partire dalla posizione prescelta mantenendo il posizionamento relativo indipendentemente dalla sequenza con cui sono indirizzate