如何实现用vba代码将单元格区域另存为图片时无黑色边框效果？

作者：绿色风分类：时间：2022-08-17 浏览：195

楼主
herelazy

Q：如何实现用vba代码将单元格区域另存为图片时无黑色边框效果？

A：

Sub test()
[B2:F8].Select
Selection.CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height)
.Border.LineStyle = xlNone '关键语句,设置图表的边框为无色
With .Chart
.Paste
.Export ThisWorkbook.Path & "\test.gif", "gif"
.Parent.Delete
End With
End With
End Sub

PS：请将结果插入到word、excel中查看，用windows自带的工具还是会出现黑框的！

无黑色边框效果.rar

2楼
xmyjk

谢谢小白分享。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表