[求助]EXCEL里面绘图怎么转换成为图片并导出？

比如附件里面，我想把绘的图转换为图片，导出到WORD里面。该怎么操作？

4zxa1zZf.rar (1.88 KB, 下载次数: 72)

2007-6-5 09:23 上传

点击文件名下载附件
[求助]EXCEL里面绘图怎么转换成为图片并导出？

选定图形，复制，打开：程序－绘图－粘贴，保存

二楼wyanshan的方法不错

如果excel中背景有＂网格线＂就不是很好看了

可以点击：工具＞选项＞视图－窗口选项中网格线前面的√去掉＞确定就解决了这个问题

不管是图片、图形、图表统统转成图片存到硬盘

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