多区域批量导入图片

jellyguoyunl

求说明：1，能够同时在4个图片区域(A,G,M,S列）导入，对应编码区域（E,K,Q,W列）的图片。
                 2，能够添加一个批量清除导入图片的功能（为了EXCEL不会因为图片多，变得很大很慢）。
                3，另外有个点击图片就放大，再点击就还原的功能。

jellyguoyunl

3号功能的代码（坛子里收藏的）：

Sub ActionClick()
Static n
    Application.ScreenUpdating = False
    n = n + 1
    If (n Mod 2) = 1 Then
    With Sheets("物料信息库").Shapes(Application.Caller)
        .ScaleHeight 2, msoFalse, msoScaleFromTopLeft
        .ScaleWidth 2, msoFalse, msoScaleFromTopLeft
        .ZOrder msoBringToFront
    End With
    Else
    With Sheets("物料信息库").Shapes(Application.Caller)
        .ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
        .ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
        .ZOrder msoBringToFront
    End With
    End If
    Application.ScreenUpdating = True
End Sub

jellyguoyunl

补充下，图片自动填满单元格，不会因为图片大小而导致图片填充不满或者越界