Excel中单击图片实现缩放功能

最新推荐文章于 2025-05-28 12:00:00 发布

原创最新推荐文章于 2025-05-28 12:00:00 发布 · 1.1w 阅读

7 ·

CC 4.0 BY-SA版权

本文介绍了一种在Excel中通过宏批量调整图片大小的方法，包括如何使用VBA代码实现图片尺寸的动态变化，以及如何设置图片随单元格移动和大小变化。

1. 在插入的图片上右键-Assign Marco
2. New
3. Insert following code，注意Click() 可能会有变化，以实际为准。

Option Explicit
Dim fd As Boolean
Sub Click()
fd = fd Xor True
With ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
    If fd Then
        .Width = .Width + 100
        .Height = .Height + 100
    Else
        .Width = .Width - 100
        .Height = .Height - 100
    End If
End With
End Sub

4. 这个操作是可以批量处理的，选中一张图片，然后ctrl+A，先更改属性 Move and size with cells, 然后再执行这个操作。
5. 还要执行一步操作，选中所有图片，右键 send to back
comment要写在左边