1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Sub GrouperDeuxShapes()
Dim PptDoc As Presentation
Dim oeff As Effect
Dim osld1 As Shape, osld2 As Shape, osld_AB As Shape
Set PptDoc = ActivePresentation
With PptDoc.Slides(3)
Set osld1 = .Shapes("Rectangle 1")
Set osld2 = .Shapes("Rectangle 2")
Set osld_AB = .Shapes.Range(Array(osld1.Name, osld2.Name)).Group
Set oeff = .TimeLine.MainSequence.AddEffect(Shape:=osld_AB, effectID:=msoAnimEffectAppear, trigger:=msoAnimTriggerOnPageClick, Index:=1)
End With
Set osld_AB = Nothing
Set osld1 = Nothing
Set osld2 = Nothing
Set PptDoc = Nothing
End Sub |
Partager