Excel 图片永远都是经典的话题和VBA的重点功能，大家都用过淘宝或其它这类网店，在网店上商品展示时，有个预览小图，鼠标移到图片上，图片会自动展示一个大图，这个功能就是在Excel中实现类似的功能。
作者：江苏大侠-Office中国
Excel 图片缩放的操作动画：
详细的Excel VBA 图片缩放代码：
Option Explicit
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
x As Long
y As Long
End Type
Dim 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 With
100:
With 前面已选图片
.Width = .Width / 4
.Height = .Height / 4
End With
End If
End If
Set 前面已选图片 = 鼠标位置图片
DoEvents
Loop
End Sub
Sub 关闭缩放()
pd = False
End Sub
Office中国源创技巧，转载请保留本部落说明
学好Excel,可以让你的工作效率成倍提高，让你的薪水也稳步增长，让你的职位也快速提升。
Excel不仅仅是电子表格，它有很多好玩的方式。努力学习吧，每天一个源创技巧，让你信心满满的。
