[求助]如何保存EXCEL文件中的图片

xelement · 发表于 2007-3-1 21:26

Fl0hT9Yg.rar (9.59 KB, 下载次数: 63)

如何保存EXCEL文件中的图片,详情见附件。。

请各位大侠指点。。。

EdgeOfCity · 发表于 2007-3-1 21:52

把文件另存为Html格式.然后到它的文件夹下去找

xelement · 发表于 2007-3-1 22:12

我想要自已命名再保存。。。高手帮忙呀。。。。。。。。。。

向您问好 · 发表于 2007-3-1 22:35

eyA3qDg2.rar (31.13 KB, 下载次数: 208)

不知道这个例子对楼主老师有没有参考价值

EdgeOfCity · 发表于 2007-3-2 10:56

请参考小Fisher的帖子:

把工作表中的shape另存为图片文件

把工作表中的shape（包括插入的图片、窗体控件、绘图对象、艺术字等）另存为图片文件，可以选择jpg，gif或png三种文件格式

http://www.officefans.net/cdb/viewthread.php?tid=69580&highlight=

taller · 发表于 2007-3-2 11:06

我做过一个利用Char输出为GIF的，由于在Chart中粘贴图形时，无法是图形和Chart区域的左上角重合，因此输出的图形有一个白边框。和4楼的GIF实例文件使用的方法相同

4楼利用API保存为BMP的会好一些，但是其中有大量的API.该文件来自于'http://office.9zp.com，不知道是不是大头版主的作品

5楼OfficeFan作品做成了加载宏，使用更方便，支持多种导出格式

Sub ExportPicInSht()
    Dim Pic As Shape
    Dim FileName As String
        For Each Pic In Me.Shapes
        FileName = ThisWorkbook.Path & "\" & Pic.TopLeftCell.Offset(0, -1) & ".gif"
        Pic.Copy
        With Me.ChartObjects.Add(0, 0, Pic.Width + 28, Pic.Height + 30).Chart
            .Paste
            .Export FileName, "gif"
            .Parent.Delete
        End With
    Next
End Sub

[此贴子已经被作者于2007-3-2 11:17:10编辑过]

xelement · 发表于 2007-3-2 18:46

多谢各位帮忙。。

ak47ok · 发表于 2014-6-16 16:33

搜索关键字：export

搜索到了本帖，每次回帖、谢谢！

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