user_mobilelogo

La première macro copie l'objet nommé "toto" de la diapositive 1 et le colle dans la diapositive 3. L'objet sera collé exactement au même endroit.

La macro suivante copie l'objet nommé "toto" de la diapositive 1 et le colle dans le deuxième espace réservé de la diapositive 3. SI cet espace réservé est déjà rempli, l'objet se collera comme via la macro précédente, en tant qu'objet indépendant.

Sub copie()
With ActivePresentation
    .Slides(1).Shapes("toto").Copy
    .Slides(3).Shapes.Paste
End With
End Sub

Sub copie2()
With ActivePresentation
    .Slides(1).Shapes("toto").Copy
    .Slides(3).Shapes.Placeholders(2).Select
End With
ActiveWindow.View.Paste
End Sub
 

 

Statistiques

Aujourd'hui623
Hier2359
Cette semaine5401
Ce mois9560
Total depuis 200417677607

27
visiteurs actuellement en ligne

6 décembre 2023