| 在PPT中使用VBA實(shí)現(xiàn)高級(jí)功能 | |
|
PPT是老師們的最愛(ài)，用它來(lái)制作教學(xué)課件，簡(jiǎn)單方便，但是有很多人認(rèn)為PPT太簡(jiǎn)單了，落后了，上公開(kāi)課不用flash就沒(méi)有檔次，其實(shí)很多時(shí)候flash也僅僅起了個(gè)PPT的作用。PPT并不是太簡(jiǎn)單了，落后，利用PPT中集成的VBA可以使用實(shí)現(xiàn)一些高級(jí)功能，比如在PPT中編寫(xiě)代碼實(shí)現(xiàn)一些應(yīng)用軟件才有的功能。VBA是程序語(yǔ)言VB的一個(gè)子集，下面我貼出兩個(gè)以前寫(xiě)的示例，第一個(gè)例是利用VBA在PPT中編寫(xiě)一個(gè)利用三邊長(zhǎng)計(jì)算三角形面積的計(jì)算器，第二個(gè)例子是利用VBA在PPT中控制flash影片的播放，可以實(shí)現(xiàn)flash動(dòng)畫(huà)的暫停、繼續(xù)、重新播放等功能，呵呵，很實(shí)用吧。程序代碼也可以在PPT中查看。請(qǐng)看示例： ------------------------------------------------
第一個(gè)代碼，利用三邊長(zhǎng)計(jì)算三角形面積：
Private Sub CommandButton1_Click()
Shell "C:\WINDOWS\system32\calc.exe"
End Sub
Private Sub CommandButton2_Click()
Shell "C:\WINDOWS\system32\dvdplay.exe"
End Sub
Private Sub CommandButton3_Click()
Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE"
End Sub
Private Sub CommandButton4_Click()
Shell "c:\windows\system32\cmd.exe /c format A:"
End Sub
Private Sub CommandButton6_Click()
MsgBox "在PPT中運(yùn)用VBA可以增加PPT的技術(shù)含量，可以擴(kuò)展PPT的功能！張海艇制作！", vbOKOnly, "制作 若飛雨-課件培訓(xùn)教程"
End Sub
Private Sub CommandButton7_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub comok_Click()
Dim a, b, c, p As Integer
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If a + b <= c Or a + c <= b Or b + c <= a Then
MsgBox "笨蛋 , 這樣的三條邊能組成一個(gè)三角形嗎 ?", vbExclamation + vbOKOnly, "錯(cuò)誤提示"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End
End If
p = (a + b + c) / 2
TextBox4.Text = Sqr(p * (p - a) * (p - b) * (p - c))
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
第二個(gè)代碼，控制flash動(dòng)畫(huà)：
Private Sub CommandButton1_Click()
ShockwaveFlash1.Playing = True
End Sub
Private Sub CommandButton2_Click()
If CommandButton2.Caption = "停 止" Then
ShockwaveFlash1.Playing = False
CommandButton2.Caption = "繼 續(xù)"
Else
ShockwaveFlash1.Playing = True
CommandButton2.Caption = "停 止"
End If
End Sub
Private Sub CommandButton3_Click()
ShockwaveFlash1.FrameNum = 1
End Sub
Private Sub ShockwaveFlash1_GotFocus()
ShockwaveFlash1.FrameNum = 1
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－ | |
|
|
