Tugas Mahasiswa
Kembangkan media VBA Excel dengan menggukan Koding dibawah ini
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