ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] Excel图表生成工具(VBA)将次纵坐标轴数据由柱形图更改为折线图形式(图文)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-2-20 16:42 | 显示全部楼层 |阅读模式
本帖最后由 qmd009 于 2017-2-20 16:52 编辑

这里有一个Excel图表自动批量生成工具,我希望在图表设置时将其中设置为“次坐标轴的数据(列)的数据能以折线图方式呈现”-----------------------------------------------------------------------------------------------------------------------
这是需要做成图表的数据;

这是需要做成图表的数据

这是需要做成图表的数据

---------------------------------------------------------------------------------------------------------------------------------------
对“列”进行设置后即可生成图表;
2.png
----------------------------------------------------------------------------------------------------------------------------------------
这是生成后的图表,4个数据都是柱状图;
3.png
-----------------------------------------------------------------------------------------------------------------------------------------
这个是我希望得到的图表,所有次纵坐标轴的数据都是折线图。
4.png
----------------------------------------------------------------------------------------------------------------------------------------
我知道可以通过右键点击图表上的数据通过更改图表类型来设置成折线图,但由于数据较多,希望能够在(图2)设置列的属性时,只要是次纵坐标轴的数据,再生成时可以直接生成为折线图。

5.png
根据我的判断,我觉得应该是在 模块“ui_action”中的“generateComplexChart”过程中改写。我觉得是添加sc.Item.AxisGroup = 2 这样的语句,但我不确定,目前我还是在入门阶段,还请各位大神帮忙看看。非常感谢!

下面是 数据&vba宏&使用说明

数据&VBA宏&使用说明.rar (984.17 KB, 下载次数: 186)



TA的精华主题

TA的得分主题

 楼主| 发表于 2017-2-20 21:36 | 显示全部楼层
求路过的大神帮忙看看!谢谢! 急啊

TA的精华主题

TA的得分主题

发表于 2017-2-21 21:26 | 显示全部楼层
For i = .SeriesCollection.Count To 1 Step -1
            .SeriesCollection(i).ChartType = 你需要的类型

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-2-22 09:39 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 qmd009 于 2017-2-22 09:41 编辑
liucqa 发表于 2017-2-21 21:26
For i = .SeriesCollection.Count To 1 Step -1
            .SeriesCollection(i).ChartType = 你需要的 ...

非常感谢!您这句是将所有数据都转换成某一种图的数据吧?我把它放在 For i = 0 To colCount - 1这个循环外,所有的数据都变成了折线图,
后来我把.SeriesCollection(i).ChartType = xlLine                                                                                                                     放在了If colType = "2" Then
      sr.AxisGroup = 2  后面
就实现了副纵坐标轴数据以折线图形式呈现!
再次感谢您的帮助!我会加油的!谢谢您!




TA的精华主题

TA的得分主题

发表于 2023-3-6 17:33 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
  1. Private Sub del3()
  2.     Dim SunSetArr
  3.            SunSetArr = Array("兰州日出日落", "兰州高温低温", "珠海日出日落", "珠海高温低温", "武汉日出日落", "武汉高温低温", "北京日出日落", "北京高温低温", "抚远日出日落", "抚远高温低温", "漠河日出日落", "漠河高温低温", "三沙日出日落", "三沙高温低温", "喀什日出日落", "喀什高温低温")
  4.      
  5.      
  6.      Dim Pres As Presentation
  7.      Dim Sld As Slide
  8.      Dim ShpRng As ShapeRange
  9.          Set Pres = Application.ActivePresentation
  10.          For ii = Pres.Slides.Count To 2 Step -1
  11.                Set Sld = Pres.Slides(ii)
  12.                Sld.Delete
  13.          Next ii
  14.          Stop
  15.          Set Sld = Pres.Slides(1)
  16.          Sld.Name = SunSetArr(0)
  17.          Set ShpRng = Sld.Shapes.Range(Array("C1", "C2", "N"))
  18.          ShpRng.Select msoCTrue
  19.          ShpRng.Copy

  20.          For ii = 2 To UBound(SunSetArr) + 1
  21.              Set Sld = Pres.Slides.Add(ii, ppLayoutBlank)
  22.              Sld.Name = SunSetArr(ii - 1)
  23.              ActiveWindow.View.GotoSlide ii
  24.              ActiveWindow.View.Paste
  25.              Debug.Print Sld.Name
  26.          Next ii
  27. End Sub
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-1 07:08 , Processed in 0.031595 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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