Microsoft Powerpoint - Is there a way to manipulate the effects event in code without the AddEffect? edit it

I want to automate a spinning wheel and apply sound to it.  I was able to use the random method to edit the EffectParameters.Amount to determine what the value of the slice of the wheel was directed just fine, however when I attempted to add the sound the wheel stopped spinning and the  sound played.  Once done the wheel began to spin.  If I could edit the original effect with the sound already enabled and simply change the EffectParameters.Amount without having to use the .AddEffects that would be great.  Is there a way to edit without having to use the .AddEffect method.  My  code first deletes all of the animations and triggers before I use the .AddEffect changes. 


 Set shpCube = ActivePresentation.Slides(1).Shapes("picWheel")
    Set effSpin = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(shape:=shpCube, effectId:=msoAnimEffectSpin, trigger:=msoAnimTriggerAfterPrevious)
   
     
    'Initialize the random number generator
   '=> Randomize : add this before you call the Rnd function to obtain completely random values
   Randomize
  
    'Random whole number between 1 and 24
   random_number = Int(24 * Rnd) + 1
  
    Select Case random_number
      Case 1
        effSpin.EffectParameters.Amount = 360
        WhValue = "Bankrupt"
        If Me.txtTeamSpin.Text = 1 Then
            Me.txtTeam1.Text = "0.00"
          Else
            Me.txtTeam2.Text = "0.00"
        End If
      Case 2
        effSpin.EffectParameters.Amount = 375
        WhValue = "$50.00"
      Case 3
        effSpin.EffectParameters.Amount = 390
        WhValue = "$250.00"
      Case 4
        effSpin.EffectParameters.Amount = 405
        WhValue = "$100.00"
      Case 5
        effSpin.EffectParameters.Amount = 420
        WhValue = "Buy A Vowel"
      Case 6
        effSpin.EffectParameters.Amount = 435
        WhValue = "$150.00"
      Case 7
        effSpin.EffectParameters.Amount = 450
        WhValue = "$75.00"
      Case 8
        effSpin.EffectParameters.Amount = 465
        WhValue = "$275.00"
      Case 9
        effSpin.EffectParameters.Amount = 480
        WhValue = "$100.00"
      Case 10
        effSpin.EffectParameters.Amount = 495
        WhValue = "Lose A Turn"
      Case 11
        effSpin.EffectParameters.Amount = 510
        WhValue = "$450.00"
      Case 12
        effSpin.EffectParameters.Amount = 525
        WhValue = "$50.00"
      Case 13
        effSpin.EffectParameters.Amount = 540
        WhValue = "$200.00"
      Case 14
        effSpin.EffectParameters.Amount = 555
        WhValue = "$100.00"
      Case 15
        effSpin.EffectParameters.Amount = 570
        WhValue = "Free Spin"
      Case 16
        effSpin.EffectParameters.Amount = 585
        WhValue = "$200.00"
      Case 17
        effSpin.EffectParameters.Amount = 600
        WhValue = "$25.00"
      Case 18
        effSpin.EffectParameters.Amount = 615
        WhValue = "$100.00"
      Case 19
        effSpin.EffectParameters.Amount = 630
        WhValue = "$125.00"
      Case 20
        effSpin.EffectParameters.Amount = 645
        WhValue = "$75.00"
      Case 21
        effSpin.EffectParameters.Amount = 660
        WhValue = "$200.00"
      Case 22
        effSpin.EffectParameters.Amount = 675
        WhValue = "$300.00"
      Case 23
        effSpin.EffectParameters.Amount = 690
        WhValue = "$175.00"
      Case 24
        effSpin.EffectParameters.Amount = 705
        WhValue = "$500.00"
    End Select