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

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