本文目录一览：
ppt里怎么使用vb代码
第一种方法，工具---宏--VB编辑器
第二种方法，视图---工具栏---控件工具箱，现在就可以把工具箱里面的控件，点一下，然后在PPT白板上拖放，在上面双击鼠标，就可以编写相应代码。
详细情况，去买本书，专门讲解VBA的
能不能把vb程序插入ppt上，如果可以，如何做。
不是很懂你的意思。可以直接在PPT上用开发工具进行VB代码的编写。拿office
2007的powerpoint来说。
在“自定义快速访问工具栏”里选择“其他命令”，会有一个“powerpoint选项”对话框，在“常用”项
勾选“在功能区显示"开发工具"选项卡”。就可以在PPT上写VB的程序代码（应该算是office
的VB脚本代码吧），跟VB的代码类似。
当然这种代码是VB语言的，并不具有VB的全部功能。。
vb里面，如何打开PPT、DOC文件？
分类: 电脑/网络 程序设计 其他编程语言
问题描述:
我要在一个程序里面，打开保存在电脑里面的PPT、DOC、SWF，等文件
我知道打开exe是用 Shell命令，那打开上面这些文件呢？
例：单击cmd1按钮，打开"C:/a.doc" 文件
请写出代码，谢谢
解析:
当然是使用VBAPI了
创建窗体工程
先声明如下
const SW_SHOW =5
private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
然后你就调用吧
ShellExecute Me.hwnd, "open", "winword.exe", "d:\\111.doc", "", SW_SHOW
保证好使
VB怎么打开PPT，然后对其进行一些操作？
窗体上放一个按钮,引用Microsoft Powerpoint 11.0 Object Library,
因为,我用的是Office2003,可能你的是其他版本,那么这里的11可能是12或其他!
代码如下,复制了就能用,但是再次提醒,要做上面的引用!
Option Explicit
Private Sub Command1_Click()
Dim pptApp As PowerPoint.Application
Dim MyPresentation As Presentation
Set pptApp = CreateObject("PowerPoint.Application") '创建PowerPoint对象实例
Set MyPresentation = pptApp.Presentations.Add(True) '设置幻灯片对象创建新的幻灯片
MyPresentation.Slides.Add 1, 12 '添加一页空白幻灯片
MyPresentation.Slides(1).Shapes.AddTextbox 1, 40, 160, 650, 50 '添加1个文本框
MyPresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = "欢迎你使用VBA PowerPoint！" '在文本框里编辑文本
MyPresentation.Slides(1).Shapes(1).TextFrame.TextRange.Paragraphs(1).ParagraphFormat.Alignment = ppAlignCenter '设置文本框居中对齐
MyPresentation.Slides(1).Shapes(1).TextFrame.TextRange.Font.Name = "宋体" '设置文本框字体
MyPresentation.Slides(1).Shapes(1).TextFrame.TextRange.Font.Size = 40 '设置文本框字号
MyPresentation.Slides(1).Shapes(1).TextFrame.TextRange.Font.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '设置文本框文字颜色
MyPresentation.SaveAs ("c:\111.ppt") '保存到文件
MyPresentation.Close '关闭幻灯片
Set MyPresentation = Nothing '释放内存空间
pptApp.Quit '关闭PowerPoint
Set pptApp = Nothing '释放内存空间
End Sub
