怎麼用代碼編寫ppt|ppt控件代碼怎麼寫

欄目: 綜合知識 / 發佈於: / 人氣:2.24W

1.怎麼用代碼編寫ppt

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.怎麼用代碼編寫ppt

1、新建一個Power Point文檔。

2、單擊工具欄內的[視圖]——[工具欄]——[控件工具箱] 3、單擊[其他控件]（最後一個）4、單擊其他控件後，彈出選擇控件對話框，選擇[shockwave flash object]4、這時，光標變成了一個十字形，在幻燈片中拖動鼠標，畫出一個矩形框，隨即，矩形框中出現了它的對角線。5、在矩形框上單擊右鍵，選擇[屬性]。

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

Tags：ppt 控件代碼編寫