使表格中的图片具有点击放大和还原效果VBA实例教程
除非注明，文章均为 战战如疯 原创，转载请保留链接: /cat4/563.html，VBA交流273624828。
在之前的文章“VBA制作Excel中图片点击放大和还原的效果”中我们从插入图片开始做了一个图片点击可以放大缩小的特效，但有的朋友在应用中表格是提前做好的，图片也已经插入了，结果就不会用我的那段代码了。那这节我再来讲一下这个问题。
这个的思路就是给图片加一个响应程序，在上篇文章中加响应程序的代码是“Selection.OnAction = "ActionClick"”，如果你的图片已经插入好了只需要这一句就够了。
将下面两段代码分别复制到你做好的表格中
Sub ZhaoPian()
Dim target, sht, rn, mypath, shp, i
For Each shp In Sheets(1).Shapes
shp.OnAction = "ActionClick"
Next
End Sub
Sub ActionClick()
Static n, x
Application.ScreenUpdating = False
If x = Application.Caller Then
html特效代码银河系下载n = n + 1
If (n Mod 2) = 1 Then
With Sheet1.Shapes(Application.Caller)
.ScaleHeight 2, msoFalse, msoScaleFromTopLeft
.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
.ZOrder msoBringToFront
End With
Else
With Sheet1.Shapes(Application.Caller)
.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
.ZOrder msoBringToFront
End With
End If
Else
If (n Mod 2) = 1 Then
With Sheet1.Shapes(x)
.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
.ZOrder msoBringToFront
End With
With Sheet1.Shapes(Application.Caller)
.ScaleHeight 2, msoFalse, msoScaleFromTopLeft
.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
.ZOrder msoBringToFront
End With
Else
With Sheet1.Shapes(Application.Caller)
.ScaleHeight 2, msoFalse, msoScaleFromTopLeft
.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
.ZOrder msoBringToFront
End With
n = n + 1
End If
x = Application.Caller
End If
Application.ScreenUpdating = True
End Sub
第1段代码就是给表格中所有的图片对象都加个响应的动作,代表当点击图片时就执行”ActionClick“这个程序，第二段代码就是ActionClick了，运行一下第1段代码，你会发现Sheet1表中所有的图片对象都可以响应点击了，就是这么简单。
示例文件下载： pan.baidu/s/1bnH9zSr 。
0
您可能也喜欢：
∙VBA制作Excel中图片的点击放大和还原效果
∙鼠标经过图片时放大效果的制作
∙将网页图片下载到本地
∙工作表基本操作—单元格（1）
∙批量打印word文档小程序
∙正则表达式基础符号（1）
∙VBA定时执行某程序-OnTime
∙VBA窗体之列表框的基本用法
无觅关联推荐[?]
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论