Excel VBA 图片缩放-鼠标移上自动放大

Excel VBA 图片缩放-鼠标移上自动放大Excel 图片永远都是经典的话题和VBA的重点功能，大家都用过淘宝或其它这类网店，在网店上商品展示时，有个预览小图，鼠标移到图片上，图片会自动展示一个大图，这个功能就是在Excel中实现类似的功能。
作者：江苏大侠-Office中国

1480257657121018.jpg (36.13 KB, 下载次数: 0, 售价: 4 金钱)

2022-5-3 10:05 上传

点击文件名下载附件
1480257657121018.jpg

Excel 图片缩放的操作动画：
1480257677109408.gif (132.6 KB, 下载次数: 0, 售价: 4 金钱)

2022-5-3 10:05 上传

点击文件名下载附件
1480257677109408.gif

详细的Excel VBA 图片缩放代码：Option ExplicitDeclare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongType POINTAPI  x As Long  y As LongEnd TypeDim pd As Boolean, 鼠标位置图片, 前面已选图片Sub 缩放图片()  On Error Resume Next  Dim 鼠标位置 As POINTAPI  pd = True  Do While pd = True    GetCursorPos 鼠标位置    Set 鼠标位置图片 = ActiveWindow.RangeFromPoint(鼠标位置.x, 鼠标位置.y)    If 鼠标位置图片 Is Nothing Then      GoTo 100    Else      If 鼠标位置图片.Name  前面已选图片.Name Then        With 鼠标位置图片          .Width = .Width * 4          .Height = .Height * 4          .ShapeRange.ZOrder msoBringToFront        End With100:        With 前面已选图片          .Width = .Width / 4          .Height = .Height / 4        End With      End If    End If    Set 前面已选图片 = 鼠标位置图片    DoEvents  LoopEnd SubSub 关闭缩放()  pd = FalseEnd Sub
Office中国源创技巧，转载请保留本部落说明学好Excel,可以让你的工作效率成倍提高，让你的薪水也稳步增长，让你的职位也快速提升。
Excel不仅仅是电子表格，它有很多好玩的方式。努力学习吧，每天一个源创技巧，让你信心满满的。