【不懂编程也没关系】Excel+VBA轻松实现点击工作表中图片放大效果!

极客小俊

已于 2024-06-27 14:58:10 修改

阅读量583

点赞数 4

分类专栏： office 文章标签： VBA 编程开发 Excel 图片缩放办公必备免费教程程序员技巧

于 2024-06-27 00:42:32 首次发布

本文链接：https://blog.csdn.net/windowsxp2018/article/details/140001593

版权

office 专栏收录该内容

6 篇文章 2 订阅

订阅专栏

🚀 个人主页 极客小俊
✍🏻 作者简介：程序猿、设计师、技术分享
🐋 希望大家多多支持, 我们一起学习和进步！
🏅 欢迎评论 ❤️点赞💬评论 📂收藏 📂加关注

前言

我们有的时候在Excel表中可能有这样一个需求，当插入图片之后，万一某个时刻我们想点击这个图片并且放大来查看的时候，应该怎么办呢？

就像这样的效果！

如图

要实现这种效果的方法的确有很多,但最方便的办法依旧是通过编程来实现!

这里我们就用VBA编程来实现这个需求!

操作步骤

那么废话不多说，我们马上开始接下来的操作!~~

首先打开我们的Excel, 然后按下快捷键alt + F11

如图

然后双击左侧边栏中的ThisWorkbook，弹出代码输入框:

如图

具体代码如下

Private Sub Workbook_Open()
    Dim GeekerName$
    On Error Resume Next
For Each a In Sheet1.Shapes
If a.Type = 1 Or a.Type = 13 Then
    a.OnAction = "test"
    GeekerName = a.TopLeftCell.Address(0, 0)
    Do
        a.Name = GeekerName
        If Err = 0 Then Exit Do
                GeekerName = GeekerName & "_0"
                Err.Clear
            Loop
        End If
    Next
End Sub

如图

记住，输入完成之后不要按快捷Ctrl + s 先不要去保存，直接把代码输入框关闭掉

接下来我们在左侧资源管理界面中的空白区域 单击鼠标右键，在弹出的菜单中选择插入-->模块

如图

此时又会弹出一个代码编辑输入窗口，让我们输入代码

如图

具体输入代码如下

Sub test()
    On Error Resume Next
    For Each a In ActiveSheet.Shapes
        If a.Type = 1 Or a.Type = 13 Then
            If a.Name = Application.Caller And a.AlternativeText = Empty Then
                a.AlternativeText = a.Height & Chr(28) & a.Width
                a.Height = a.Width * 3
                a.Width = a.Width * 3
                a.ZOrder msoBringToFont
            Else
                a.Height = Split(a.AlternativeText, Chr(28))(0)
                a.Width = Split(a.AlternativeText, Chr(28))(1)
                a.AlternativeText = Empty
            End If
            Err.Clear
        End If
    Next
End Sub

如图