ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 735|回复: 0

[求助] vsto绘图时数据删掉了,图形还在

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-5-27 17:19 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
vsto(VB2010)绘图时数据删掉了,图形还在?不知道是不是代码问题,在VBA中录宏得到的代码1、使用以下代码:
  1. <font size="3"><b>Function TongCurvesPlot(ByVal str As String)
  2.         ''''错误待修改
  3.         xlApp.ActiveSheet.Shapes.AddChart.Select()
  4.         xlApp.ActiveChart.ChartType = 73
  5.         xlApp.ActiveChart.SetSourceData(Source:=xlApp.Range("A1:F103"))
  6.         xlApp.ActiveChart.PlotArea.Select()
  7.         xlApp.ActiveChart.SeriesCollection(1).Values = xlApp.Range("A2:A103").Value
  8.         xlApp.ActiveChart.SeriesCollection(1).XValues = xlApp.Range("B2:B103").Value
  9.         xlApp.ActiveChart.SeriesCollection(2).Values = xlApp.Range("A2:A103").Value
  10.         xlApp.ActiveChart.SeriesCollection(2).XValues = xlApp.Range("C2:C103").Value
  11.         xlApp.ActiveChart.SeriesCollection(3).Values = xlApp.Range("A2:A103").Value
  12.         xlApp.ActiveChart.SeriesCollection(3).XValues = xlApp.Range("D2:D103").Value
  13.         xlApp.ActiveChart.SeriesCollection(4).Values = xlApp.Range("A2:A103").Value
  14.         xlApp.ActiveChart.SeriesCollection(4).XValues = xlApp.Range("E2:E103").Value
  15.         xlApp.ActiveChart.SeriesCollection(5).Values = xlApp.Range("A2:A103").Value
  16.         xlApp.ActiveChart.SeriesCollection(5).XValues = xlApp.Range("F2:F103").Value
  17.         '    xlApp.ActiveChart.SeriesCollection(6).Values = xlApp.Range("A2:A103")
  18.         '    xlApp.ActiveChart.SeriesCollection(6).XValues = xlApp.Range("G2:G103")
  19.         xlApp.ActiveChart.SeriesCollection.NewSeries()
  20.         xlApp.ActiveChart.SeriesCollection(6).Name = xlApp.Range("Q1").Value
  21.         xlApp.ActiveChart.SeriesCollection(6).XValues = xlApp.Range("P2:P500").Value
  22.         xlApp.ActiveChart.SeriesCollection(6).Values = xlApp.Range("Q2:Q500").Value
  23.         xlApp.ActiveChart.SeriesCollection.NewSeries()
  24.         xlApp.ActiveChart.SeriesCollection(7).Name = xlApp.Range("S1").Value
  25.         xlApp.ActiveChart.SeriesCollection(7).XValues = xlApp.Range("R2:R500").Value
  26.         xlApp.ActiveChart.SeriesCollection(7).Values = xlApp.Range("S2:S500").Value
  27.         Return False
  28.     End Function</b></font>
复制代码
2、生成的图形如下

Image00000.jpg (显然粉色的数据已经删掉,但图形还在);

3、看图形的数据,好像是数组?
=SERIES(aaa!$F$1,{#N/A,5.85819740536601,9.93071893295316,12.3379936060456,14.0638501105119,15.4166186539623,16.5336452904526,17.488201219471,18.3240287952852,19.0693482282431,19.7434332074757,20.3600357135108,20.9293143186328,21.4589879958429,21.9550611257956,22.4222977778852,22.8645426212539,23.284944386696,23.6861153695945,24.0702477609891,24.4392001156272,

test.rar

89.9 KB, 下载次数: 0

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-28 22:32 , Processed in 0.039015 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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