發表一個可以隨機開啟幻燈片的VBA範本

innsert 发表于: 2010-9-21 00:18 来源: 扑奔PPT网

這是我在網路上找到的VBA
雖然不知有甚麼用
不過想想
隨機開啟幻燈片頁
也就是如果在不同的頁中
放上人名或是獎項或是題目
就是一個抽籤或點名的工具了
特別發上來給大家玩玩
播放幻燈片後第一頁上頭藍色的方塊按下去
就會跳出一個小視窗
遊標移到小視窗中點擊右鍵
就會隨機開啟頁面
這個範例有十頁隨機選擇
有VBA高手請看看
看看可否增加頁數

發表一個可以隨機開啟幻燈片的VBA範本 (32.7 KB, 下载次数: 216)

大家对發表一個可以隨機開啟幻燈片的VBA範本的评论

jack0421 发表于 2010-10-02 10:32:58: 模块代码
Option Explicit
Sub Macro1()
'

ActivePresentation.SlideShowSettings.Run
With UserForm1
      .StartUpPosition = 0
      .Top = 0
      .Left = 600
      .Show False
End With
End Sub

窗体代码：

Option Explicit
Dim r As Long
Dim num As Long
Private Sub UserForm_Click()
Randomize (Time)
num = ActivePresentation.Slides.Count
r = Int(Rnd() * num) + 1
'Presentations(1).Slides(r).Copy
'  SlideShowWindows(Index:=1).View.GotoSlide r, msoTrue
'Presentations(1).Slides(r).MoveTo 1
SlideShowWindows(Index:=1).View.GotoSlide r, msoTrue
DoEvents
End Sub
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
UserForm_Click
End Sub
Private Sub UserForm_Terminate()
On Error Resume Next 'esc
SlideShowWindows(Index:=1).View.GotoSlide 1
DoEvents
SlideShowWindows(Index:=1).View.Exit
End Sub

39 KB, 下载次数: 103)
tangqingfu 发表于 2011-4-12 19:05:30: 学习了，谢谢分享！