VBA codice per videopoker

[allegria]

Egregi/gentili partecipanti al forum,

ho una domanda importantissima da rivolgerVi.

Dovrei modificare questo codice:

Sub Procedura_spin()
 
' :: Macro Designed, scripted, developed By Luca - luca3dsurfing02@libero.it::
'In caso di 0 gettoni ne agiunge altri
 
If Range("b2") < 1 Then
      MsgBox (":: Devi inserire altri gettoni ::")
      Range("b2") = Range("b1")
     End If
 
'SENTENZA:
' Ogni volta che si preme il Pulsante Spin viene degradato un gettone
  Range("b2") = Range("b2") - 1
 
'SENTENZA:
' metti nelle celle i tre valori casuali
 
For counter = 0 To 100
    a = Int(7 * Rnd + 1)
    Range("c5") = a
    b = Int(7 * Rnd + 1)
    Range("d5") = b
    c = Int(7 * Rnd + 1)
    Range("e5") = c
Next
For counter = 0 To 200
 
    b = Int(7 * Rnd + 1)
    Range("d5") = b
    c = Int(7 * Rnd + 1)
    Range("e5") = c
Next
For counter = 0 To 300
    c = Int(7 * Rnd + 1)
    Range("e5") = c
Next
 
':: ecco le regole del gioco ::
 
If a = b And b = c And c = 7 Then
        MsgBox (":: You won ::")
        Range("b2") = Range("b2") + 100
 
    End If
 
If a = b And b = c And c <> 7 Then
        MsgBox (":: hai guadagnato 25 punti ::")
        Range("b2") = Range("b2") + 25
 
End If
 
If a = 1 And b = 2 And c = 3 Then
        MsgBox (":: Hai guadagnato 10 punti ::")
        Range("b2") = Range("b2") + 10
 
End If
 
If a = 3 And b = 2 And c = 1 Then
        MsgBox (":: Hai guadagnato 5 punti ::")
        Range("b2") = Range("b2") + 5
 
End If

Questo è il codice VBA che come avrete capito realizza un semplicissimo videopoker su excel.

Lo devo modificare in modo che , importando da WORD i segni delle carte (picche, cuori etc...) girino anche quelli oltre ai numeri e che analogamente ai numeri vengano assegnati i punti.

Purtroppo io ssono un novizio e vorrei un vostro parere.

Ringrazio anticipatamente fin d'ora tutti per l'aiuto.

Luca.

[SuperMariano81]

in VB (5 e 6) ci sono le icone dei segni (picche cuori quadri e fiori).

[allegria]

purtroppo io sto in visual basic for application (vba)

grazie cmq per la pronta risposta :-)

[SuperMariano81]

in teoria ci sono anche la, prova ad inserire una picture e prendi il seguente percorso:
"C:\Programmi\Microsoft Visual Studio\Common\Graphics\Icons"

[allegria]

a dire la veria non è tanto importare le icone che mi preoccupa.
il fatto è che io non so modificare correttamente il codice succitato per far si che anche queste girino e implichino l'assegnare o il togliere punti etc...
come possof fare?

grazie ancora

[allegria]

up

[allegria]

ragazzi è per la scuola vi prego aiutatemi

[allegria]

up ma possibile che nessuno mi sappia dare uba mano?

[SuperMariano81]

Oggi non ho visto tante persone accedere al forum
cmq prova ad essere un pochino più specifico!

[allegria]

ma up