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

wyanshan · 发表于 2007-6-5 09:23

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

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

wyanshan · 发表于 2007-6-5 09:29

刚刚学了一种方法，首先选中想做成图片的区域，然后按住SHIT键，选择编辑，里面的菜单变成了复制图片。选择复制图片，弹出的窗口选择打印效果。就可以了。在WORD里面直接粘贴。这样倒是一个方法，还是别的方法吗？

山风 · 发表于 2007-6-5 11:10

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

lixiang1984 · 发表于 2007-6-5 11:11

简单的办法就是用QQ,剪下来另存为不就完了

九宝连灯 · 发表于 2007-6-5 13:27

WAKRmIDr.rar (3.31 KB, 下载次数: 130) 这样可以吗？

zhangwei_423 · 发表于 2007-6-5 14:44

[em05]

yusl1983 · 发表于 2007-6-5 19:30

二楼wyanshan的方法不错

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

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

[此贴子已经被作者于2007-6-5 19:31:02编辑过]

andysky · 发表于 2007-8-23 13:35

QUOTE:

以下是引用wyanshan在2007-6-5 9:23:04的发言：

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

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

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

weng · 发表于 2009-8-30 13:52

又见罗君新程序！

weng · 发表于 2009-8-30 13:38

看！！！！！

		自动登录	找回密码
密码			免费注册

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

回复：（wyanshan）[求助]EXCEL里面绘图怎么转换成为图...