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

马九克教育技术应用研究工作坊

马九克:上海市七宝中学特级教师,ppt5168@163.com

 
 
 

日志

 
 
关于我

物理特级教师,全国优秀教师,2013年上海教育年度十大新闻人物。华东师范大学慕课中心兼职教授,华东师大网络学院特聘专家,微软(中国)精英培训师,独立承担着“上海市中小学教师信息技术有效应用”课程的开发工作。“马九克教育技术应用研究名师工作室”主持人。中国教师报教育技术应用培训专家。2014年教师节入选上海百名名师《教育人生》大型画册。在教学工作之余,自学多媒体信息技术,特别是将Office常用软件应用于教育教学工作的研究和实践突破常规,创新思维。出版的系列专著八本。上海市及全国各地培训达800多场。

网易考拉推荐

powerpoint中控件工具箱中图片滚动条的设置  

2009-03-05 00:53:49|  分类: PPT应用技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
         在确保VBA代码来源合法和运行无害的前提下,需要降低PPT的安全等级以使VBA代码得以执行。选择”工具→宏→安全性”菜单,将安全级别设为”低”,同时将”可靠发行商”页下的”信任对于Visual Basic项目的访问”项勾选。
创建PPT
1.在PPT中新建空幻灯片。
2.选择”视图→工具栏→控件工具箱”菜单,打开控件工具箱。
3.点击控件工具栏的”标签”控件,在空幻灯片中拖出标签对象Label1。然后点击控件工具栏的”属性”按钮,打开属性栏,设置Label1的Caption、Font、ForeColor、BackStyle等属性。
4.点击”图像”控件,在幻灯片中添加图像对象Image1。在Image1的属性栏中,设置它的AutoSize、Picture属性,加入图片文件并让图像对象适应图片的大小。
添加代码
双击Label,或选择”工具→宏→Visual basic编辑器”菜单,打开VBA,选择Label1对象,再选择对应的MouseDown、MouseMove和MouseUp事件,加入以下代码:
Dim X1, X2, X3, X4, X5, X6 As Integer, Y1, Y2, Y3, Y4, Y5, Y6 As Integer, Down As Boolean ‘设置全局变量,X1、Y1等为Label1等对象的初始坐标值
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not Down Then
X1=X
Y1=Y
Down=True
End If
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
’如果鼠标已按下,设置Label1新的坐标值
If Down Then
Label1.Left=Label1.Left X-X1
Label1.Top=Label1.Top Y-Y1
X1=X
Y1=Y
End If
End Sub
Private Sub Label1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Down=False
SlideShowWindows(1).View.First’刷新屏幕,使用PowerPoint XP/2003时加入此句
End Sub
为Image1加入以下VBA代码:
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not Down Then
X4=X
Y4=Y
Down = True
End If
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
’如果鼠标已按下,设置Label1新的坐标值。
If Down Then
Image1.Left=Image1.Left X-X4
Image1.Top=Image1.Top Y-Y4
X4=X
Y4=Y
End If
End Sub
Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Down=False
SlideShowWindows(1).View.First’刷新屏幕,使用PowerPoint XP/2003时加入此句
End Sub
  评论这张
 
阅读(3694)| 评论(2)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

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