工作团队意识的重要性:powerpoint中控件工具箱中图片滚动条的设置 - 马九克的日志 - 网易博客
来源:百度文库 编辑:中财网 时间:2024/05/08 03:58:36
powerpoint中控件工具箱中图片滚动条的设置
PPT应用技巧 2009-03-05 00:53:49 阅读1256 评论1 字号:大中小 订阅
在确保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
ppt中控件工具箱为何不能用?
在OFFICE中怎么样把控件工具箱调出来。~?
为什么我在.net 左边工具箱中找不到treeview控件
Powerpoint中关于vba控件属性的问题。
如何在C#中添加MSComm控件,工具箱中没有啊~!
在VB6.0中如何在工具箱中添加多媒体控件MMControl?
如何在PowerPoint中锁定图片
控件工具箱
我在vc++6.0中找不到对话框中的控件工具箱,如何使它出现?
Delphi中自定义的组件怎样才能在控件工具箱中看到?
有防火墙的电脑为什么不能利用控件工具箱在ppt中如何插入flash文件
我在Microsoft Office PowerPoint 2003中制作的演示文稿为什么不能插控件?
我在Microsoft Office PowerPoint 2003中制作的演示文稿为什么不能插控件?
有关于PowerPoint中以“控件”的方式插入FLASH.swf文档的问题?
Powerpoint 控件中怎么找不到Animation GIF Control和ActiveMovieControl Object?
powerpoint 中文字输入插入项目选图片卡死
如何在powerpoint中插入循环播放的一系列图片
怎样把powerpoint中所含的图片提取出来
powerpoint 中能添加属性为gif的图片吗?
怎样在powerpoint中使图片能够移动
如何在powerpoint中加音乐,动画格式图片,视频
POWERPOINT中插入图片音乐视频的问题
POWERPOINT中插入图片音乐视频的问题
怎么改变C#中用户控件在工具栏的图片