利用VBA实现Excel与AutoCAD相结合自动绘制钻孔柱状图

合集下载

基于VBA的钻孔柱状图的自动生成

基于VBA的钻孔柱状图的自动生成
曹博;郝文信
【期刊名称】《露天采矿技术》
【年(卷),期】2008(000)0z1
【摘要】运用AutoCAD内置的VBA语言调用一些接口函数完成柱状图的绘制,然后调用岩性图例库,对柱状图进行填充处理,实现自动生成,克服了传统手工绘制钻孔柱状图普遍存在的成图慢、效率低、难以满足实际生产的需要等缺点.程序应用于平庄西露天矿,提高了地质人员的工作效率,对类似的工程有指导意义.
【总页数】3页(P14-15,17)
【作者】曹博;郝文信
【作者单位】辽宁工程技术大学资源与环境工程学院,辽宁,阜新,123000;平庄煤业集团有限责任公司西露天煤矿,内蒙古,赤峰,024000
【正文语种】中文
【中图分类】TP39
【相关文献】
1.基于Delphi 7和CorelDraw 9 VBA的钻孔柱状图自动成图系统 [J], 许哲平;陈建强;迟文学;王东辉;武峥
2.基于VBA的钻孔柱状图的自动生成 [J], 曹博;郝文信
3.基于MapGIS的钻孔柱状图自动生成方法 [J], 罗晓霞;张新霞
4.基于 ArcGIS Engine 的钻孔柱状图自动生成方法 [J], 周庆卫;刘国生
5.基于MapGIS的钻孔柱状图自动生成系统研发 [J], 张永辉
因版权原因，仅展示原文概要，查看原文内容请购买。

利用 VBA 实现 CAD 与 Excel 相结合自动绘制钻孔采样图

利用 VBA 实现 CAD 与 Excel 相结合自动绘制钻孔采样图
朱晓亚
【期刊名称】《科技风》
【年(卷),期】2012(000)013
【摘要】本文介绍了 VBA 开发工具、AutoCAD 和 Excel应用软件的基本特点，以及通过 VBA 编程建立 AutoCAD 与Excel 的通信，实现钻孔采样图的自动绘制。

【总页数】2页(P170-171)
【作者】朱晓亚
【作者单位】浙江省地矿科技有限公司,浙江杭州310007
【正文语种】中文
【相关文献】
1.利用EXCEL VBA自动绘制河床演变断面比较图 [J], 黄兆玮;刘霞;潘玉敏;曾彩华
2.利用CAD VBA与Excel相结合自动绘制股道运用技术作业表 [J], 刘俊良;杨竟
洵
3.利用Excel VBA自动绘制物化探平剖图 [J], 王芳;李波;刘慧鹏
4.利用VBA实现Excel与AutoCAD相结合自动绘制钻孔柱状图 [J], 李海民
5.利用Excel VBA实现在AutoCAD中绘制潮流羽状图 [J], 祁祥礼
因版权原因，仅展示原文概要，查看原文内容请购买。

基于VBA在AutoCAD中自动绘图的应用

基于VBA在AutoCAD中自动绘图的应用------李广亚随着电脑技术的飞速发展，目前大多数企业都采用AutoCAD制图、绘图，在工程施工领域也是采用AutoCAD进行二维工程绘图。

GPS的应用使的施工现场坐标的采集非常方便，通常便于直观，监理、业主会要求将GPS采集的坐标绘制在CAD图上。

对于一个熟悉CAD的人来说，将10几个坐标数据手工录入坐标绘制到CAD中是比较容易的，但如果是几十个点，上百个点，甚至几百个点，对于一个施工技术员来说一个一个坐标的手工录入，就成了一个比较有难度的工作，主要因为手工录入会比较繁琐、耗费时间长还特别容易出错。

在这方面如何能提高技术人员的工作效率？基于此，我们采用AtuoCAD中的VBA技术，进二次开发，可以方便的将大量的坐标自动绘制到CAD图中。

下面通过一个简单事例来说明AtuoCAD中VBA技术的二次开发自动绘图程序的过程：事件介绍：2012年业主在场区开挖一不规则多边形鱼塘，要求我单位将鱼塘进行测量并标注在总平面图上。

1、数据采集：使用GPS现场进行数据采集，在鱼塘周边从一点开始，顺时针方向进行，在不规则鱼塘的所有角点拐点均采集坐标，并保存在GPS中。

2、导出坐标：将GPS中采集的坐标导出到文本文档，如下图：3、数据处理：将导入的坐标使用EXCEl文档打开并编辑处理，高程全设为0，表单重命名为“SJ”，保存EXCEl文档到D盘，文档名称为“GPS导入坐标绘图”如下图：4、VBA跨平台技术二次开发：（1）、打开AutoCAD，选择工具->宏->VBA编辑器，打开VBA编辑器。

在VBA编缉器中插入用户窗体，在窗体上插入按钮组件，如图：（2）、双击按钮，打开代码编辑窗口，编缉代码如下：Private Sub CommandButton1_Click()Dim xlapp As Excel.ApplicationDim xlbook As Excel.workbookDim xlsheet As Excel.worksheetSet xlapp = CreateObject("excel.application")Set xlbook = xlapp.workbooks.Open("D:\GPS导入坐标绘图.xls")'打开的EXCEL路径xlapp.Visible = FalseSet xlsheet = xlbook.worksheets("sj") '打开EXCEL中的sj工作表i = xlsheet.Cells(1, 2) 'i为线条线数For p = 0 To i - 2 Step 1p = pk1 = xlsheet.Cells(3 + p, 3) '将表格第3行第3列内数值赋值给K1，X坐标值h1 = xlsheet.Cells(3 + p, 2)k3 = xlsheet.Cells(3 + p, 4)k2 = xlsheet.Cells(4 + p, 3)h2 = xlsheet.Cells(4 + p, 2)h3 = xlsheet.Cells(4 + p, 4)Dim 点 As AcadLineDim 起点(2) As DoubleDim 端点(2) As Double起点(0) = k1 '将K1值贱赋值给起点数组内第一个值，即起点X坐标。

巧借Excel脚本快速绘制AutoCAD地质柱状图

巧借Excel脚本快速绘制AutoCAD地质柱状图作者：刘柱秦福锋郭洪良来源：《中小企业管理与科技·上旬刊》2013年第01期摘要：利用AutoCAD手工绘制地质柱状图时，需要绘制大量的线、输入文字和填充岩性图案，操作上比较麻烦，高级语言编程对普通使用者要求比较高。

此文利用EXCEL对柱状图数据进行录入并使用其简单的脚本语言计算并得出AutoCAD的运行命令组。

然后在AutoCAD 中运行命令组达到快速绘制柱状图的目的。

关键词：Excel AutoCAD 柱状图脚本1 绘图原理1.1 柱状图组成地质柱状图一般包括图头、图形显示区和图例三部分。

图头是对柱状图内容的概括与表述，主要通过文字对图件内容进行描述。

图形显示区是对柱状图的主要信息显示窗口，显示柱状图中岩石名称、深度、文字描述、图案填充等内容。

1.2 绘图原理利用AutoCAD快速的绘制柱状图需要得到文字的内容及位置，横线的位置及长度，图案填充的位置等。

利用Excel中的脚本可以一次生成所需要命令组及数据，导入AutoCAD后，即可得到柱状图，从而达到快速绘图的目的。

2 绘图准备2.1 图头定制柱状图图头有一定标准格式，本文以最为常见柱状图为例说明在AutoCAD中柱状图的绘制。

按照如下图定义图头。

图头中1～10所代表的坐标依次为：（-47，0），（-44，0），（-41，0），（-39，0），（-37，0），（-35，0），（-33.5，0），（-32，0），（0，0），（2.8，0）。

2.2 岩性填充图案定制AutoCAD提供的填充图案存放在acad.pat和acadiso.pat文件中（可以以文本方式打开）。

WindowsXP中的acadiso.pat文件路径为：所在盘符：＼documentsand settings＼用户名＼Application Data＼Autodesk＼*＼Su-pport文件夹中（*随Autodesk版本不同而不同）。

基于 Excel 自动绘制地震安全性评价报告的钻孔综合柱状图

基于 Excel 自动绘制地震安全性评价报告的钻孔综合柱状图扈桂让;赵晋泉;郭瑾;王丽晶;李小壮【摘要】钻孔综合柱状图是地震安全性评价报告中必备的一种图件。

本文介绍在Excel中自动生成钻孔综合柱状图的方法，实现在Excel中设计柱状图框架，并利用Excel vba编程自动生成岩土柱状及剪切波速曲线。

该方法运用一键式成图，简单易用，已在实践中得到较好的应用。

%Drilling synthesis column is the necessary map of seismic safety evaluation report .The method of automatic generation of drilling synthesis column in Excel isintroduced .The design of column frame and automatic generation of lithologic column and shear wave velocity curve by VBA programming are implemented in the exce l .This method which uses one‐touch drafting is easy to oper‐ate .And the method has been well used in practice .【期刊名称】《山西地震》【年(卷),期】2016(000)001【总页数】4页(P16-18,36)【关键词】地震安全性评价报告;Excel vba;钻孔综合柱状图【作者】扈桂让;赵晋泉;郭瑾;王丽晶;李小壮【作者单位】山西省地震局，山西太原 030021; 太原大陆裂谷动力学国家野外科学观测研究站，山西太原 030025;山西省地震局，山西太原 030021; 太原大陆裂谷动力学国家野外科学观测研究站，山西太原030025;山西省地质环境监测中心，山西太原 030002;山西省地震局，山西太原 030021; 太原大陆裂谷动力学国家野外科学观测研究站，山西太原 030025;山西晋城市地震局，山西晋城 048000【正文语种】中文【中图分类】P315.6-39钻孔综合柱状图是地震安全性评价报告中的基本图件。

基于Excel VBA与CAD VBA联合编程技术实现快速编制绘图程序

快速编制绘图程序
李祥，李遥玉
（云南省设计院集团，云南昆明６５００００）
摘要：运用ＥｘｃｅｌＶＢＡ与ＣＡＤＶＢＡ进行联合编程，以Ｅｘｃｅｌ工作表作为用户界面和计算工具，操作ＣＡＤ进行绘图，实
能包括两个方面：一是，编程环境自带的功能；二是，ＣＡＤ
用，很多有名的程序均运行于ＣＡＤ平台上，例如，天正系列软件、探索者、海地系列软件、桥梁大师等。
Ａｕｔｏｄｅｓｋ公司的ＡｕｔｏＣＡＤ支持的二次开发方式或语言主要有ＶｉｓｕａｌＬｉｓｐ、ＶＢＡ、Ｃ＋＋和．ＮＥＴ开发技术。．ＮＥＴ开
Ｋｅｙｗｏｒｄｓ：ｒｅｄｅｖｅｌｏｐｔｅｃｈｎｏｌｏｇｙｏｆＣＡＤ；ＥｘｃｅｌＶＢＡ；ＣＡＤＶＢＡ
目前，ＣＡＤ二次开发技术在各行各业得到了普遍应
Ｏｆｆｉｃｅ软件的对象模型进行操作。ｖＢＡ二次开发可用的功
强大的软件，但开发难度较大且在发展中；ＶｉｓｕａｌＬｉｓｐ是
开发效率。
１．２参数化绘图程序的构成
ＣＡＤ最早支持的语言，简单易用，但功能有限，且语言较生僻；ｃ＋＋功能强大，但是语言较难，开发难度大；ＶＢＡ继承了ＶＢ语言易学易用的特点，可读性好，但功能有限，对于较深层次的程序难以支撑。同时，Ｍｉｃｒ０ｓｏｆｔ公司的Ｏｉｃｆｅ系列软件均支持ＶＢＡ语言进行开发。这给通过同一个程序的ＣＡＤ和Ｏｉｃｆｅ进行同时操作提供了便利。本文的目

巧借Excel脚本快速绘制AutoCAD地质柱状图

摘要:利用AutoCAD 手工绘制地质柱状图时，需要绘制大量的线、输入文字和填充岩性图案，操作上比较麻烦，高级语言编程对普通使用者要求比较高。

此文利用EXCEL 对柱状图数据进行录入并使用其简单的脚本语言计算并得出AutoCAD 的运行命令组。

然后在AutoCAD 中运行命令组达到快速绘制柱状图的目的。

关键词:Excel AutoCAD 柱状图脚本1绘图原理1.1柱状图组成地质柱状图一般包括图头、图形显示区和图例三部分。

图头是对柱状图内容的概括与表述，主要通过文字对图件内容进行描述。

图形显示区是对柱状图的主要信息显示窗口，显示柱状图中岩石名称、深度、文字描述、图案填充等内容。

1.2绘图原理利用AutoCAD 快速的绘制柱状图需要得到文字的内容及位置，横线的位置及长度，图案填充的位置等。

利用Excel 中的脚本可以一次生成所需要命令组及数据，导入AutoCAD 后，即可得到柱状图，从而达到快速绘图的目的。

2绘图准备2.1图头定制柱状图图头有一定标准格式，本文以最为常见柱状图为例说明在AutoCAD 中柱状图的绘制。

按照如下图定义图头。

图头中1~10所代表的坐标依次为：（-47，0），（-44，0），（-41，0），（-39，0），（-37，0），（-35，0），（-33.5，0），（-32，0），（0，0），（2.8，0）。

2.2岩性填充图案定制AutoCAD 提供的填充图案存放在acad.pat 和acadiso.pat 文件中（可以以文本方式打开）。

WindowsXP 中的acadiso.pat 文件路径为：所在盘符：\documents and settings\用户名\Application Data\Autodesk\*\Su-pport 文件夹中（*随Autodesk 版本不同而不同）。

用记事本打开acadiso.pat 添加自定义的岩性填充图案。

填充图案的定义由标题行和模式行两部分组成。

应用EXCEL和MAPCAD快速生成地质钻孔柱状图

应用EXCEL和MAPCAD快速生成地质钻孔柱状图
胡中富
【期刊名称】《云南地质》
【年(卷),期】2004(023)001
【摘要】传统手工绘制地质钻孔柱状图,不仅效率低且易出错.开发独立的地质钻孔柱状图处理软件有相当难度,而且需要投资.本文探讨运用MicroSoft Office EXCEL 输入、检查地质钻孔柱状图原始编录数据,并用VB编制程序将EXCEL与图形处理软件MAPCAD有机结合,快速生成地质钻孔柱状图方法.充分利用现有资源,无需额外投资,具有较好实用性.
【总页数】9页(P104-112)
【作者】胡中富
【作者单位】中国地质大学(武汉)研究生院,武汉,430074
【正文语种】中文
【中图分类】TP816
【相关文献】
1.用ACCESS和MAPGIS快速生成地质钻孔柱状图的方法 [J], 陈峰;刘艳
2.应用EXCEL和MAPGIS快速生成地浸砂岩型铀矿钻孔综合柱状图 [J], 罗义
3.应用EXCEL和MAPGIS快速生成地质钻孔柱状图 [J], 靳皇玉;崔亚茹;许祥彬
4.利用section和excel快速生成地层柱状图 [J], 杨建伟;熊豫佳
5.利用Excel和Mapgis快速生成地质钻孔柱状图 [J], 刘兴国
因版权原因，仅展示原文概要，查看原文内容请购买。

VBA中的Excel图表操作技巧

VBA中的Excel图表操作技巧在Excel中，图表是一种非常有用的数据可视化工具，能够帮助我们更好地展示和分析数据。

而在VBA中，我们可以通过编程来操作和控制Excel 中的图表，从而实现更多的定制化需求。

本文将介绍一些常用的VBA中的Excel图表操作技巧，包括创建图表，设置图表属性，以及对图表进行格式化等。

一、创建图表在VBA中，创建图表的方法有很多种，可以根据数据的类型和需求选择合适的图表类型。

下面是一个创建柱状图的示例代码：```VBASub CreateColumnChart()Dim ws As WorksheetDim cht As ChartSet ws = ThisWorkbook.Worksheets("Sheet1")Set cht = ws.Shapes.AddChart.ChartWith cht.ChartType = xlColumnClustered.SetSourceData Source:=ws.Range("A1:B5").Location Where:=xlLocationAsObject, Name:="Sheet1".HasTitle = True.ChartTitle.Text = "Sales by Month"End WithEnd Sub```上述代码中，首先我们通过引用工作表对象和图表对象，然后使用`AddChart.Chart`方法来创建图表。

接着，我们通过设置`ChartType`属性来指定图表的类型，这里是柱状图。

然后使用`SetSourceData`方法来设置图表的数据源范围，并使用`Location`方法来指定图表的位置。

最后，我们通过`HasTitle`和`ChartTitle.Text`属性来设置图表的标题。

二、设置图表属性在VBA中，我们可以通过操作图表对象的属性来实现对图表的定制化设置。

基于VB编写的钻孔柱状图自动生成插件

基于VB编写的钻孔柱状图自动生成插件【内容摘要】使用VisualBasic（VB）语言，使Excel数据文件和Autocad 图形文件挂接，并在两者之间建立数据沟通渠道，将Excel中的基本数据、分层数据、取样数据等转化为Autocad中的图形文件，实现在Autocad里自动生成固体矿产钻孔柱状图的目的。

【关键词】VisualBasic（VB）语言Excel数据文件Autocad图形文件自动成图钻孔柱状图Abstract: Visual Basic (VB) language, the Excel data file and Autocad graphics file attached, and to establish a data communication channel between the two, the basic data in Excel, hierarchical data, sampling data into Autocad ingraphics files, to achieve the purpose of automatically generated inside Autocad solid mineral drilling histogram.Keywords: Visual Basic (VB) language, the Excel data file, Autocad graphics files,Automatic mapping, drilling histogram.一、绪论钻孔柱状图一般利用绘图软件，用手工编辑的方法制作，较费时，效率低，不能实现数据共享。

因此我们考虑通过编程方法，自动生成钻孔柱状图，同时达到对矿区钻孔数据进行对比和数据管理。

考虑到常用的Excel是一款功能强大的数据处理软件，Autocad是功能强大的图形平台,也是目前国内外使用最广泛的CAD软件，众多用户都已习惯Autocad绘图风格和绘图环境。

基于VBA的钻孔柱状图的自动生成

相似文献(2条)
1.期刊论文许哲平.陈建强.迟文学.王东辉.武峥.XU Zhe-ping.CHEN Jian-qiang.CHI Wen-xue.WANG Dong-hui.
WU Zheng 基于Delphi 7和CorelDraw 9 VBA的钻孔柱状图自动成图系统 -桂林工学院学报2007,27(1)
（下转第１７页）
Ｅ互囹
露天采矿技术２００８年增刊
· １７ ·
在对ＡｕｔｏＣＡＤ进行二次开发后，通过人机交互的方式得到各项参数，然后通过工程人员给定坡道的起点和坡道的方向以及坡道的修理方式（出入沟包括全挖方、半挖半填方、全填方３种方式），随即可由程序自动得到沟道的三维线模型。３．２沟道工程量的计算１４·５】
·１４·
露天采矿技术２００８年增刊
’
基于ＶＢＡ的钻孑Ｌ柱状图的自动生成
曾博ｔ，郝文信：
（１辽宁工程技术大学资源与环境工程学院，辽宁阜新１２３０００；２平庄煤业集团有限责任公司西露天煤矿，内蒙古赤峰０２４０００）
摘要：运用ＡｕｔｏＣＡＤ内置的ＶＢＡ语言调用一些接口函数完成柱状图的绘制，然后调用岩性图例库，对柱状图进行填充处理，实现自动生成，克服了传统手工绘制钻孔拄状图普遍存在的成图慢、效率低、难以满足实际生产的需要等缺点。程序应用于乎庄西露天矿，提高了地质人员的工作效率，对类似的工程有指导意义。
图ｌ钻孔柱状图自动生成系统体系结构
…。．＾…ｏ一，．｝驵一．．ｉ…３ｍ｛．—二一！唧ＩＩ、、ｊ一一鼬啊一—一一一ｑ…：—．孟…一ｊ～．Ｊ…ｏ一。舯…■…，卿ｔ、、‘一‘魍ｉ也一０…舢摊一；一．曼！Ｌ—ｌ～．中啪一；
………Ｌ．．一是＇一…。一～．、■酩ｉ………剐撇，一…王一一～．Ｉ婶ｊ……｛蝴姗一，｛。—…一一．；：；…·唧一鲤Ｉ删Ｌ一也”０～．。上，舅…｝…，；；，ｌ慷５Ｔ墁姆球．一０＋…ｉ』…§…．．蔓‘５胫一冀…．。；ｏ一一…，孵．移董哥昔聃一。…；一ｊ

浅谈基于CAD开发矿产钻孔柱状图

浅谈基于CAD开发矿产钻孔柱状图[摘要]本文阐述了VBA二次开发语言的各种优势；分析了矿产钻孔柱状图开发的总体流程图；深入剖析了程序的各种模块；希望能起到抛砖引玉的作用。

[关键词]CAD VBA 钻孔柱状图地质矿产钻孔柱状图的绘制在八十年代以前主要是靠手工绘制完成的，不仅需要大量的人力物力，而且成图慢、效率低，很难满足实际生产的需要。

后来随着计算机的逐渐普及，如何利用计算机进行钻孔柱状图的快速绘制引起了地学工作者的关注，出现了一些钻井柱状图绘制软件。

本文基于CAD平台，利用VBA语方开发了钻孔柱状图自动生成系统，实现了图与数据的统一[1]。

1CAD与VBA开发语言1.1CAD成图软件CAD主要使用交互式图形显示软件、CAD应用软件和数据管理软件3类软件。

交互式图形显示软件用于图形显示的开窗、剪辑、观看，图形的变换、修改，以及相应的人机交互。

为此，需要建立工程数据库系统。

它同一般的数据库系统相比有如下特点：数据类型更加多样，设计过程中实体关系复杂，库中数值和数据结构经常发生变动，设计者的操作主要是一种实时性的交互处理。

1.2VBA开发语言1.2.1对象模型VBA是一种语言，被引用的对象模型是创建基于VBA的程序的不可缺少的部分，对象模型指明了可以控制的应用程序和功能，这样就能利用VBA访问和改变对象模型的属性值、处理对象模型中的对象所触发的事件并调用对象的方法[2]。

1.2.2优越性（1）每个VBA宿主应用程序通过一个对象模型开发它的功能，扩展基于ActiveX组件为开发者利用以创建成批的用户解决方案。

（2）开发者能更适应市场，因为他们能在许多应用程序中运用他们的技术。

有助于开发者在各种应用程序中只使用一种语言，只需了解该应用程序的对象模型。

（3）复用代码的能力是一个优势，因为相同的VB能在任何地方使用[3]。

（4）VBA能够使得应用程序定制以提供满足用户需求的解决方案。

2总体流程图基于CAD开发矿产钻孔柱状图总体结构，如图1所示。

教你如何使用CAD连接EXCEL进行数据绘图

.教你如何使用CAD连接EXCEL进行数据绘图今天给大家要讲的东西是一个非常实用且好用的CAD借用EXCEL的数据进行绘图的方法。

当然我们在这里需要用到CAD的宏下的VBA功能。

如图，今天就是要完成如何在CAD中画出如以下图所示的坐标的图形。

当然如果学会了此种绘图的方法之后，还可以更改数据后进行更高级的绘图了。

工具/原料•AutoCAD 2004正式版与EXCEL。

步骤/方法1. 1打开CAD工具菜单下宏下的Visual Basic编辑器，新建一个模块，输入如下代码：Dim xlapp As Excel.ApplicationDim xlbook As Excel.workbookDim xlsheet As Excel.worksheetSub aa() '宏名Set xlapp = CreateObject("excel.application")Set xlbook = xlapp.workbooks.Open("D:\cadvba\fzcp.xls") '打开的EXCEL路径xlapp.Visible = FalseSet xlsheet = xlbook.worksheets("sj") '打开EXCEL中的工作表i = xlsheet.Cells(1, 6) 'i为线条线数m = xlsheet.Cells(2, 6) '这里表示第2行第6列n = xlsheet.Cells(3, 6)t = xlsheet.Cells(4, 6)For p = 0 To i - 2 Step 1p = pk1 = xlsheet.Cells(2 + p, 1)h1 = xlsheet.Cells(2 + p, 2)k3 = xlsheet.Cells(2 + p, 3)k2 = xlsheet.Cells(3 + p, 1)h2 = xlsheet.Cells(3 + p, 2)h3 = xlsheet.Cells(3 + p, 3)Dim 点 As AcadLineDim 起点(2) As DoubleDim 端点(2) As Double起点(0) = k1 + m起点(1) = h1 + n起点(2) = k3 + t端点(0) = k2 + m端点(1) = h2 + n端点(2) = h3 + tSet 点 = ThisDrawing.ModelSpace.AddLine(起点, 端点)Nextxlbook.Closexlapp.QuitSet xlapp = NothingEnd Sub2. 2同时打开编辑器的工具菜单下的引用，找到Microsoft Excel 11.0 Obje ct Library，如果没有此项，可浏览打开EXCEL启动文件即可。

VBA如何操作Excel中的图表

VBA如何操作Excel中的图表在 Excel 中，图表可以帮助我们更直观地展示和分析数据。

而使用 VBA 宏语言，可以进一步自动化和灵活地操作 Excel 中的图表，提高工作效率。

本文将介绍如何使用 VBA 操作 Excel 中的图表。

一、创建图表要使用 VBA 创建一个图表，首先需要确定图表的数据源和类型。

1.1 数据源在 VBA 中，可以通过指定数据范围或使用已存在的命名区域作为图表的数据源。

指定数据范围的方法如下：```vbaDim dataRange As RangeSet dataRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")```将以上代码中的 "Sheet1" 替换成实际数据所在的工作表名称，"A1:B10" 替换成实际的数据范围。

使用命名区域的方法如下：```vbaDim dataRange As RangeSet dataRange = s("DataRange").RefersToRange```将 "DataRange" 替换成实际的命名区域名称。

1.2 图表类型VBA 中的 `ChartObjects` 对象可以帮助我们创建不同类型的图表。

以下是常见的几种图表类型示例：柱状图：```vbaDim chartObj As ChartObjectSet chartObj =ThisWorkbook.Worksheets("Sheet1").ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)chartObj.Chart.SetSourceData dataRangechartObj.Chart.ChartType = xlColumnClustered```折线图：```vbaDim chartObj As ChartObjectSet chartObj =ThisWorkbook.Worksheets("Sheet1").ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)chartObj.Chart.SetSourceData dataRangechartObj.Chart.ChartType = xlLine```饼图：```vbaDim chartObj As ChartObjectSet chartObj =ThisWorkbook.Worksheets("Sheet1").ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)chartObj.Chart.SetSourceData dataRangechartObj.Chart.ChartType = xlPie```以上示例中，分别创建了柱状图、折线图和饼图，并将指定的数据范围设置为图表的数据源。

运用Excel VBA、CAD 绘制钻芯法柱状图

运用Excel VBA、CAD 绘制钻芯法柱状图摘要：运用VBA 语言，使Excel 2013 与CAD 2014 有机结合，充分发挥各自的强大功能，通过VBA 进行通信和数据交换，强强联手进行绘制钻芯法检测综合柱状图，显著提高工作效率，达事半功倍之效。

关键词：Excel VBA；CAD；钻芯法；柱状图1 引言现有的绘制柱状图软件是每绘制一个柱状图形成相互独立的文件，信息分散，不便管理校核，费时、费力，效率低，且易出错。

就目前而言，Excel 是微软公司的一款功能非常强大的数据处理软件，广泛应用于办公。

AutoCAD 是欧特克公司出品的自动计算机辅助设计软件，是广为流行的绘图工具。

VBA （ Visual Basic forApplications）是基于ActiveX 技术的面向对象的应用程序开发工具一种，Excel 2013 内置了VBA 开发工具，AutoCAD 2014 需另外安装VBA扩展包。

通过VBA 将各自强大的功能有机结合起来，进行通信和数据互换，使之强强联手，达事半功倍之效。

于此，笔者做了非常有益的尝试。

2 钻芯法综合柱状图绘制2.1 柱状图的绘制思路柱状图绘制的总体思路如图1。

2.2 Excel 工作表Excel 中共设置7 个工作表，分为人工录入信息表和自动计算表两种，并且设置每个工作表第1～4 行为表头行，第5 行开始为数据行，每个钻孔的信息为一行，且在各工作表中对应的行号相同。

列为数据项，以钻芯孔号为主索引。

人工录入信息表设置两个工作表，分别为基桩设计施工资料表（PileInfo）、钻孔数据表（CoreData）。

基桩设计施工资料表包含工程的基本信息，工程名称及检测桩的设计施工参数，包括桩号、桩径、施工桩长、桩顶标高、设计砼强度等。

钻孔数据表列包含钻孔编录的详细信息，钻芯孔号、开（终）孔日期、检测桩长、桩身与持力层的芯样描述、沉渣情况、各分层信息、砼（岩）取样位置及强度值等。

应用EXCEL和MAPCAD快速生成地质钻孔柱状图

逻辑结构 :
© 1994-2007 China Academic Journal Electronic Publishing House. All rights reserved.
106
云南地质
23 卷
文件头点数 1 号点 2 号点 …… 具体为 : A1 文件头 , 8 个字节 WMAP9022 (老的文件为 WMAP6022 或 WMAP7022 和 WMAP8022) B1 点数 n C1 1 号点 x1 y1 ID type {点类型 , 类型不同 , 点信息也不同。点类型取值如下 : 0 : 字符串 1 : 子图 2 : 圆 3 : 弧 4 : 图像 5 : 文本当 type = 0 时 , 点信息为 : ″字符串″ 字符高度字符宽度字符间隔字符串角度中文字体西文字体字形水平 (0) 或垂直排列 (1) 颜色图层透明输出当 type = 1 时 , 点信息为 : 子图号子图高子图宽子图角度辅色颜色线宽图层透明输出 …… n 号点 xn , yn , ID , type , …… 如 : WMAP9022
(2) 在 VB 中退出 EXCEL , 代码如下 : Public Sub CleanUp () Dim w As Variant For Each w In Application. Workbooks w. Save Next w Appzzt . Quit Set Appzzt = Nothing Set Wbzzt = Nothing End Sub
© 1994-2007 China Academic Journal Electronic Publishing House. All rights reserved.