怎么用VBA在excel中指定位置画图表？如怎么用VBA在 A7：G13位置画出图标

用下面代码可以在A7:G13位置生成图表，图表的数据源是sheet2表的A1:B5Sub 在指定位置生成图表()    Set ab = Range("a7:g13") '生成图表的位置    Set bbb = ActiveSheet.ChartObjects.Add(0, 0, 0, 0)    bbb.Chart.ChartType = xlColumnClustered '柱形图    bbb.Chart.SetSourceData Source:=Sheets("Sheet2").Range("A1:B5") '数据源    With bbb        .Top = ab.Top        .Left = ab.Left        .Width = ab.Width        .Height = ab.Height    End WithEnd Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Macro1()

' Macro1 Macro

' 宏由 xtu 录制，时间: 2013/5/17

'Selection.ColumnWidth = 18.38

Dim myData As String, sh As String

'定义变量myData, sh为字符型

myData = Selection.Address

'设置变量myData为当前选取的单元格区域

sh = ActiveSheet.Name

'设置变量sh为当前工作表的名称

Charts.Add

'添加图表

ActiveChart.ChartType = xlColumnClustered

'图表类型为柱形图

ActiveChart.SetSourceData Source:=Sheets(sh).Range(myData), PlotBy:=xlColumns

'设置图表数据源为myData(当前选取的单元格区域),数据系列为数据源中的列。

ActiveChart.Location Where:=xlLocationAsObject, Name:=sh

'设置图表的位置是当前工作表sh

With ActiveChart

'设置图表的各项参数

.HasTitle = True

'有图表标题

.ChartTitle.Characters.Text = "Snood 图表标题"

'图表标题的文字

.Axes(xlCategory, xlPrimary).HasTitle = True

'有主要横坐标标题

.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "主要横坐标"

'设置主要横坐标标题的文字

.Axes(xlValue, xlPrimary).HasTitle = True

'有主要纵坐标标题

.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "主要纵坐标"

'设置主要纵坐标标题的文字

End With

'结束设置图表的参数

ActiveChart.ChartArea.Select

End Sub

转载于:https://blog.51cto.com/laokaddk/1211790

怎么用VBA在excel中指定位置画图表？如怎么用VBA在 A7：G13位置画出图标相关推荐

利用VBA将excel中链接转换为图片形式存放在指定的单元格中
利用VBA将excel中链接转换为图片形式存放在指定的单元格中 VBA代码如下 Private Declare Function URLDownloadToFile Lib "urlmon& ...
VBA在Excel中的应用（一)：改变符合条件单元格的背景颜色
Jiahua Jin VBA在Excel中的应用(一):改变符合条件单元格的背景颜色在使用excel处理数据的时候,为了能更清晰的标示出满足特定条件的单元格,对单元格添加背景色是不错的选择.手工处理 ...
vba随机抽取人名不重复_excel筛选重复姓名求出Excel中不重复的人的姓名的VBA代码...
excel筛选重复姓名求出Excel中不重复的人的姓名的VBA代码,看到标题你是不是很兴奋,这不就是你想学习的知识吗?当你掌握excel筛选重复姓名这个知识的时候你一定很兴奋,一定不会后悔看了exc ...
matlab输出多个参数到表格固定列,matlab将excle的列提取出来?如何使用Matlab提取Excel中指定列的数据？...
MATLAB 在txt文件中怎么提取数据,并将那三列数据转化为EXCLE格式? 在matlab中 file import data number of text header lines 改成6 下一 ...
excel清空sheet内容 poi_POI操作Excel：隐藏、删除Excel中指定的Sheet
使用POI操作Excel时如何隐藏.删除Excel中指定的Sheet呢?在POI的API中的HSSFWorkbook类提供了相关的方法, (1)隐藏Sheet: setSheetHidden(int ...
VBA把excel中的图表复制到PPT中
可以使用 VBA 将 Excel 中的图表复制到 PowerPoint 中,只需执行以下几步:1. 在 Excel 工作簿中打开图表:2. 按住 "Ctrl" 键,并选择图表:3. ...
EXCEL中设置后面单元格的数据由前面单元格的数据带出
EXCEL中设置后面单元格的数据由前面单元格的数据带出 1:新建一个基础数据 2:在[基础数据]中建立基础数据 3:新建一个sheet命令为[操作],并在第一列单位格设置为序列,序列的基础数据在[基础 ...
Microsoft Excel 教程：如何在 Excel 中显示或隐藏图表图例？
欢迎观看 Microsoft Excel 教程,小编带大家学习 Microsoft Excel 的使用技巧,了解如何在 Excel 中显示或隐藏图表图例. 可以显示或隐藏图表的图例. 显示图例可以向读 ...
通过VBA在excel中实现股票历史数据查询和K线趋势图绘制（完整的excel原件可以在我的资源中下载）
原始文件下载地址:股票历史数据和K线图趋势线的绘制-VB文档类资源-CSDN下载文章目录前言一.目标二.方法三.界面和使用说明四.代码说明 1.查询历史数据 2.绘制K线图和趋势线 3.清 ...

怎么用VBA在excel中指定位置画图表？如怎么用VBA在 A7：G13位置画出图标

怎么用VBA在excel中指定位置画图表？如怎么用VBA在 A7：G13位置画出图标相关推荐

最新文章

热门文章

怎么用VBA在excel中指定位置画图表？ 如怎么用VBA在 A7：G13位置画出图标

怎么用VBA在excel中指定位置画图表？ 如怎么用VBA在 A7：G13位置画出图标相关推荐

最新文章

热门文章

怎么用VBA在excel中指定位置画图表？如怎么用VBA在 A7：G13位置画出图标

怎么用VBA在excel中指定位置画图表？如怎么用VBA在 A7：G13位置画出图标相关推荐