思路:选择图片→复制为图片→建立一个空白的图表→粘贴图片→导出为独立的文件
Private Sub CommandButton1_Click()
Dim i As Integer
Dim ch As Chart
Dim cht As ChartObject
Dim sh As Shape
Dim strPath As String
For i = 1 To ActiveSheet.Shapes.Count
Set sh = ActiveSheet.Shapes(i)
strPath = Application.Workbooks(1).Path & "\ToolPicture"
sh.CopyPicture
Set cht = ActiveSheet.ChartObjects.Add(0, 0, 200, 200)
With cht
.Chart.Paste
.Chart.Shapes(0).Height = 200
.Chart.Shapes(0).Width = 200
If Len(sh.AlternativeText) <> 0 Then
strPath = strPath & "\" & sh.AlternativeText & ".jpg"
.Chart.Export (strPath)
End If
.Delete
End With
Next
End Sub