VBA导出图片

最新推荐文章于 2024-08-06 11:07:06 发布

nibiru0810

最新推荐文章于 2024-08-06 11:07:06 发布

阅读量546

点赞数

文章标签：开发语言

原文链接：https://blog.csdn.net/baojie5826/article/details/100952529

版权

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