VBA 技巧：将图片保存到指定位置

Sub SavePicture() Dim pic As Shape Dim picPath As String

Set pic = ActiveSheet.Shapes('Picture 1') ' 设置图片的名称
picPath = 'C:\Users\example\Desktop\picture.png' ' 设置保存路径及文件名

pic.CopyPicture ' 复制图片

With New Chart
    .Paste ' 将图片粘贴到图表中
    .Export picPath, 'PNG' ' 将图表保存为 PNG 格式的图片
    .Delete ' 删除图表
End With

End Sub