임의의 문자와 값 파워 포인트 VBA

Question

I 옵션의 이런 종류의 임의 생성 된 출력 얻기 위해 노력하고있어 :

첫째 편지 15, 30이 될 수 R 또는 L 두 번째 숫자가 될 수 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

지침이 실제로 작동하는지, 텍스트 레이블에서 테스트했는데 레이블을 올바르게 참조하는지 확인하십시오.