excel表格_excel函数公式大全_execl从入门到精通
工作表中图形的导出2024-04-11 23:23:57
大家好，我们今日讲解“VBA信息获取与处理”教程中第十九个专题“工作表中对SHAPE信息的获取及处理”的第4节“工作表中图形的导出”，这个专题是非常实用的知识点，希望大家能掌握利用。教程会提供配套的程序文件。
第四节 工作表中图形的导出
大家好，我们今日讲解如何把工作表中的图片导出为专门的文件。我们在工作操作中，有时需要将工作表中的图形对象批量保存为单独的图像文件，怎么操作呢？今日的内容给大家讲解。这讲的内容在我的第一套教程《VBA代码解决方案》中已经有讲解，这里的再次讲解仍是利用当初的思路，但要上升到一定的理论高度。
思路：首先我们用ChartObjects对象的Add 方法创建新的嵌入图表，把图片复制到这个Chart对象中，然后使用Export方法把这个图表导出来。
1 导出工作表图形的基本语句
1）Chart 对象，代表工作簿中的图表。
图表可以是内嵌图表（嵌入ChartObject对象中），也可以是单独的图表工作表。Charts 集合包含工作簿中每个图表工作表的Chart 对象。Charts(index)（其中 index 是图表工作表索引号或名称）可用于返回一个 Chart 对象。图表index号表示图表工作表在工作簿标签栏上的位置。Charts(1) 是工作簿中的第一个（最左侧）图表，Charts(Charts.Count) 是最后一个（最右侧）图表。所有图表工作表都计入索引计数，即使处于隐藏状态，也不例外。图表工作表名称显示在图表的工作簿标签上。ChartObject对象的Name属性可用于设置或返回图表名称。
Chart对象也是 Sheets 集合的成员。此集合包含工作簿中的所有工作表（图表工作表和工作表）。Sheets(index)（其中 index 是工作表索引号或名称）可用于返回一个表。如果图表是活动对象，可以使用ActiveChart属性引用它。如果用户已选择图表工作表，或已使用 Chart 对象的 Activate 方法或ChartObject对象的 Activate 方法激活了图表工作表，图表工作表就是活动对象。
2）Chart.Export方法。以图形格式导出Chart。
语法：expression.Export (FileName, FilterName, Interactive)
各个参数：
expression：一个表示 Chart 对象的变量。
FileName 必需 String 被导出的文件的名称。
FilterName可选 Variant 图形过滤器出现在注册表中时独立于语言的名称。
Interactive 可选Variant True 显示包含筛选特定选项的对话框。如果为 False，则 Microsoft Excel 使用筛选器的默认值。默认值为 False。
示例：此示例以 GIF 文件格式导出第一个图表。
Worksheets("Sheet1").ChartObjects(1) .Chart. Export _
FileName:="current_sales.gif", FilterName:="GIF"
2 导出工作表中图形的代码
为了导出工作表4中，除了按钮之外的所有图形，我给出了下面的代码：
Sub mynzF() '将Shape对象另存为图片
Dim objShp As Shape
Dim objCht As ChartObject
Sheets("sheet4").Select
If Sheets("sheet4").Shapes.Count = 1 Then
MsgBox "此工作表中没有图形可以导出": End
Else
MsgBox "此工作表中" & Sheets("sheet4").Shapes.Count - 1 & "个图形可以导出"
End If
t = 0
For Each objShp In Sheets("sheet4").Shapes
If objShp.AutoShapeType<> 5 Then '避免运行按钮被导出
objShp.Copy
'添加一个ChartObject
Set objCht = Sheets("sheet4").ChartObjects.Add(0, 0, objShp.Width, _
objShp.Height)
objCht.Select
'导出，并删除ChartObject
With objCht.Chart
t = t + 1
.Paste
.ExportThisWorkbook.Path& "\" &objShp.Name& ".gif"
.Parent.Delete
End With
End If
Next
Set objShp = Nothing
Set objCht = Nothing
MsgBox t & "个图片导出完毕！", vbOKOnly, "将Shape对象另存为图片"
End Sub
代码的截图：
代码讲解：
1)上述代码将第4个工作表中的除了按钮之外的所有图形以gif格式导出，并放置在当前的目录下。
2）If Sheets("sheet4").Shapes.Count = 1 Then
MsgBox "此工作表中没有图形可以导出": End
Else
MsgBox "此工作表中" & Sheets("sheet4").Shapes.Count - 1 & "个图形可以导出"
End If
以上代码先对工作表进行判断，如果是没有可以导出的图形，将终止程序，如果有导出的图形，提示给用户信息，
3)objShp.Copy
'添加一个ChartObject
Set objCht = Sheets("sheet4").ChartObjects.Add(0, 0, objShp.Width, _
objShp.Height)
objCht.Select
'导出，并删除ChartObject
With objCht.Chart
t = t + 1
.Paste
.ExportThisWorkbook.Path& "\" &objShp.Name& ".gif"
.Parent.Delete
End With
对于每一个图形，先复制，然后添加一个chart,将图形粘贴到这个chart上，然后利用EXPORT方法导出这个chart。
3 导出工作表中图形代码的实现效果
我们先看看第4个工作表的界面截图：点击运行按钮，这时就会在当前路径下出现导出的图片。
我们打开一个看看：以上方案实现了图形的导出功能。
关于图形的讲解专题，我就讲解到这里，还有很多内容没有介绍到，希望大家根据我的讲解内容能够自行根据自己的需要进行其他内容的学习。
本节知识点回向：
① chart对象的意义是什么？
② 如何将图形导出？
本讲代码参考文件：019工作表.xlsm积木编程的思路内涵：
在我的系列书籍中一直在强调“搭积木”的编程思路，这也是学习利用VBA的主要方法，特别是职场人员，更是要采用这种方案。其主要的内涵：
1代码不要自己全部的录入。你要做的是把积木放在合适的位置然后去修正代码，一定要拷贝，从你的积木库中去拷贝，然后修正代码，把时间利用到高效的思考上。
2 建立自己的“积木库”。平时在学习过程中，把自己认为有用的代码放在一起，多积累，在用到的时候，可以随时拿来。你的积木库资料越多，你做程序的思路就会越广。VBA的应用界定及学习教程：
VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！
我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了六部VBA专门教程，目前教程均通过32位和64位两种OFFICE系统测试。
第一套：VBA代码解决方案是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试。
第二套：VBA数据库解决方案数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试。
第三套：VBA数组与字典解决方案数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第四套：VBA代码解决方案之视频是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解，听元音更易接受。这套教程还会额外提供通过32位和64位两种OFFICE系统测试的程序文件。
第五套：VBA中类的解读和利用这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第六套教程：《VBA信息获取与处理》，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。
上述教程的学习顺序：1→3→2→6→5或者4→3→2→6→5。提供的程序文件更是一座巨大的代码库，供读者使用，如需要可以WeChat: NZ9668
学习VBA是个过程，也需要经历一种枯燥的感觉
“众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山”。学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。利人就是利己。我的教程助力给正在努力的朋友。
“水善利万物而不争”，绵绵密密，微则无声，巨则汹涌。学习亦如此，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时再去做自欺欺人的言论。要努力提高自己，用一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。学习时微而无声，利用时则巨则汹涌。“路漫漫其修远兮，吾将上下而求索”
每一分收获都是成长的记录，怎无凭，正是这种执着，成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着：
浮云掠过，暗语无声，
唯有清风，惊了梦中啼莺。
望星，疏移北斗，
奈将往事雁同行。
阡陌人，昏灯明暗，
忍顾长亭。
多少VBA人，
暗夜中，悄声寻梦，盼却天明。
怎无凭！
分享我多年工作实际经验的成果，随喜这些有用的东西，给确实需要利用VBA的同路人。回向学习利用VBA的历历往事，不胜感慨，谨以这些文字以纪念，
分享成果，随喜正能量
标签: excel怎么做函数图像