Excel图表生成工具（VBA）将次纵坐标轴数据由柱形图更改为折线图形式（图文）

qmd009 · 发表于 2017-2-20 16:42

本帖最后由 qmd009 于 2017-2-20 16:52 编辑

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

这是需要做成图表的数据

---------------------------------------------------------------------------------------------------------------------------------------
对“列”进行设置后即可生成图表；

----------------------------------------------------------------------------------------------------------------------------------------
这是生成后的图表，4个数据都是柱状图；

-----------------------------------------------------------------------------------------------------------------------------------------
这个是我希望得到的图表，所有次纵坐标轴的数据都是折线图。

----------------------------------------------------------------------------------------------------------------------------------------
我知道可以通过右键点击图表上的数据通过更改图表类型来设置成折线图，但由于数据较多，希望能够在（图2）设置列的属性时，只要是次纵坐标轴的数据，再生成时可以直接生成为折线图。

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

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

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

qmd009 · 发表于 2017-2-20 21:36

求路过的大神帮忙看看！谢谢！急啊

liucqa · 发表于 2017-2-21 21:26

For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).ChartType = 你需要的类型

qmd009 · 发表于 2017-2-22 09:39

本帖最后由 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 后面
就实现了副纵坐标轴数据以折线图形式呈现！
再次感谢您的帮助！我会加油的！谢谢您！

ning84 · 发表于 2023-3-6 17:33

Private Sub del3()
Dim SunSetArr
SunSetArr = Array("兰州日出日落", "兰州高温低温", "珠海日出日落", "珠海高温低温", "武汉日出日落", "武汉高温低温", "北京日出日落", "北京高温低温", "抚远日出日落", "抚远高温低温", "漠河日出日落", "漠河高温低温", "三沙日出日落", "三沙高温低温", "喀什日出日落", "喀什高温低温")
Dim Pres As Presentation
Dim Sld As Slide
Dim ShpRng As ShapeRange
Set Pres = Application.ActivePresentation
For ii = Pres.Slides.Count To 2 Step -1
Set Sld = Pres.Slides(ii)
Sld.Delete
Next ii
Stop
Set Sld = Pres.Slides(1)
Sld.Name = SunSetArr(0)
Set ShpRng = Sld.Shapes.Range(Array("C1", "C2", "N"))
ShpRng.Select msoCTrue
ShpRng.Copy
For ii = 2 To UBound(SunSetArr) + 1
Set Sld = Pres.Slides.Add(ii, ppLayoutBlank)
Sld.Name = SunSetArr(ii - 1)
ActiveWindow.View.GotoSlide ii
ActiveWindow.View.Paste
Debug.Print Sld.Name
Next ii
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

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