1、新建一個Power Point文檔。
2、單擊工具欄內的[視圖]——[工具欄]——[控件工具箱]
3、單擊[其他控件](最後一個)
4、單擊其他控件後,彈出選擇控件對話框,選擇[shockwave flash object]
4、這時,遊標變成了一個十字形,在幻燈片中拖動鼠標,畫出一個矩形框,隨即,矩形框中出現了它的對角線。
5、在矩形框上單擊右鍵,選擇[屬性]。
6、在屬性框中的movie欄中輸入Flash電影的完整路徑名稱,例如:E:六年級三班鐘錶課件.swf。 (竅門:將Flash電影放入本地磁盤的一個檔案夾內,再將這個檔案夾開啟,將屏幕上方地址欄內的文字刮選,直接在Movie欄後的空格內點右鍵,按粘貼,在後面輸入Flash電影的名稱,如:鐘錶課件,再輸入.swf即可)。
7、把[Embed Movie]屬性設定成[True],表示把Flash電影嵌入演示文稿。這樣,您就不必擔心在另一臺機器上播放幻燈片是找不到Flash電影了。
7、這時,所有在屬性框內的操作全部完成,點擊屬性框右上角的[ ]。
8、把矩形框調整到合適的大小,播放,如果不出,可以儲存以後關閉幻燈片,然後再開啟即可。
2.怎麼用代碼編寫ppt1、新建一個Power Point文檔。
2、單擊工具欄內的[視圖]——[工具欄]——[控件工具箱] 3、單擊[其他控件](最後一個)4、單擊其他控件後,彈出選擇控件對話框,選擇[shockwave flash object]4、這時,遊標變成了一個十字形,在幻燈片中拖動鼠標,畫出一個矩形框,隨即,矩形框中出現了它的對角線。5、在矩形框上單擊右鍵,選擇[屬性]。
6、在屬性框中的movie欄中輸入Flash電影的完整路徑名稱,例如:E:六年級三班鐘錶課件.swf。 (竅門:將Flash電影放入本地磁盤的一個檔案夾內,再將這個檔案夾開啟,將屏幕上方地址欄內的文字刮選,直接在Movie欄後的空格內點右鍵,按粘貼,在後面輸入Flash電影的名稱,如:鐘錶課件,再輸入.swf即可)。
7、把[Embed Movie]屬性設定成[True],表示把Flash電影嵌入演示文稿。這樣,您就不必擔心在另一臺機器上播放幻燈片是找不到Flash電影了。
7、這時,所有在屬性框內的操作全部完成,點擊屬性框右上角的[ ]。8、把矩形框調整到合適的大小,播放,如果不出,可以儲存以後關閉幻燈片,然後再開啟即可。
3.如何用VB程序寫一個PPT演示文檔軟件示例代碼如下:
Dim op As PowerPoint.Presentation
Dim moPptApp As PowerPoint.Application
Dim moPptPresentation As Object
Dim mnPptAppWidth As Single '
Dim mnPptAppheight As Single
Set moPptApp = CreateObject("PowerPoint.Application")
Set moPptPresentation = moPptApp.Presentations.Open(App.Path & "test.ppt", , , False) '開啟應用程序目錄下的test.ppt檔案
With moPptPresentation.SlideShowSettings
.Run.Width = mnPptAppWidth '設定寬度
.Run.Height = mnPptAppheight '設定高度
.Run.Presentation.DisplayComments = False
.Run.Presentation.Saved = True
'.Run
End With
mopptapp.quit '退出。
4.ppt頁面上放一個文字方塊控件 怎麼透過vbs代碼使它獲得焦點假設第行文字方塊 名textbox1" , 面增減按鈕控件名SpinButton1"
加代碼即
Private Sub SpinButton1_SpinDown()
'設定限0
If Shapes("textbox1").TextFrame.TextRange > 0 Then
Shapes("textbox1").TextFrame.TextRange = Shapes("textbox1").TextFrame.TextRange - 1
End If
End Sub
Private Sub SpinButton1_SpinUp()
'需要設定限100
If Shapes("textbox1").TextFrame.TextRange < 100 Then
Shapes("textbox1").TextFrame.TextRange = Shapes("textbox1").TextFrame.TextRange + 1
End If
End Sub
其餘類似
用顯示數字文字方塊文字方塊控件假設名textbox1則代碼 Shapes("textbox1").TextFrame.TextRange
需要換 textbox1.value