come modificare questo listato per più fogli di excel

[A.MaurizioPartecipante A.Maurizio]

Ciao a tutti mi chiamo A.Maurizio

E il mio problema e questo :

Ho visto su questo forum che e stato trattato l'argomento su come inserire un immagine copiato da file in vba.

E il suo listato era questo :

Certo non si può dire che pecchiate di prolissità! 🙂  Supponiamo di avere un esempio con un'immagine puntata nella cella B3 e del testo nella cella B5.  Il codice seguente copia l'immagine e la cella dal foglio 1 al foglio 2.  Worksheets("Foglio2").Select Worksheets("Foglio1").Shapes("Picture 1").Copy  ActiveSheet.Paste Destination:=Worksheets("Foglio2").Range("B3")  Worksheets("Foglio1").Range("B5").Copy  ActiveSheet.Paste Destination:=Worksheets("Foglio2").Range("B5") Ora la mia domanda e questa . Visto che come listato e molto bello. Però se io avessi la necessità di inserire la stessa immagine su x fogli di excel. Come si potrebbe modificare questo listato. Tutto qui. Grazie per tutto l'aiuto che volete darmi in merito. Saluti da A.Maurizio

[patelModeratore patel Karma: 51 pts]

Ciao Maurizio, per inserire il codice lo devi selezionare è cliccare sul pulsante <>, altrimenti come puoi vedere cambiano i caratteri, vedi virgolette.

Prova questo esempio

Sub b()
 Dim mySheets As Sheets
 Set mySheets = Worksheets(Array("Foglio2", "Foglio3"))
      For Each sh In mySheets
        Worksheets("Foglio1").Shapes("Immagine 1").Copy
        sh.Cells(1, 1).PasteSpecial
      Next
 End Sub

[A.MaurizioPartecipante A.Maurizio]

Ciao Patel felice di Sentirti.
Ascolta per quanto riguarda la mia richiesta , ti chiedo scusa per la modalità che ne è venuta fuori ; ma quando lo scritta ero con il mio Smart Phone , per qui vedevo poco ho nulla di quello che normalmente sono abituato a fare stando davanti al mio computer.

Per quanto riguarda il Tuo Listato invece : Come sempre non fa una piega e bellissimo.
Però per automatizzare il tutto e non dover tutte le volte agire sell'Array.

Se io scrivessi una cosa di questo genere

 For mySheets = 1 to 100
mySheets=mySheets + 1

Secondo te potrebbe sostituire il Concetto di Array ?
Attendo tue nuove istruzioni in merito Grazie

[A.MaurizioPartecipante A.Maurizio]

Ciao Patel Per Quanto riguarda la tua osservazione e giusta come sempre , ma solo in parte in quanto ; Quando ho scritto questo posto ero con il mio smart phone per qui si capiva e non quello che dovevo fare.
Per il resto Il tuo Listato non fa una piega come sempre ed e molto bello ed interessante da studiare.
Però : Se io volessi sveltire un pochino le cose senza stare li sempre ad agire sugli (Array)
Per qui Se io scrivessi una cosa di questo genere :

For mySheets = 1 to 100
mySheets=mySheets + 1

Potrei risolvere anche questo problema; Ho come sempre faccio un buco nell'acqua.
Attendo tue istruzioni in merito Ciao e Grazie

[patelModeratore patel Karma: 51 pts]

meglio questa allora

Sub c()
For n = 2 To Sheets.Count
Worksheets("Foglio1").Shapes("Immagine 1").Copy
Sheets(n).Cells(1, 1).PasteSpecial
Next
End Sub

[A.MaurizioPartecipante A.Maurizio]

 No Patel
non va bene neppure in questo modo in quanto se il dalla base dell'applicazione di Excel
Che normalmente dispone dei classici tre fogli apro un quarto foglio .
Su di esso non compare nulla .
Mentre sul foglio 1/Foglio3 si; Invece io vorrei trovare il sistema di aprire il foglio 4/5/6 ecc...!

e tale immagine dovrebbe indirizzarsi anche su di loro tutto qui.

[A.MaurizioPartecipante A.Maurizio]

Ciao Patel Scusami non tenere più presente il mio ultimo Post in quanto mi sono accorto solo adesso che continuava a darmi errore in questa Posizione :

Worksheets("Foglio1").Shapes("Rettangolo 1").Copy

Ma semplicemente perché tu avevi scritto (Foglio2) e non (Foglio1).
Apportata questa modifica Ora e tutto OK.
Grazie Infinite e scusami per la Gaff.

Buon Fine Settimana

[Autore]

Articoli