如何设置鼠标移过图片时图片放大？

作者：绿色风分类：时间：2022-08-17 浏览：305

楼主
biaotiger1

Q：如何设置鼠标移过图片时图片放大？
A：“开发工具”选项卡→“控件”组→“插入”→“ActiveX控件”中的Image控件，在工作表适当位置按下鼠标并拖动则创建一个Image控件→右键单击该控件，弹出快捷菜单→“属性”，弹出“属性”对话框→在“Picture”框内单击，选择适当的图片→右键单击该控件，“查看代码”，输入代码如下：

Private Sub Image1_Click()
With Image1
.Height = 30
.Width = 50
End With
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Application.EnableEvents = False
With Image1
.Height = .Height + 0.5
.Width = .Width + 0.5
' .Picture = LoadPicture("d:\12.gif")
End With
Application.EnableEvents = True
End Sub

单击“开发工具”中的“设计模式”以取消其高亮。

此时，将鼠标移动到该图片上，则图片会放大。单击图片后图片停止放大，鼠标移开后图片恢复原始大小。

鼠标经过时图片变大117330.rar

2楼
lpzxhjp

2003怎么不能用？

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表