Nel mio foglio di lavoro ho vari fogli (non sempre di numero preordinato) ma con nomi fissi.
In alcuni, all'interno del nome c'è la stringa "PA" (01_(PA), 02_(PA)....) ed in altri la stringa "BE" (15_(BE), 128_(BE) ....)
Ognuno di questi fogli contiene un grafico (oltre a tabella di dati).
Vorrei creare una macro che mi stampasse tutti i grafici presenti sui fogli. Per fare questo ho provato col registratore di macro che mi ha dato questo codice:
- Codice: Seleziona tutto
ActiveSheet.ChartObjects("Chart 21").Activate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
che avrei voluto inserire in questo ciclo:
- Codice: Seleziona tutto
For I = 1 To ThisWorkbook.Worksheets.Count
If InStr(Sheets(I).Name, "PA") <> 0 or InStr(Sheets(I).Name, "BE") <> 0 Then
Sheets(I).ChartObjects("Chart 21").Activate
ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,2,,,TRUE,,FALSE)"
End If
Next I
Il problema è che non tutti i grafici si chiamano "Chart 21" .....
Ho provato con
- Codice: Seleziona tutto
nomegraf = Sheets(I).ChartObjects.Parent.Name
ma ottengo il nome del foglio e non del grafico .....
Senza "parent" mi da errore ....
C'è un modo per sapere il nome di un grafico così da passarlo come parametro per la stampa ?
Grazie