Discussion :

[etudiant3]

Bonjour à tous,

j'ai avancé dans mon projet depuis l'autre fois. Je l'ai même terminé à un détail/une ligne de code près.

J'ai 21 groupe d'image par slide et je les déplace par macro 1 par un d'un "cran" avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Sld As Slide
    Dim Shp As Shape
For Each Sld In ActivePresentation.Slides
 
    For Each Shp In Sld.Shapes
        With Shp
            'If .Type = msoAutoShape
            If .Type = msoGroup _
                And .Left = 50 _
                And .Top = 50 _
                Then
                    .Left = 145
                    .Top = 50
        End With
    Next
Next Sld

Donc je fait un call des 21 Sub avec les coordonnées différents. La 21e shape je la met en position Temporaire et je souhaiterai la passer sur la slide suivante en position 1.

J'ai essayé pas mal de chose sans succès. Du coup voici le code que j'ai et j'aurai besoin d'aide pour le faire fonctionner.
Donc prendre la Shape (qui est en fait un groupe de shape) en 715 / 366 et la couper coller dans la slide n+1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Dim Sld As Slide
    Dim Shp As Shape
 
For Each Sld In ActivePresentation.Slides
 
    For Each Shp In Sld.Shapes
        With Shp
            If .Type = msoGroup _
                And .Left = 715 _
                And .Top = 366 _
                Then
                    .Cut
                        ActivePresentation.Slides.Count
                        ActivePresentation.Slides(Shp.Parent.SlideIndex + 1).Shapes.Paste
            End If
 
        End With
    Next
Next Sld

Merci d'avance

(Voici un fichier exemple mais les shapes ne sont pas aux bonnes coordonnées, c'est juste pour illustrer.)

[cerede2000]

Bonjour à toi,

Si tu n'as pas trouvé, pour déplacer une Shape d'une slide à l'autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub test()
    ActivePresentation.Slides(1).Shapes(1).Cut
    ActivePresentation.Slides(2).Shapes.Paste
End Sub