ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 952|回复: 2

如何将数据批量添加到图标(深度-位移-时间曲线)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-11-21 22:41 | 显示全部楼层 |阅读模式
这种位移-深度-时间曲线,可以批量添加数据吗?请高手赐教

深度-位移-时间曲线

深度-位移-时间曲线

深度-位移-时间曲线.zip

35.12 KB, 下载次数: 4

深度-位移-时间曲线

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-11-22 19:15 | 显示全部楼层
Sub 宏6()
'
' 宏6 宏
'

'
    ActiveSheet.ChartObjects("图表 8").Activate
    ActiveSheet.ChartObjects("图表 8").Activate
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    For i = 9 To 99
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(9).Name = "=H01!R1Ci"
    ActiveChart.FullSeriesCollection(9).XValues = "=H01!R2C8:R10Ci"
    ActiveChart.FullSeriesCollection(9).Values = "=H01!R2C1:R10C1"
    Next
End Sub
自己录制了宏,手动添加了for循环,但是无法运行,请各位老师指点一下

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-11-29 11:01 | 显示全部楼层
查阅了好多资料,借鉴摸索终于搞出来了,供同行参考,相互学习,共同提高
Sub autohzqx()
Dim cxChart As ChartObject, cxSHT As Worksheet, qi As Integer
Set cxSHT = activesheet'从当前活动工作表提取数据绘图
Set cxChart = cxSHT.ChartObjects.Add(200, 200, 600, 900) '插入图表,定义了位置和尺寸
cxChart.Chart.ChartType = xlXYScatterSmoothNoMarkers '定义图表类型为拆线散点图
For qi = 1 To 207 '循环添加系列
cxChart.Chart.SeriesCollection.NewSeries
cxChart.Chart.SeriesCollection(qi).Name = cxSHT.Cells(2, qi + 1) '系列名称
cxChart.Chart.SeriesCollection(qi).XValues = cxSHT.Range(Cells(4, qi + 1), Cells(60, qi + 1)) '系列横轴取值区间
cxChart.Chart.SeriesCollection(qi).Values = cxSHT.Range(Cells(4, 1), Cells(60, 1)) '系列纵轴取值区间
Next qi
cxChart.Chart.HasTitle = True
cxChart.Chart.ChartTitle.Text = "H01测孔朝沿河向深层位移曲线(2017年~2019年)" '图表名称
cxChart.Chart.Axes(xlValue).MajorUnit = 5 '纵轴主要刻度设为5
cxChart.Chart.Axes(xlValue).ReversePlotOrder = True '刻度逆序
cxChart.Chart.Axes(xlValue).MaximumScale = 43 '纵轴最大值
cxChart.Chart.Axes(xlValue).MinimumScale = 3 '纵轴最小值
cxChart.Chart.Axes(xlValue).TickLabelPosition = xlLow '标签设最低
cxChart.Chart.Axes(xlCategory).MaximumScale = 20 '横轴最大值
cxChart.Chart.Axes(xlCategory).MinimumScale = -20 '横轴最小值
With cxChart.Chart.Axes(xlValue)
        .HasTitle = True
        .AxisTitle.Caption = "深度(m)"
    End With
    With cxChart.Chart.Axes(xlCategory)
        .HasTitle = True
        .AxisTitle.Caption = "位移(mm)"
    End With
End Sub
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-1-20 05:02 , Processed in 0.373004 second(s), 17 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表