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 20089 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 27 avril 2024 - 17 avril 2017 à 18:25

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.

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
Copier coller pdf - Guide
Photo de profil - Guide
Partage photo - Guide

1 réponse

Réponse 1 / 1

m@rina Messages postés 20089 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 27 avril 2024 11 272
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

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...

Discussions similaires

Dessiner avec son clavier et avec des lettres

Pix

Comment faire le signe de croix (chrétiens) ?

dessin au clavier cannabis

Discussions similaires

Newsletters