假如（A、B列）为产品编号和名称、C列为（缩小的）图片；如何批量导出原图？并按AB列产品编号和名称命名？

宏使用方法：
1.Alt+F11进入VBE
2.菜单 插入-模块
3.复制以下代码到光标处
4.Alt+F11回到Excel,Alt+F8,选择ReNamePic执行。

Sub ReNamePic()
Dim Sht As Worksheet
Dim Pic As Shape
    On Error Resume Next
    For Each Sht In Sheets
        For Each Pic In Sht.Shapes
            If Pic.Type = msoPicture Then
                Pic.Name = Pic.TopLeftCell.Offset(0, 1).Text
            End If
        Next
    Next
End Sub

批量导出比较容易，将工作簿另存为 网页（*.htm;*html）然后到保存路径下找同名的文件夹，文件夹内就是所有的图片了。