vba如何制作堆积柱形图

leoparddi

1. Sub QQ()
   
2.     Dim oChart As Chart
   
3.     Dim oWK As Worksheet
   
4.     Dim oChartObject As ChartObject
   
5.     Set oWK = Excel.Worksheets(1)
   
6.     Set oChartObject = oWK.ChartObjects.Add(100, 0, 900, 300)
   
7.     Set oChart = oChartObject.Chart
   
8.     '基于工作表的A1:B4单元格创建柱形图
   
9.     With oChart
   
10.         .ChartWizard Source:=oWK.Range("A2:I6"), gallery:=xlColumnClustered, PlotBy:=xlRows, HasLegend:=False
    
11.         With .SeriesCollection(1)
    
12.             .XValues = oWK.Range("A1:I1")
    
13.             .HasDataLabels = True
    
14.         End With
    
15.         '导出图表
    
16.         sExportFileName = Excel.ThisWorkbook.Path & "\Average Age By Year.jpg"
    
17.         aa = .Export(sExportFileName)
    
18.     End With
    
19.     '加载图表
    
20.     UserForm1.Image1.Picture = LoadPicture(sExportFileName)
    
21.     '删除创建的图表
    
22.     oWK.Shapes(2).Delete
    
23. End Sub

复制代码

堆积图.zip (21.39 KB, 下载次数: 6)

2024-1-14 08:59 上传

点击文件名下载附件

这是柱形图的代码  不知道怎么变成堆积柱形图
请各位老师帮忙改下代码

ly

leoparddi

ly 发表于 2024-1-14 09:33

如何叫数据标签都显示出来呢   这个只是显示了一个数据标签   难道要这么操作吗

• With .SeriesCollection(2)
•      .HasDataLabels = True
• End With
• With .SeriesCollection(3)
•      .HasDataLabels = True
• End With
• With .SeriesCollection(4)
•      .HasDataLabels = True
• End With
• With .SeriesCollection(5)
•      .HasDataLabels = True
• End With
  

剑指E

。