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)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Papyjac
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
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)
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)