Copier coller photo après clic dessus d'une slide à l'autre
Fermé
OLIEBOSTON
Messages postés
1
Date d'inscription
lundi 17 avril 2017
Statut
Membre
Dernière intervention
17 avril 2017
-
17 avril 2017 à 16:55
m@rina Messages postés 19847 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 28 mars 2024 - 17 avril 2017 à 18:25
m@rina Messages postés 19847 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 28 mars 2024 - 17 avril 2017 à 18:25
A voir également:
- Copier coller photo après clic dessus d'une slide à l'autre
- Traduction photo gratuit - Guide
- Copier une vidéo youtube - Guide
- Photo de profil - Guide
- Copier coller pdf - Guide
- Partage photo - Guide
1 réponse
m@rina
Messages postés
19847
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
28 mars 2024
11 258
Modifié le 17 avril 2017 à 18:27
Modifié le 17 avril 2017 à 18:27
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
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...
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...