Office学习社区 › Office入门和提高 › 想用PPT做一个滚动抽奖的程序，但是遇到了问题，求解。。

小丸子 发表于 2016-10-18 13:37:00

想用PPT做一个滚动抽奖的程序，但是遇到了问题，求解。。

基本上都没啥问题，关键地方是怎么样让抽奖栏显示从001-620这样子 就是无论是那个数字都是用三位数表示
Sub txtStart()
    For i = 1 To 5000
      With ActivePresentation.Slides(1)
            For j = 1 To 1
                With .Shapes("txtNum" & j).TextFrame.TextRange
                  .Text = Int((620 - 1 + 1) * Rnd + 1)
                  .Font.Color.RGB = 10000 * Rnd
                  Debug.Print .Text
                End With
            Next
      End With
      DoEvents
    Next
End Sub
Sub OnSlideShowTerminate()
    Exit For
End Sub

查看完整版本: 想用PPT做一个滚动抽奖的程序，但是遇到了问题，求解。。