显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

徐彩刚的博客

我的站:MathCai.Com

 
 
 
 
 
 

【转载】[转]ppt用vba

2012-8-26 17:12:55 阅读69 评论0 262012/08 Aug26

老婆的ppt用vba全部搞定了。。。powerpoint的研究就此收手。

2009年03月22日 21:53

参考了英文教程:很有用的,就翻译了一点,嘻嘻。有空再说(估计就此over了。)发布一下:

http://docs.google.com/Doc?id=dfvhqg8g_38f3ptkddq

-------------- 记录当前的显示的页面,可以返回原调用页。

'

Dim oOld As Integer

'

'

Private Sub lbback_Click()

'

    If oOld > 0 Then

        ActivePresentation.SlideShowWindow.View.GotoSlide oOld

    End If

End Sub

Private Sub lbContent_Click()

   'oOld = ActiveWindow.Selection.SlideRange.SlideNumber

   i = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex

   If i <> ActivePresentation.Slides("showmark").SlideNumber Then

        oOld = i

作者  | 2012-8-26 17:12:55 | 阅读(69) |评论(0) | 阅读全文>>

【转载】开始研究powerpoint的vba啦~~

2012-8-26 17:12:33 阅读44 评论0 262012/08 Aug26

开始研究powerpoint的vba啦~~

打算用powerpoint作为主要讲课手段,让俺给她做一个记分用的系统,就是分几个大组,给每个组加小星星什么的。。这个简单,就是vb的语法都忘光光,powerpoint的vba帮助也都没有装。。。好在找到一个不错的e文的vba网站,学了不少东东,大体搞出来了。。。回头改改。。。

'

Dim group(9) As Integer

Dim stars(9, 10) As Integer

'

Private Sub substar(a_idx As Integer)

    If UBound(group) >= a_idx Then

        Debug.Print CStr(a_idx) + "组现在有星星" + CStr(group(a_idx)) + " substract ----- "

sName = "star" + CStr(a_idx) + "N" + CStr(group(a_idx))

作者  | 2012-8-26 17:12:33 | 阅读(44) |评论(0) | 阅读全文>>

【转载】关于PowerPoint中VBA的小专题

2012-8-26 17:12:06 阅读45 评论0 262012/08 Aug26

PowerPoint中的VBA可以实现很多复杂的交互,但很多老师面对VBA编程,都会觉得无从下手。所以本期我们为大家安排了一个关于PowerPoint中VBA的小专题,以后在课件中实现交互就不会那么费劲了。

VBA基础

说到VBA编程,就不得不提到控件工具箱,我们需要利用其中的控件搭建需要的环境。

1. 显示控件工具箱

在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。

2. 控件工具箱(如图1)中常用按钮的介绍

(1)复选框(CheckBox):可以选择多个选项,常用来设计多选题;(2)文本框(TextBox):可以输入文本,常用来设计填空题;(3)命令按钮(CommandButton):用来确定选择或输入,也可设计超级链接;(4)单选框(OptionButton):只能选中一个选项,常用来设计单选题或判断题;(5)标签(Label):用来显示文字信息。

3. 插入控件的方法

单击控件工具箱上的工具按钮,然后在幻灯片中拖动到适当大小即可。

4. 进入VBA的方法

双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VBA编程状态。

5. 控件的主要属性及设置方法

进入VBA后,需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口,按F4键即可调出该窗口。下面我们就不同的控件,来说明常用属性的设置方法。

作者  | 2012-8-26 17:12:06 | 阅读(45) |评论(0) | 阅读全文>>

【转载】PPT的vba编程初步入门作业

2012-8-26 17:11:44 阅读124 评论0 262012/08 Aug26

这个星期是最后的通牒时间,要交作业了。报了这门功课,一直没有真正去学习,而作业并不简单。

花了一整天时间,借用其他学员共享的例子,结合课程,终于完成其中的练习,终于可以松一口气了。

谢谢学友的共享,有时解人于燃眉之急,助人为乐,何尝不是一种美德!

一、第一、二章作业

第1小题:根据你任教的学科,你认为利用Powerpoint制作多媒体课件,存在最大的问题是什么?你想如何解决这些问题?

第2小题:联系教学实际,设计二页幻灯片。

要求实现下面操作与功能:给图形变颜色及移动带图片的小黑板。

要求如下:  在第一页幻灯片中,添加三个自选图形、二个“命令按钮”控件, 要求使用这两个命令按钮分别控制二套颜色方案,对三个自选图形控制颜色。  在第二页幻灯片中,添加一个“命令按钮”控件,再在VBA编辑器中设计一个“用户窗体”,在“用户窗体”中插入一幅图片(或一段文字框)。在幻灯片放映时,点击“命令按钮”就可以弹出带“用户窗体”的图片,同时,你还可以随时移动这个图片,好象在课堂教学中要移动一块小黑板一样方便。

二、第三至第五章作业

第3小题:联系你的教学需要,制作具有交互式的练习试题PPT课件。

作业要求:至少制作二张幻灯片,在第一张幻灯片上制作一道单项选择题;在第二张幻灯片上制作一道多项选择题。题目内容不限,每道题有多个选择答案提供选择,当选择答案后,点击“提交答案”按钮,然后根据作答情况作出判断,并显示提示框:如果所选择的答案是对的,弹出一个“恭喜你,选择正确!”对话框;但如果选择错误了,则弹出“选择错误,请再想想!”对话框。

作者  | 2012-8-26 17:11:44 | 阅读(124) |评论(0) | 阅读全文>>

【转载】在ppt中vba的属性,类,方法

2012-8-26 17:11:26 阅读31 评论0 262012/08 Aug26

在ppt中vba的属性,类,方法

1.Application对象 该对象代表PowerPoint应用程序,通过该对象可访问PowerPoint中的其他所有对象。 

(1)Active属性:返回指定窗格是否被激活。 

(2)ActivePresentation属性:返回Presentation对象,代表活动窗口中打开的演示文稿。 

(3)ActiveWindow属性:返回DocumentWindow对象,代表当前文档窗口。 

(4)Presentations属性:返回Presentations集合,代表所有打开的演示文稿。 

(5)SlideShowWindows属性:返回 SlideShowWindows集合,代表所有打开的幻灯片放映窗口。

(6)Quit方法:用于退出PowerPoint程序。

2.DocumentWindow对象 该对象代表文档窗口。使用“Windows(index) ”语法可返回DocumentWindow对象。 

(1)ActivePane属性:返回Pane对象,代表文档窗口中的活动窗格。 

(2)Panes属性:返回Panes集合,代表文档窗口中的所有窗格。 

(3)ViewType属性:返回指定的文档窗口内的视图类型。[NextPage]

3.Presentation

作者  | 2012-8-26 17:11:26 | 阅读(31) |评论(0) | 阅读全文>>

【转载】【VBA构想】自杀PPT

2012-8-26 17:11:10 阅读76 评论0 262012/08 Aug26

网上有很多关于Word和Excel的自杀代码,但是,我们不难发现,PPT都不能实现。

难点1:PPT的代码规范和Excel等不一致

难点2:Auto_Run并非真正的运行,只会在插件的状态下运行

难点3:OnSlideShowPageChange和OnSlideShowTerminate不会在自动放映的PPT里面运行(原因不详)

难点4:利用控件会被提醒禁用,利用宏会在对方设置宏安全性为高时失败

面对这么多难处,我尝试了好久,想到了,利用PPT程序做一个后台,来打开目标文件的办法。具体原理如下:

主PPT:

1、设置VBA访问密码

2、保存为自动放映型的PPT(即后缀为pps或者ppsm)

3、代码原理:建立一个按钮即可

读取注册表--》判断打开次数--》范围内则打开同一文件夹下的PPT文件(用密码);否则退出本PPT

欲打开的PPT:

1、设置打开密码(让别人无法直接打开)

理论是可行的啦~马上再试试看。

作者  | 2012-8-26 17:11:10 | 阅读(76) |评论(0) | 阅读全文>>

制作方法: 

在网页最前面新增加以下代码即可: 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd"> 

<STYLE>HTML { FILTER: progid:DXImageTransform.Microsoft.BasicImage(grayscale=1) }</STYLE>

作者  | 2012-8-26 17:09:53 | 阅读(27) |评论(0) | 阅读全文>>

笑死我了,交友要慎重啊!

2012-8-4 10:58:25 阅读33 评论0 42012/08 Aug4

作者  | 2012-8-4 10:58:25 | 阅读(33) |评论(0) | 阅读全文>>

查看所有日志>>

 
 
 
 
 
 
 
 

江西 宜春

 发消息  写留言

 
博客等级加载中...
今日访问加载中...
总访问量加载中...
最后登录加载中...
 
 
 
 
 
 
 
心情随笔列表加载中...
 
 
 
 
 
 
 
日志评论
评论列表加载中...
 
 
 
 
 
 我要留言
 
 
 
留言列表加载中...
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018

注册 登录  
 加关注