VBA导出图片

Sub export_pic()
 

For Each shap In ActiveSheet.Shapes  '//循环所有图片
    Set Rng = shap.TopLeftCell  '//Range 对象，它代表位于指定对象左上角下方的单元格
    'MsgBox shap.Name & "--" & Rng.Address
    shap.Copy  '//复制图片
       With ActiveSheet.ChartObjects.Add(0, 0, shap.Width, shap.Height).Chart  '//建立一个新图片
            .Paste  '//将复制的图片放进去
            .Export ThisWorkbook.Path & "/" & "a" & ".JPG"  '//导出为图片格式，如JPG，GIF
            .Parent.Delete   '//删除自己建立的图片
        End With
Exit For
Next


End Sub