Question

要明确的是，我并没有询问如何在工作表上调整图表大小，而是如何调整工作表的图表大小。

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

虽然我已经在过去做过这个，但我目前还不知道我是怎么做到的。我一直在努力尝试以下代码：

Sub qqq()
Dim x

With Chart6
    .ChartArea.Height = 379.03
    .ChartArea.Width = 591.03
End With

End Sub

当我尝试运行它时，我得到＆＃34;运行时错误5＆＃34;

我缺少/没看到什么？

Answer 1

问题是Height和Width的输入位于点而不是mm！

使用this converter（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

如何在Excel中调整图表工作表的大小

1 个答案: