ランダムな文字と値パワーポイントVBA

Question

私はオプションのこの種のランダム生成された出力取得しようとしています：

まず文字のみ15、30可能性がRまたはL 第二に数可能性があり、例えば、出力は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

説明は実際に動作しますが、テキストラベルでテストしましたが、ラベルを正しく参照しているかどうかを確認してください。