Discussion :

[Job3-14]

Bonjour,


L'état:

1) En mode Diaporama;
2) J'ai plusieurs formes dessinées par FORME LIBRE et elles ne contiennent aucune couleur de remplissage;

La demande:

Lorsque je clic sur une des formes je voudrais que cette dernière est comme couleur de remplissage le rouge.

Votre aide SVP?

Merci et bonne journée!

[Invité]

Bonjour

Pour cela il faut d'abord que tes formes soient absolument fermées.

Colle ce code dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub test(shpSelect As Shape)
    shpSelect.Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

Ensuite sur l'action de la forme (clique droit sur la forme, paramètre des actions), et sur click tu sélectionnes la routine test.

Philippe

[Job3-14]

Merci de votre réponse!

J'ai suivi vos consignes. Malheuresement je n'obtiens pas les résultats escomptés.

Je joins un exemple.

J'ai PowerPoint 2003.

[Invité]

Re

C'est parce que je pense tu n'as aucun remplissage au départ, mets une couleur de remplissage blanche, et cela fonctionne.

Philippe

[Job3-14]

je veux améliorer mon code!!!


Je veux dans mon code :


Si couleur de fond = rouge alors couleur de remplissage = aucun remplissage

Si couleur de remplissage = aucun remplissage alors couleur de remplissage = rouge


Malgré de nombreuses tentatives je ne réussis pas à monter ce code.


Merci et bonne journée!

[Job3-14]

J'ai bonifié mon exemple. Voir le fichier-joint.


Merci et bonne journée!

[Invité]

Bonjour

Essayes avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub test(shpSelect As Shape)
    If shpSelect.Fill.Visible = msoFalse Then
        With shpSelect.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(255, 0, 0)
        End With
    Else
        With shpSelect.Fill
            .Visible = msoFalse
        End With
    End If
End Sub

Philippe

[Job3-14]

Merci beaucoup!