1. #1
    Nouveau Candidat au Club
    Femme Profil pro
    Webdesigner
    Inscrit en
    mars 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 29
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Webdesigner
    Secteur : Communication - Médias

    Informations forums :
    Inscription : mars 2018
    Messages : 2
    Points : 1
    Points
    1

    Par défaut Copier/Coller d'un groupe de shapes sur l'ensemble d'une présentation

    Bonjour à tous,

    Je voudrais savoir s'il est possible de Copier/coller, en même temps, plusieurs shapes sur l'ensemble d'une présentation.
    Je m'explique. J'ai déjà un bout de code qui permet de copier/coller un seul shape sur la présentation entière :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Sub SuperDuper()
     
        Dim oSh As Shape
        Dim x As Long
     
        Set oSh = ActiveWindow.Selection.ShapeRange(1)
        oSh.Copy
     
        ' X = le numéro de la slide à partir de laquelle la recopie va s'effectuer
        For x = 2 To ActivePresentation.Slides.Count
            ActivePresentation.Slides(x).Shapes.Paste
        Next
     
    End Sub
    Mon problème étant que je voudrais que les 2, 3... éléments sélectionnés soient en même temps copier/coller sur l'ensemble des slides.

    Merci d'avance pour votre aide.

    Antoine

  2. #2
    Nouveau Candidat au Club
    Femme Profil pro
    Webdesigner
    Inscrit en
    mars 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 29
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Webdesigner
    Secteur : Communication - Médias

    Informations forums :
    Inscription : mars 2018
    Messages : 2
    Points : 1
    Points
    1

    Par défaut

    J'ai trouvé un code qui fonctionne et qui fait ce que je voulais :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub Copyallshapes()
     
        Set oSh = ActiveWindow.Selection.Shaperange
        For j = 1 To oSh.Count
            oSh(j).Copy
            For i = 2 To ActivePresentation.Slides.Count
                ActivePresentation.Slides(i).Shapes.Paste
            Next i
        Next j
     
    End Sub

    Petit, bémol. Etant donné que celui-ci est un loop, je perds l'ordre des animations. Existe-t-il un moyen de copier/coller les shapes en un seul bloc (et non un loop successif de copier/coller) afin de garder les animations dans le bon ordre ?
    Les shapes sont destinées à être copier/coller sur une centaines de slides, je dois donc réorganiser les animations sur les 100 slides.

    Merci par avance de votre aide.

  3. #3
    Expert éminent

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    février 2010
    Messages
    5 141
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : février 2010
    Messages : 5 141
    Points : 9 470
    Points
    9 470

    Par défaut

    Bonjour

    Il serait plus propre de grouper les shapes pour ne coller que le groupe et de le coller sur le masque de diapo plutôt que sur chaque diapo : cela évite une boucle et surtout un poids inutile de la présentation
    Chris

    Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
    Confucius

    ----------------------------------------------------------------------------------------------
    En cas de résolution, n'hésitez pas cliquer sur c'est toujours apprécié...

Discussions similaires

  1. vba copier/coller valeur cellule en double cliquant sur une autre
    Par yieiyiei dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 05/09/2016, 09h51
  2. Réponses: 14
    Dernier message: 25/10/2012, 21h11
  3. [XL-2003] copier coller avec des séparateur puis formatage sur une ligne
    Par kalwin dans le forum Excel
    Réponses: 3
    Dernier message: 17/09/2010, 19h45
  4. Tri sur l'ensemble d'une table sauf premier enregistrement
    Par pierre50 dans le forum Langage SQL
    Réponses: 5
    Dernier message: 14/10/2008, 21h20
  5. Zoomer sur un personnage dans une présentation photo
    Par nikos57 dans le forum Powerpoint
    Réponses: 7
    Dernier message: 27/02/2008, 20h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo