怎样用VBA把工作表选定区域保存为图片文件

香川群子

张雄友 发表于 2014-12-29 21:16
将区域用人工选择，怎么不行的？哪个参数错了？谢谢！

这样一句代码即可：

1. Sub test()
   
2.     Call RangeToPic(Application.InputBox("Select Range", Type:=8))
   
3. End Sub

复制代码

zhu086

你好，请问问题解决了吗？可以贴出完整代码吗？谢谢

゛Melody.

香川群子 发表于 2014-12-28 12:36
给你写了个单元格区域内容输出为jpg图片的过程代码，你可以自己修改示例宏代码自己灵活调用。单元格区域内 ...

大佬，为什么截出来的图片是空白的，就一张纯白图

゛Melody.

香川群子 发表于 2014-12-28 12:36
给你写了个单元格区域内容输出为jpg图片的过程代码，你可以自己修改示例宏代码自己灵活调用。单元格区域内 ...

大佬，为什么截出来的图片是空白的，就一张纯白图

香川群子

゛Melody. 发表于 2018-8-13 13:47
大佬，为什么截出来的图片是空白的，就一张纯白图

上附件。不然没法判断错误原因。

YZC51

这样
    If Pth = "" Then Pth = ActiveWorkbook.Path & "\" '默认使用当前文件所在路径作为输出路径

Q526753064

coby001 发表于 2014-12-28 14:12
如果你还想一点都不失真，可以保存为 png 格式。

.Export Pth & "\" & Pnm & ".png", "PNG"  '按指定 ...

使用Format:=xlBitmap后，格式为rng，不失真，但是图片的高度就有限制了，导出100行的表格，总是30行会显示，后面的都显示空白，该如何处理？

gzddu

香川群子 发表于 2018-8-13 17:14
上附件。不然没法判断错误原因。

试了一下，截出来是空白，剪贴板里是有内容的，chart里面空白，问题出在.paste，好像没找到chart对象。请大佬指点如何处理？

wowo000

在.Paste 前插入一句.Parent.Select，即可完美解决

ljpmqb888

Rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
这句为什么偶尔会提示无效？
有时候正常，有时候卡在这句。