Случайное письмо и значение Powerpoint VBA

Question

Я пытаюсь получить случайное генерируемый выход с такого рода варианты:

Во-первых, письмо, которое может быть R или L Во-вторых это число, которое может быть только 15, 30, 45 или 60.

Например, выход может быть R45 или L15. Все это должно генерироваться случайным образом при каждом открытии слайда.

Я пробовал с этим кодом, но без результатов, на этикетке не появляется вывод. Может ли кто-нибудь дать мне подсказку?

signA = "R" 
signB = "L" 
cont = Int(Rnd * 100) + 1 
Angle = Int(Rnd * 120) + 1 

valore = cont Mod 2 
If valore = 0 Then 
    If Angle <= 30 Then 
     vardec = "15" 
     var = signA & vardec 
    Else 
     If Angle <= 60 Then 
      vardec = "30" 
      var = signA & vardec 
     Else 
      If Angle <= 90 Then 
       vardec = "45" 
       var = signA & vardec 
      Else 
       vardec = "60" 
       var = signA & vardec 
      End If 
     End If 
    End If 
Else 
    If Angle <= 30 Then 
     vardec = "15" 
     var = signA & vardec 
    Else 
     If Angle <= 60 Then 
      vardec = "30" 
      var = signA & vardec 
     Else 
      If Angle <= 90 Then 
       vardec = "45" 
       var = signA & vardec 
      Else 
       vardec = "60" 
       var = signA & vardec 
      End If 
     End If 
    End If 
End If 
ActivePresentation.Slides(4).Shapes("Label2").OLEFormat.Object.Caption = CStr(var) 

Answer 1

Инструкции действительно работают, я тестировал их на текстовой этикетке, просто проверьте, правильно ли вы указали метку.