Condividi:        

Colorare cartina del mondo con 2 colori

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Colorare cartina del mondo con 2 colori

Postdi mateo83 » 21/04/16 10:40

Ciao a tutti,
sto preparando un gioco con power point di office 2013 dove le 2 squadre dovranno rispondere a delle domande (16 in tutto) e se rispondono correttamente vincono una parte della cartina che si colorerà del loro colore.
La domanda è questa: come faccio a creare questa immagine divisa in 16 parti in cui posso decidere di quale colore riempirla?
Spero di essere stato chiaro, grazie a tutti :-)
mateo83
Newbie
 
Post: 3
Iscritto il: 21/04/16 10:36

Sponsor
 

Re: Colorare cartina del mondo con 2 colori

Postdi wallace&gromit » 21/04/16 14:22

ciao mateo, benvenuto nel forum.
Mi sto proprio cimentando con le macro di powerpoint, sono po' meno versatili di quelle di excel ma si possono fare comunque belle cose.
Io le sto usando nell'ambito di filmati, quindi quello che chiedi è un po' diverso, ma penso che riusciamo a fare qualcosa.
Immagino che si possa fare una macro che apre una userform nella quale decidi il colore da dare all'oggetto.
Ti andrebbe un approccio di questo tipo?
L'alternativa più semplice (ma esteticamente meno valida) sarebbe quella di fare in modo che ad ogni clic l'oggetto va sullo sfondo, crei 3 oggetti di colore diverso (neutrale, colore1, colore2) e cliccando cicli attraverso queste possibilità. Questo penso si possa fare senza macro.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Colorare cartina del mondo con 2 colori

Postdi wallace&gromit » 21/04/16 16:35

Intanto il mio miglior risultato è qui:
http://www.filedropper.com/coloraoggetti
con il pulsante "inizia" si attiva la userform.
Poi si seleziona un oggetto e si sceglie il colore desiderato.
la macro per colorare è questa:
Codice: Seleziona tutto
Public Sub ChangeColor(Qcolore)
If oggetto = 0 Then
MsgBox "seleziona un oggetto da colorare"
Exit Sub
End If
    With Slide1.Shapes(oggetto).Fill.ForeColor
        Select Case Qcolore
            Case 1
                .RGB = vbRed
            Case 2
                .RGB = vbBlue
            Case Else
                .RGB = vbWhite
        End Select
    End With
End Sub

che riceve il numero di colore dalla userform.
L'anello debole è che ogni forma deve avere la propria macro con la quale passo il numero di oggetto corrispondente, per esempio per l'oggetto 1:
Codice: Seleziona tutto
Public Sub Cambia1()
oggetto = 1
End Sub

più elegante sarebbe avere una sola macro per tutti, che capisca su quale oggetto ho fatto clic e ne passa il relativo indice alla macro colorchange (però non vedo come fare).
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Colorare cartina del mondo con 2 colori

Postdi ricky53 » 21/04/16 16:45

Ciao,
tempo fa (...molto. Era quando realizzavo dei QUIZ geografici con excel per un forum) ho avuto la stessa necessità l'ho risolta ma ... a ricordarlo!!!

Cerco il file e ci risentiamo.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Colorare cartina del mondo con 2 colori

Postdi mateo83 » 21/04/16 19:21

Grazie delle risposte, le macro non le ho mai usate e mi trovo molto in difficoltà
Ci studio un po' domani per capirci qualcosa
Grazie mille del vostro tempo
mateo83
Newbie
 
Post: 3
Iscritto il: 21/04/16 10:36

Re: Colorare cartina del mondo con 2 colori

Postdi mateo83 » 21/04/16 19:32

E se usassi power point per le domande e qualcos'altro per la cartina?
C'è qualcosa di semplice?
mateo83
Newbie
 
Post: 3
Iscritto il: 21/04/16 10:36

Re: Colorare cartina del mondo con 2 colori

Postdi wallace&gromit » 21/04/16 20:04

In excel potrei immaginarmi qualcosa in cui il colore degli oggetti di un grafico dipende dai valori di determinate celle, ma anche questa soluzione non sarebbe proprio "clic and go".
Comunque se guardi la via tracciata nel file power point che ho abbozzato penso che non siamo distanti da trovare una soluzione.
Se hai già qualcosa di tuo puoi postare quello e vediamo di inserirvi le macro.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Colorare cartina del mondo con 2 colori

Postdi ricky53 » 22/04/16 00:06

Ciao,
leggi quanto ti ha scritto W&G.

Se riesci a reperire in rete le nazioni della tua cartine che vanno assegnate allora possiamo mettere in piedi un 2marchingengo" con Excel che a risposta esatta vada a colorare la nazione assegnata e ...
Ma prima si devono avere le 16 parti da assegnare.
Puoi reperirle?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Colorare cartina del mondo con 2 colori

Postdi Anthony47 » 23/04/16 01:20

Due anni fa ti avrei detto di provare MapPoint di Microsoft; peccato che dalla fine del 2014 non sia piu' disponibile.
Una soluzione "casareccia" era stata proposta qui:
viewtopic.php?p=567782#p513268
Prevede che con santa pazienza "a mano libera" seguendo i contorni su una mappa di sfondo ti disegni una dopo l' altra le N regioni.

Una versione piu' semplificata di questa ipotesi potrebbe portare a questo risultato:
Immagine
hosting immagini

Per ottenere questo risultato:
-Ho inserito la mappa a riempire il foglio Excel
-sopra ogni area "conquistabile" ho inserito una forma circolare, senza bordo.
-ho dato un nome mnemonico a ognuna di queste forme; io le ho chiamate "CH", "ITA" e FR
-poi con questo codice rendo tutte le forme invisibili
Codice: Seleziona tutto
Sub invisibili()
    ActiveSheet.Shapes.Range(Array("ITA", "FR", "CH")).Select   'Indicarle tutte
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 1
        .Solid
    End With
End Sub

In realta' non le metto "Invisibili" ma solo "trasparenti"

Poi coloro e rendo visibili le forme che mi interessano con questa subroutine:
Codice: Seleziona tutto
Sub ForManage(ByVal NomeF As String, ByVal Mycol As Long, ByVal myTrasp As Single)
ActiveSheet.Shapes.Range(NomeF).Select   'Indicare il nome
If Mycol = 1 Then
    RRGGBB = RGB(255, 0, 0)         'Colore 1=Rosso
Else
    RRGGBB = RGB(0, 255, 0)         'colore 0=Verde
End If
If myTrasp > 0.95 Then myTrasp = 1
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RRGGBB
        .Transparency = myTrasp
        .Solid
    End With
Range("A1").Select
End Sub

Questa subroutine viene infine chiamata per assegnare alla forma prescelta il colore prescelto (0 /1) e impostarla visibile riducendo la trasparenza da 1 (100%) a 0.33 (33%); il risultato sull'immagine precedente e' ottenuta con questo codice:
Codice: Seleziona tutto
Sub pippo()
Call ForManage("ITA", 1, 0.33)
Call ForManage("CH", 0, 0.33)
End Sub


La FR invece e' ancora invisibile (volutamente l'ho selezionata per renderne visibile la presenza sulla mappa).

Questa soluzione in pratica non richiede la presenza di una forma col contorno dell'area che si vuole marcare, in quanto viene usata una forma "Ovale" facile da creare, che poi va copiata su ogni area interessata e rinominata in modo mnemonico.

Invece col primo sistema, grazie alla "santa pazienza", si possono ottenere risultati cosi:
Immagine
caricare immagini
Aggiungo una cosa ovvia: piu' "santa" la pazienza, migliore il risultato!

Il codice delle macro e' quello presentato prima.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Colorare cartina del mondo con 2 colori

Postdi wallace&gromit » 24/04/16 17:58

tornando a power point faccio notare che si trova il "lavoro da certosino" già fatto da altri,
una carta del mondo può essere scaricata gratuitamente qui:
http://www.presentationmagazine.com/world-maps-vector-editable-507.htm
e una dell'europa qui:
http://www.presentationmagazine.com/uk-and-europe-powerpoint-maps-6658.htm

A queste si può applicare la macro che avevo presentato sopra.
Posso anche fare qualcosa io, ma solo dopo avere sentito esattamente cosa serve, Mateo, ci sei ancora?
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21


Torna a Applicazioni Office Windows


Topic correlati a "Colorare cartina del mondo con 2 colori":


Chi c’è in linea

Visitano il forum: Nessuno e 51 ospiti