Colorare cartina del mondo con 2 colori

[mateo83]

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 :-)

[wallace&gromit]

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.

[wallace&gromit]

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).

[ricky53]

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.

[mateo83]

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]

E se usassi power point per le domande e qualcos'altro per la cartina?
C'è qualcosa di semplice?

[wallace&gromit]

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.

[ricky53]

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?

[Anthony47]

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:

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:

caricare immagini
Aggiungo una cosa ovvia: piu' "santa" la pazienza, migliore il risultato!

Il codice delle macro e' quello presentato prima.

Ciao.

[wallace&gromit]

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?