Tugas Mahasiswa

Kembangkan media VBA Excel dengan menggukan Koding dibawah ini

Dipublikasikan pada : 7 Februari 2021.

Sub TestPickupAnimation()

With ActivePresentation.Slides(1)

Dim shp1, shp2, shp3 As Shape

‘ Create the initial shape and apply the animations.

Set shp1 = .Shapes.AddShape(msoShape12pointStar, 20, 20, 100, 100)

 

.TimeLine.MainSequence.AddEffect shp1, msoAnimEffectFadedSwivel, , msoAnimTriggerAfterPrevious

.TimeLine.MainSequence.AddEffect shp1, msoAnimEffectPathBounceRight, , msoAnimTriggerAfterPrevious

.TimeLine.MainSequence.AddEffect shp1, msoAnimEffectSpin, , msoAnimTriggerAfterPrevious

 

‘ Now create a second shape, and apply the same animation to it:

shp1.PickupAnimation

 

Set shp2 = .Shapes.AddShape(msoShapeHexagon, 100, 20, 100, 100)

shp2.ApplyAnimation

 

‘ And one more:

Set shp3 = .Shapes.AddShape(msoShapeCloud, 180, 20, 100, 100)

shp3.ApplyAnimation

 

End With

End Sub

 

 

ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).RotationEffect