<<< 返回 access911.net 编程静态资料库索引页

如何在EXCEL中截图,并将图片保存为GIF或者JPG格式

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2012-6-26  浏览人次:2093


专题地址:http://access911.net/fixhtm/72FABF1E16DCE8F3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


问题:

我需要将整个SHEET截图,并保存为GIF或者JPG,改如何编程?

 


回答:


操作过程如下:
图片如下:
按此在新窗口浏览图片

源代码如下:
'将Excel中指定的Sheet中已使用的单元格截图,并保存为一个GIF图片。
Function createGIF(ByRef shSource As Excel.Worksheet, ByVal gifPath As String)

    Dim c As Chart
    Dim sh As Excel.Worksheet
    shSource.Select
    shSource.UsedRange.Select
    Application.ScreenUpdating = True
    '将可选区域截图,并保存到内存中剪贴板中。
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
    'sheet2 是一个临时sheet,也可以直接在当前workbook中新.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FABF1E16DCE8F3.htm

 


上一篇:如何为所有窗体的文本框定义多个公共事件?

下一篇:如何解决Excel2007提示“发现不可读取的内容”的问题?

2017年2月22日生成静态资料