育才学习网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、在矩形框上单击右键，选择[属性]。
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
转载请注明出处育才学习网 » ppt控件代码怎么写(怎么用代码编写ppt)