ppt控件代码怎么写 - 怎么用代码编写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.怎么用代码编写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