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

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要写在左边