PowerPoint VBA旋钮

Question

我是VBA的新手。

我不想使用下拉列表，而是要在带有标签/文本框的旋转按钮中创建选项列表。

但是我知道我的代码有问题：

Private Sub SpinButton1_Change()
Dim pilihJawab As Variant
pilihJawab = Array("...", "Option1", "Option2", "Option3")
ActivePresentation.Slides(5).Shapes("TextBox1").TextFrame.TextRange.Text = pilihJawab(Val(SpinButton1))

'Label1.Caption = pilihJawab(Val(SpinButton1))
'I tried this one also can't make it

End Sub