Vba – 调整图表以适合数值

我正在Excel / Vba中使用图表，我得到了这个图表造成了麻烦：

我希望X值（B / C / D / E / F）适合所有的graphics宽度。 有没有人有一个macros？

Answer 1

使用Ctrl-T或Insert> Table将源数据转换为Excel表格对象。 然后根据表创build图表。

向表中添加更多数据时，图表将刷新。 图表的X轴将仅显示表格中存在的数据。

这里至关重要的一点是不要预先填充表中没有图表值的行。 所以不要把空行放在A列只有标签的地方，但是没有这个系列的值。

如果数据表中有空行，则可以对表进行过滤以仅显示包含数据的行，并且图表将忽略被过滤掉的行。 查看过滤表中没有显示第7行和第8行，并在图表中显示x和f值，我在图表行中没有任何间隙。

Answer 2

使用SetSourceData函数来更新图表的范围。

使用“不需要”项目设置的示例数据：

VBA更新源数据：

 Option Explicit Sub Test() Dim ws As Worksheet Dim chto As ChartObject Dim cht As Chart Set ws = ThisWorkbook.Worksheets("Sheet1") '<-- update to your sheet Set chto = ws.ChartObjects("Chart 1") '<-- update to your chart Set cht = chto.Chart cht.SetSourceData Source:=ws.Range("A1:F2") '<-- update to your range End Sub 

更新的例子：

其他相关问题：

• VBA图setsourcedata
• 在VBA中设置基于可变单元格范围的图表源数据