Copier coller photo après clic dessus d'une slide à l'autre
OLIEBOSTON
Messages postés
1
Statut
Membre
-
m@rina Messages postés 27916 Date d'inscription Statut Modérateur Dernière intervention -
m@rina Messages postés 27916 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je travaille sur powerpoint 2013
voila j'ai une slide avec 3 images de machine au choix.
Je voudrais que l'utilisateur clique sur son choix, et que ce clic envoie l'image dans une autre slide, comme un espece de panier sur site web. A la fin de ses clics, si je vais dans cette slide, on ne verrait que ce qu'il aura choisi. J'aimerai que le copiage de l'image se fasse à un endroit bien précis aussi de manière à ce que cela semble un peu ordonné et propre.
Je ne maitrise pas du tout les macros.. merci de votre aide.
Je travaille sur powerpoint 2013
voila j'ai une slide avec 3 images de machine au choix.
Je voudrais que l'utilisateur clique sur son choix, et que ce clic envoie l'image dans une autre slide, comme un espece de panier sur site web. A la fin de ses clics, si je vais dans cette slide, on ne verrait que ce qu'il aura choisi. J'aimerai que le copiage de l'image se fasse à un endroit bien précis aussi de manière à ce que cela semble un peu ordonné et propre.
Je ne maitrise pas du tout les macros.. merci de votre aide.
1 réponse
-
Bonjour
Faut effectivement une macro qui devra se déclencher au clic sur l'objet.
Voici un exemple supposant que :
- tes objets se nomment objet1, objet2 et objet3
- qu'ils se trouvent sur la première diapo
- que tu souhaites les copier sur la troisième diapo
Sub choix(obj As Shape)
Dim diapo1 As Slide, diapo2 As Slide
Set diapo1 = ActivePresentation.Slides(1)
Set diapo3 = ActivePresentation.Slides(3)
With SlideShowWindows(1).View.Slide.Shapes
Select Case obj.Name
Case "objet1"
diapo1.Shapes("objet1").Copy
diapo3.Shapes.Paste
Case "objet2"
diapo1.Shapes("objet2").Copy
diapo3.Shapes.Paste
Case "objet3"
diapo1.Shapes("objet3").Copy
diapo3.Shapes.Paste
End Select
End With
End Sub
Ensuite, il faut que tu affectes à chaque objet l'action d'exécuter la macro :
Sélection de l'objet, Insertion Action
m@rina
Méfiez-vous de la tisane : c'est un poison dangereux...
