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 :
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.
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
Merci d'avance pour votre aide.
Antoine
Partager