如何根据坐标轴的内容数量自适应的调整条形图大小？

逆风翔宇

Datous 发表于 2019-4-15 14:28
commandbutton 是activeX控件，不是表单（窗体）控件。因此，要插入activeX控件，运行上面代码。

恩，可以运行了，只是图表的条形宽度，随着数据量的增加，宽度依然会加大。
不知道还能优化不？

Datous

逆风翔宇 发表于 2019-4-15 15:43
恩，可以运行了，只是图表的条形宽度，随着数据量的增加，宽度依然会加大。
不知道还能优化不？

可以，可以通过调整plotarea.weight，反算 chart.weight，晚上吧

Datous

效果能实现差不太多。代码看似长，实际是遍历了一遍，其他图表都参照第一个图表的大小调整

1. Private Sub CommandButton1_Click()
   
2.     Dim objShp As Shape, I As Byte
   
3.     Dim sngUnit As Single
   
4.     Dim sngDiff As Single
   
5.    
   
6.     For Each objShp In Me.Shapes
   
7.         If objShp.Type = msoChart Then
   
8.             With objShp.Chart
   
9.                 If I = 0 Then
   
10.                     sngUnit = .PlotArea.Height / .SeriesCollection(1).Points.Count
    
11.                     sngDiff = .Parent.Height - .PlotArea.Height
    
12.                     I = I + 1
    
13.                 Else
    
14.                     .PlotArea.Height = .SeriesCollection(1).Points.Count * sngUnit
    
15.                     .Parent.Height = .PlotArea.Height + sngDiff
    
16.                 End If
    
17.             End With
    
18.         End If
    
19.     Next
    
20. End Sub

复制代码

逆风翔宇

Datous 发表于 2019-4-15 17:02
效果能实现差不太多。代码看似长，实际是遍历了一遍，其他图表都参照第一个图表的大小调整

效果不是很好，感觉不如第一次的，而且每次点击都会变化。