如何在Excel中調整圖表大小

Question

要清楚，我不是問如何在工作表上調整圖表大小，而是如何調整工作表的圖表大小。

我想調整圖表爲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的輸入是在點而不是在毫米！

使用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