Si, antiche versioni di Excel (diciamo 1995?) comprendevano anche le mappe delle principali aree geografiche piu', nella versione Italiana, l' Italia.
Un suggerimento do-it-yourself puo' essere questo:
-inserisci in excel una mappa dell' Italia con i confini delle regioni
-"a mano libera" seguendo i contorni sulla mappa disegni una dopo l' altra le N regioni; puo' essere utile aumentare lo zoom per ridurre le imperfezioni della mano tremula.
-ogni forma la chiami col nome della rispettiva regione
-poi potrai colorare ognuna delle regioni tramite una macro, con istruzioni del tipo
- Codice: Seleziona tutto
ActiveSheet.Shapes("Piemonte").Fill.ForeColor.RGB = RGB(255, 255, 100) '<<Modifica l' rgb a piacere
Suggerisco anche di "raggruppare" in un unico disegno chiamato Italia tutte le forme (dopo aver cancellato il disegno iniziale dell' Italia), una volta disegnate, in modo da mantenerne la posizione e la conformazione complessiva.
In questo caso non puoi colorarle come scritto prima ma dovrai farlo usando la proprieta' GroupItems, ad esempio:
- Codice: Seleziona tutto
ActiveSheet.Shapes("Italia").GroupItems(1).Fill.ForeColor.RGB = RGB(255, 0, 0)
Purtroppo non ho trovato un metodo per indirizzare le forme col nome (es Piemonte) invece che con l' Index numerico, quindi sara' necessario preparare una tabella con gli incroci tra Nome e Indice.
In alternativa:
-"sgruppi" le forme prima di lavorarci sopra, ad esempio
- Codice: Seleziona tutto
ActiveSheet.Shapes("Italia").Select
Selection.ShapeRange.Ungroup
Cosi' puoi indirizzare le singole forme col loro "nome", come detto sopra.
Quando hai finito le raggruppi nuovamente, ad esempio
- Codice: Seleziona tutto
ActiveSheet.Shapes("Piemonte").Select
Selection.ShapeRange.Regroup.Name = "Italia"
Spero che sia di qualche utilita'
Ciao