Discussion :

[AntoineMP]

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

[AntoineMP]

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.

[78chris]

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