1. 在插入的图片上右键-Assign Marco
2. New
3. Insert following code,注意Click() 可能会有变化,以实际为准。
5. 还要执行一步操作,选中所有图片,右键 send to back
comment要写在左边
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要写在左边