批量导出选择的图片

kaka1295

各路大神，小弟查了论坛上的很多帖子，只有一次性导出所有图片的，但是我想要的功能是能够导出我选择的图片，请教各位大神该如何改呢？



Sub save_pic()
Dim shap As Shape
Dim i As Integer
With ActiveSheet
    For i = 1 To .Shapes.Count
        Set shap = .Shapes(i)
        shap.Copy
    With .ChartObjects.Add(0, 0, shap.Width, shap.Height).Chart
        .Parent.Select
        .Paste
        .Export ThisWorkbook.Path & "\" & i & ".jpg"
        .Parent.Delete
    End With
    Next
End With
End Sub

taller

chzsh

taller 发表于 2023-2-3 00:47

不知为什么有错误

taller

chzsh

taller 发表于 2023-2-3 08:00

还是不行，麻烦你再看看

ivccav

chzsh 发表于 2023-2-3 08:09
还是不行，麻烦你再看看

要选择2张以上图片才能运行。选择1张图片，selection无法运行

taller

kaka1295

taller 发表于 2023-2-3 10:28

感谢版主，但似乎还是不行哦，是哪里出了问题呢，大神!

taller

kaka1295 发表于 2023-2-3 10:57
感谢版主，但似乎还是不行哦，是哪里出了问题呢，大神!

With ActiveSheet

kaka1295

taller 发表于 2023-2-3 11:50
With ActiveSheet

加上了，虽然运行不报错，但是似乎中间的执行过程都跳过了，并没有导出任何东西。