把选定区域输出为图片，怎么把四周的边框去掉？

hai0625 · 发表于 2013-6-27 16:34

已经有了一段代码，可以实现的功能如下：

把C3:P39区域，保存为BMP图片(区域里的两个箭头也要一起在图片中)；
把图片输出到D盘；
文件名为D5里面的内容。

现在已可以实现这个功能，但是输出的图片，四周有一圈边框，怎么也去不掉。
如果把图片放在白色背景的PPT下面，效果十分明显，而且右侧的边框比较粗(如下图)。
已经加了把图表边框去掉的语句，也测试过把边框改成白色，但是还是不行。
电脑窗口和Excel背景都是浅绿色的(和下图边框的颜色一样)。
QQ截图20130626001953.png

希望大家能把帮忙查看一下，帮忙更新下代码，由于输出的图片要放在PPT里，十分希望能把这边框去掉！

图片输出.rar (19.9 KB, 下载次数: 65)
先谢谢大家了~

yangyangzhifeng · 发表于 2013-6-27 16:54

我测试没有边框，试试看

Public Sub out_auto()
Dim h, w
w = Range("c5:h20").Width: h = Range("c5:h20").Height
Range("c5:h20").CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, w + 5, h + 5).Chart
.Paste
.Export "c:\test.JPG"
.Parent.Delete
End With
End Sub

复制代码

yangyangzhifeng · 发表于 2013-6-27 16:58

针对附件的代码

Public Sub out_auto()
Dim h, w
w = Range("c3:p39").Width: h = Range("c3:p39").Height
Range("c3:p39").CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, w + 5, h + 5).Chart
.Paste
.Export "c:\test.JPG"
.Parent.Delete
End With
End Sub

复制代码

hai0625 · 发表于 2013-6-27 23:40

本帖最后由 hai0625 于 2013-6-27 23:43 编辑

yangyangzhifeng 发表于 2013-6-27 16:58
针对附件的代码

非常感谢，您的代码又精简很多。但是还是有我说的问题：由于我电脑窗口颜色设置的是浅绿色，所以输出图片以后，在图片右侧和下侧，有绿色的窄边儿，右侧的比下侧的少宽一些。
如果把窗口颜色设置成白色，则看不出边框的效果。

在第七行加入如下代码，去掉Chart的边框，效果如下
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Line.Visible = msoFalse

左侧的图片，还是可以看到边框，右侧的则完全和幻灯片融为一体。
附件为PPT的对比文件：

图片输出2.rar (223.56 KB, 下载次数: 50)

后来又录制了一段宏，把Chart的背景填充去掉了，已经可以实现预期效果，代码如下：

Public Sub out_auto()
Dim h, w
w = Range("c3:p39").Width: h = Range("c3:p39").Height
Range("c3:p39").CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, w + 5, h + 5).Chart
.Paste
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Line.Visible = msoFalse '去掉Chart边框
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Fill.Visible = msoFalse '去掉Chart填充
.Export "c:\test.JPG"
.Parent.Delete
End With
End Sub

复制代码

非常感谢您的帮助！

不知道我添加的这两行代码是否还可以再精简一下~

huazai688 · 发表于 2015-6-11 16:16

若为2003版本的，去除边框的代码应作何修改？

宝石山人 · 发表于 2024-6-14 12:31

谢谢, 帮我解决问题了.
可以把任何表格类转换为图片了.

希望了解: 如何把打印到图片, 请赐教!

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

[求助] 把选定区域输出为图片，怎么把四周的边框去掉？