如何在Excel中调整图表大小

要清楚，我不问如何在工作表上调整图表大小，但是如何调整工作表的图表大小。

我想调整图表为3.79厘米高和5.91宽。

虽然我已经做到了这一点，但是我现在却对我的做法感到不知所措。 我一直在尝试和下面的代码玩弄：

Sub qqq() Dim x With Chart6 .ChartArea.Height = 379.03 .ChartArea.Width = 591.03 End With End Sub 

当我尝试运行它时，我得到“运行时错误5”

我错过了什么/没有看到？

Answer 1

问题是Height和Width的input是以点为单位而不是以毫米为单位的！

使用此转换器 （1厘米= 28.346 …点）或内置函数CentimetersToPoints ：

 Sub qqq() Dim x With Chart6 .ChartArea.Height = 107.3 .ChartArea.Width = 167.5 .ChartArea.Height = CentimetersToPoints(3.79) .ChartArea.Width = CentimetersToPoints(5.91) End With End Sub