你的textbox1的value要定义到你想要的，比如第二题 设置 private sub commandbutton6_clicki=0 if shide1textbox1value = quotin the gardonquot then i =i +10 elseif 要定义到值啊，不然你的条件没有判断啊；ppt中想要实现编程效果，可以使用vba实现1首先，我们点击开发工具选项卡2然后我们便可以看到VBA命令按钮3此时，页面将会成功弹出窗口，然后我们便可以在这里加入各种类型4然后我们便可以开始运行测试。
在PPT里插入一个CommandButton1的命令按钮，双击它，复制粘贴如下代码，放映时点击按钮会自动变颜色按钮字体颜色本来就是黑色吧Private Sub CommandButton1_ClickIf CommandButton1BackColor = RGB236， 233， 216；下面是一个例子，来自网络下面代码是把第二张幻灯片的标题设置为第一张幻灯片的文件框的内容ActivePresentationSlides2Shapes1 = ActivePresentationSlides1Shapes3。
1打开ppt，在上面的工具栏中找到开发工具并点击PPT使用VBA代码编程的教程 PPT使用VBA代码编程的方法 2点击过后就可以看到VBA命令按钮了如图PPT使用VBA代码编程的教程 PPT使用VBA代码编程的方法 3点击；一采用ApplicationOnTime实现计时器的方式 view sourceprint？01#39=== 02#39 VBA采用ApplicationOnTime实现计时器 03#3905#39=== 06Public RunWhen As Double 07Public Const cRunIntervalSeconds = 120 #39 two minu。
1运行PowerPoint2003，单击“文件”“保存”命令，弹出“另存为”对话框，文件名设为“测验”，单击“保存”命令2单击“插入”“文本框”“水平”命令，这时鼠标变成“1”字型，在编辑区内单击鼠标左键拖动鼠标；Set shp2 = Slides2Shapesquot标题 1quot#39将要添加效果的形状对象赋值给定义的 shp2，幻灯片编号要自己改，形状的名称要自己改Slides2TimeLineAddEffectshp2， #39在幻灯片 2 的动画序列中添加一个 Effect。
VBA全称是Visual Basic for Application，其中Visual BasicVB是一种编程语言，Application就是指Word，Excel，Access，Powerpoint等应用软件在这些软件中叫“宏”理论上，在PPT中的任何手动操作都可以通过VBA来实现。
powerpoint vba编程手册
外观自定义比如做成C4的形状不懂这是什么意思 只做了下面这个要求，仅作参考吧随着触发某个事件的同时开始倒计时一定的秒数比如5分钟能够在vba中调整其实际速度，譬如每显示跳了1秒而实际过了1100毫秒在窗体。
按“F5”键播放幻灯片，在标题页中单击“出题”按钮，PowerPoint将随机跳转到其后的一张幻灯片显示题目单击题目页中的“回到首页”按钮。
SlideShowWindows1ViewGotoSlide 5 Slide4CommandButton1Caption = 1 把每一张去5的代码都改成这样，第二句里的1是变动的，这个按钮在那张幻灯片的数字，比如在第二张里就改成2 最后把5里的代码改成 SlideShow。
用vba做炫酷ppt
用SlideShowView对象的View方法，可用SlideShowWindowsn返回SlideShowView对象，First Last Next Previous GotoSlide GotoNamedShow 分别对应第一张最后一张下一张前一张指定张命名张，例如ActivePresentati。
vba在powerpoint中的应用被称为powerpoint制作的高级部分，很多人都无法去学习，都似乎敬而远之你可能对VBA编程已有相当丰富的经验，希望你能把你的经验交流给大家，可能你还是初学者，大家一起来学习，让我们都成为powerpoint。
首先，打开 PowerPoint 2013，并按下 ALT + F11 组合键打开 VBA 编辑器在左侧的项目资源管理器窗口中，双击 quotThisPresentationquot 以打开该演示文稿的代码窗口在代码窗口中，输入以下代码Option Explicit Private Sub Shap。
以下是通过VBA修改PPT图表数据源源代码，原理就是获取图表后台Link的Excel对象，再操作该对象Visual Basic code？1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30。
