【Excel】让 AI 写一段Excel宏， 让某一列图片都放大2倍

合集 - Excel 专栏(8)

1.【Excel】Excel 如何让＝now()显示的时间不刷新？2023-08-082.【Excel】Excel 表格三列数据如何合并为一列2023-09-163.【Excel】Excel 打印表格时图片怎么固定在单元格里（VBA方法）2024-07-244.【Excel】如何互换两列位置2024-07-315.【Excel】字符比较函数2024-11-12

6.【Excel】让 AI 写一段Excel宏， 让某一列图片都放大2倍02-20

7.【Excel】快速输入当前日期+时刻的快捷键2024-12-318.【Excel】if函数怎么以文字为判断条件02-13

收起

背景

有了AI，Excel 中简单的宏编程就可以轻松地通过问 AI 实现。

以下是工作中遇到一个需要将某一列所有图片放大的需求，询问AI（豆包）回答得到的内容：

问题：

写一段Excel宏， 让G列图片都放大2倍。

 

豆包（AI）的回答

在 Excel 中，可以使用 VBA（Visual Basic for Applications）编写宏来实现将 G 列的图片放大 2 倍的功能。以下是具体步骤和代码示例：

步骤

1. 打开 Visual Basic 编辑器

• 如果你使用的是 Excel 桌面版，可以通过以下方式打开：在 Excel 界面中，依次点击 “开发工具” 选项卡（如果 “开发工具” 选项卡未显示，可通过 “文件” - “选项” - “自定义功能区”，在 “主选项卡” 列表中勾选 “开发工具” 来显示），然后点击 “Visual Basic” 按钮。
• 或者使用快捷键 Alt + F11 直接打开。

2. 插入新模块

在 Visual Basic 编辑器中，点击 “插入” 菜单，选择 “模块”，这将在项目资源管理器中创建一个新的模块。

3. 编写宏代码

在新插入的模块窗口中，粘贴以下代码：

Sub EnlargeImagesInColumnG()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        ' 检查图片的左上角单元格是否在G列
        If Not Intersect(shp.TopLeftCell, Columns("G:G")) Is Nothing Then
            ' 将图片的宽度和高度放大2倍
            shp.Width = shp.Width * 2
            shp.Height = shp.Height * 2
        End If
    Next shp
End Sub

4. 运行宏

• 编写好代码后，将光标放在代码区域内，点击工具栏上的 “运行” 按钮（绿色三角形图标），或者使用快捷键 F5 来运行宏。
• 也可以在 Excel 界面中，点击 “开发工具” 选项卡，然后点击 “宏” 按钮，在弹出的 “宏” 对话框中选择 EnlargeImagesInColumnG，再点击 “运行”。

代码解释

• Sub EnlargeImagesInColumnG()：定义一个名为 EnlargeImagesInColumnG 的子过程，即宏的名称。
• Dim shp As Shape：声明一个变量 shp，用于表示工作表中的每个图片对象。
• For Each shp In ActiveSheet.Shapes：遍历当前工作表中的所有图片对象。
• If Not Intersect(shp.TopLeftCell, Columns("G:G")) Is Nothing Then：检查图片的左上角单元格是否位于 G 列，如果是，则执行下面的放大操作。
• shp.Width = shp.Width * 2 和 shp.Height = shp.Height * 2：将图片的宽度和高度分别放大 2 倍。
• Next shp：结束循环，继续处理下一个图片对象。
• End Sub：结束子过程。

 

通过以上步骤和代码，你可以将 G 列中的所有图片放大 2 倍。