随机字母和值 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

这些说明确实有效，我在文本标签上对其进行了测试，只需检查您是否正确引用了标签。

随机字母和值 Powerpoint VBA

Random letter and value Powerpoint VBA

vba

random

numbers

powerpoint

letter