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

qmd009

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

这是需要做成图表的数据

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

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

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

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


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

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

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

2017-2-20 16:40 上传

点击文件名下载附件

qmd009

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

liucqa

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

qmd009

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

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. 
    
21.          For ii = 2 To UBound(SunSetArr) + 1
    
22.              Set Sld = Pres.Slides.Add(ii, ppLayoutBlank)
    
23.              Sld.Name = SunSetArr(ii - 1)
    
24.              ActiveWindow.View.GotoSlide ii
    
25.              ActiveWindow.View.Paste
    
26.              Debug.Print Sld.Name
    
27.          Next ii
    
28. End Sub

复制代码