第1个回答 2009-03-18
给你个宏代码,运行即可。
Sub 导出图形到硬盘()
If ActiveSheet.ProtectContents Then MsgBox "工作表已保护,本程序拒绝执行!", 64, "提示": Exit Sub
If ActiveWorkbook.Path = "" Then GoTo err
Dim i As Byte
For i = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Select
If TypeName(Selection) = "ChartObject" Then
Selection.Chart.Export ActiveWorkbook.Path & "\tmp" & i & ".jpg"
Else
Selection.Copy
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export ActiveWorkbook.Path & "\tmp" & i & ".jpg"
.Parent.Delete
End With
End If
Next i
Shell "EXPLORER.EXE " & ActiveWorkbook.Path, vbNormalFocus
End
err:
MsgBox "请先将工作簿存盘!", 64, "提示"
End Sub