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

逆风翔宇

以上，当数据多了，图表的大小还是一样的，会导致看不清，如何设置会比较好？
图表大小.rar (13.3 KB, 下载次数: 8)

2019-4-11 14:10 上传

点击文件名下载附件

刀羊

设置图表区大小貌似没有自动，只能以VBA代替手工。

逆风翔宇

刀羊 发表于 2019-4-11 20:20
设置图表区大小貌似没有自动，只能以VBA代替手工。

那请问版主，有VBA代码我可以看看么？

刀羊

逆风翔宇 发表于 2019-4-12 08:48
那请问版主，有VBA代码我可以看看么？

具体调整成多大,可以通过数据数量计算,  是不是录一个就可以有大部分代码了,

Datous

vba也麻烦，嵌入式图表没事件响应，用sheet事件响应就得动态图表了。
或者手动点击控件按钮

悠悠的炊烟

附件是否能满足楼主的要求？

Datous

使用控件遍历一下。

1. Private Sub CommandButton1_Click()
   
2.     Dim objShape As Object
   
3.     For Each objShape In Me.Shapes
   
4.         With objShape
   
5.             If .Type = msoChart Then .Height = 28 * .Chart.SeriesCollection(1).Points.Count
   
6.         End With
   
7.     Next
   
8. End Sub

复制代码

逆风翔宇

悠悠的炊烟 发表于 2019-4-12 17:24
附件是否能满足楼主的要求？

恩恩，效果很好，学习了，有了思路之后改写也会很方便。感谢

逆风翔宇

Datous 发表于 2019-4-12 22:46
使用控件遍历一下。

无法运行，具体是该怎么用呢？

Datous

逆风翔宇 发表于 2019-4-15 14:05
无法运行，具体是该怎么用呢？

commandbutton 是activeX控件，不是表单（窗体）控件。因此，要插入activeX控件，运行上面代码。