Code macro pour passer a la diapo suivante
Résolu
Snoopy0701
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
Snoopy0701 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Snoopy0701 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Bonsoir le forum
on vient de me donner un ppt pour afficher les numéros d un loto sur grand écran
ce ppt contient des macros
sur la diapo n°1 il y a 90 images qui représente les boules chaque images contient un lien hypertexte qui exécute une macro
Quand on clic sur une image elle disparait de la diapo n° 1 pour apparaitre en grand sur la diapos n°2 et a sa taille de départ sur la diapo N° 3
pour faire apparaitre la diapo n°2 il faut se servir de la molette de la souris ou cliquer sur les flèches qui se trouve en bas a gauche de la diapo n°1
Ma question est quel code il faut que je rajoute a la macro pour que la diapo n°2 apparaisse automatiquement quand je clique sur une image de la diapo n°1 et ou dois je mettre le code dans la macro
je vous joint la macro qui est exécuter par le lien hypertexte
merci d'avance pour votre aide
Cordialement
Snoopy0701
on vient de me donner un ppt pour afficher les numéros d un loto sur grand écran
ce ppt contient des macros
sur la diapo n°1 il y a 90 images qui représente les boules chaque images contient un lien hypertexte qui exécute une macro
Quand on clic sur une image elle disparait de la diapo n° 1 pour apparaitre en grand sur la diapos n°2 et a sa taille de départ sur la diapo N° 3
pour faire apparaitre la diapo n°2 il faut se servir de la molette de la souris ou cliquer sur les flèches qui se trouve en bas a gauche de la diapo n°1
Ma question est quel code il faut que je rajoute a la macro pour que la diapo n°2 apparaisse automatiquement quand je clique sur une image de la diapo n°1 et ou dois je mettre le code dans la macro
je vous joint la macro qui est exécuter par le lien hypertexte
Sub BallClick(oShapeBall As Shape)
Dim iCurrentSlide As Integer
Dim iOppositeSlide As Integer
Dim iVerticalOffset As Integer
iVerticalOffset = 20
' Save the current Ball and Number names
ActivePresentation.Tags.Add "SelectedBall", oShapeBall.Name
ActivePresentation.Tags.Add "SelectedNumber", Replace(oShapeBall.Name, "b", "n")
' Define the target slide number
If ActivePresentation.SlideShowWindow.View.Slide.SlideIndex = 1 Then
iCurrentSlide = 1
iOppositeSlide = 3
' Slide 02 : Display number
ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").TextFrame.TextRange.Text = Replace(ActivePresentation.Tags("SelectedNumber"), "n", "")
' Slide 01 : Copy the ball picture from 1st slide to 2nd one
On Error Resume Next
ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Delete
On Error GoTo 0
ActivePresentation.Slides("Slide_Before").Shapes(oShapeBall.Name).Copy
ActivePresentation.Slides("Slide_Zoom").Shapes.Paste
ActivePresentation.Slides("Slide_Zoom").Shapes(oShapeBall.Name).Name = "dummy"
ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Visible = msoCTrue
' Slide 02 : Center the ball
ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Left = (ActivePresentation.PageSetup.SlideWidth - ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Width) / 2
ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Top = (ActivePresentation.PageSetup.SlideHeight - ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Height) / 2
' Slide 02 : Scale the ball
ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").ScaleHeight 0.6, msoTrue, msoScaleFromMiddle
ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").ScaleWidth 0.6, msoTrue, msoScaleFromMiddle
' Slide 02 : Center textbox with ball's number
ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").Left = (ActivePresentation.PageSetup.SlideWidth - ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").Width) / 2
ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").Top = ((ActivePresentation.PageSetup.SlideHeight - ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").Height) / 2) - iVerticalOffset
ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").ZOrder msoBringToFront
Else
iCurrentSlide = 3
iOppositeSlide = 1
End If
' This ball is visible
If oShapeBall.Visible Then
' We make it NOT visible on the opposite slide
ActivePresentation.Slides(iCurrentSlide).Shapes(ActivePresentation.Tags("SelectedBall")).Visible = msoFalse
ActivePresentation.Slides(iCurrentSlide).Shapes(ActivePresentation.Tags("SelectedNumber")).Visible = msoFalse
ActivePresentation.Slides(iOppositeSlide).Shapes(ActivePresentation.Tags("SelectedBall")).Visible = msoTrue
ActivePresentation.Slides(iOppositeSlide).Shapes(ActivePresentation.Tags("SelectedNumber")).Visible = msoTrue
Else
' We make it visible on the opposite slide
ActivePresentation.Slides(iCurrentSlide).Shapes(ActivePresentation.Tags("SelectedBall")).Visible = msoTrue
ActivePresentation.Slides(iCurrentSlide).Shapes(ActivePresentation.Tags("SelectedNumber")).Visible = msoTrue
ActivePresentation.Slides(iOppositeSlide).Shapes(ActivePresentation.Tags("SelectedBall")).Visible = msoFalse
ActivePresentation.Slides(iOppositeSlide).Shapes(ActivePresentation.Tags("SelectedNumber")).Visible = msoFalse
End If
End Sub
merci d'avance pour votre aide
Cordialement
Snoopy0701
A voir également:
- Code macro pour passer a la diapo suivante
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Passer de qwerty a azerty - Guide
- Code puk bloqué - Guide
- Passer a windows 10 - Accueil - Mise à jour
2 réponses
Bonjour,
Pour passer sur la diapo 2, par exemple :
Je suppose que tu dois le mettre à la fin. Il me semble que ta macro n'est pas vraiment complète, parce qu'il y a des noms qui ne sont pas initiés dans la macro (Slide_Zoom, Slide_before, etc.), donc tout n'est pas très clair.
m@rina
Pour passer sur la diapo 2, par exemple :
SlideShowWindows(1).View.GotoSlide 2
Je suppose que tu dois le mettre à la fin. Il me semble que ta macro n'est pas vraiment complète, parce qu'il y a des noms qui ne sont pas initiés dans la macro (Slide_Zoom, Slide_before, etc.), donc tout n'est pas très clair.
m@rina
Bonsoir m@rina
je te remercie pour ton aide cela fonction a merveille
tu me dit:
"Il me semble que ta macro n'est pas vraiment complète, parce qu'il y a des noms qui ne sont pas initiés dans la macro (Slide_Zoom, Slide_before, etc.), donc tout n'est pas très clair. "
pour moi c'est du charabia car je ne connais rien en programmation
on ma donne le ppt et moi j'essaie de l'automatiser car il faut tourner la molette pour faire défiler les diapos donc c'est pour ca que je demande de l 'aide
cordialement
Snoopy0701
je te remercie pour ton aide cela fonction a merveille
tu me dit:
"Il me semble que ta macro n'est pas vraiment complète, parce qu'il y a des noms qui ne sont pas initiés dans la macro (Slide_Zoom, Slide_before, etc.), donc tout n'est pas très clair. "
pour moi c'est du charabia car je ne connais rien en programmation
on ma donne le ppt et moi j'essaie de l'automatiser car il faut tourner la molette pour faire défiler les diapos donc c'est pour ca que je demande de l 'aide
cordialement
Snoopy0701