Correction dans mon code SVP....

Le
Stéphan DuQuébec
Bonjour à toutes et tous.
Premier post sur ce forum PowerPoint :-)
J'aimerais avoir vos propositions de correction sur ce code qui ne fait
absolument rien pour l'instant mais qui, idéalement, ferait apparaitre une
shape différente selon un select case. Voici mon bout de code. Salutations et
Merci.
Option Explicit

Sub MettreForme(oShp As Shape)
With SlideShowWindows(1).View.Slide.Shapes(3).Range.Fill
Select Case oShp.ZOrderPosition
Case 1
.Fill = Shapes(2)
Case 2
.Fill = Shapes(1)
Case 3
.Fill = Shapes(6)
Case 4
.Fill = Shapes(5)
Case 5
.Fill = Shapes(4)

End Select
DoEvents
End With
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Papyjac
Le #17466971
Bonjour Stephane

Il y a un fill en doublon dans ....

With SlideShowWindows(1).View.Slide.Shapes(3).Range.Fill
... car tu le répetes après dans le select


--
Papyjac


"Stéphan DuQuébec" a écrit :

Bonjour à toutes et tous.
Premier post sur ce forum PowerPoint :-)
J'aimerais avoir vos propositions de correction sur ce code qui ne fait
absolument rien pour l'instant mais qui, idéalement, ferait apparaitre une
shape différente selon un select case. Voici mon bout de code. Salutations et
Merci.
Option Explicit

Sub MettreForme(oShp As Shape)
With SlideShowWindows(1).View.Slide.Shapes(3).Range.Fill
Select Case oShp.ZOrderPosition
Case 1
.Fill = Shapes(2)
Case 2
.Fill = Shapes(1)
Case 3
.Fill = Shapes(6)
Case 4
.Fill = Shapes(5)
Case 5
.Fill = Shapes(4)

End Select
DoEvents
End With
End Sub


Publicité
Poster une réponse
Anonyme