如何使用Excel VBA調整圖表大小以適合頁面大小？

Question

我試圖在Excel中調整圖表的大小以準確地適合可打印區域，例如圖表應該覆蓋整個A4頁面，除了邊緣區域，即它應該覆蓋(A4 height - top and bottom margins) x (A4 width - left and right margins)的區域。我已經嘗試了下面的代碼，但事實證明，圖表的高度與（A4高度 - 頂部和底部邊距）非常接近，但仍不完全相同，而寬度大約比（A4寬度 - 左右邊距）。

Private Sub Worksheet_Activate() 
    Dim sh As Worksheet 
    Dim objChartShape As Chart 

    Set sh = ActiveSheet 
    If sh.ChartObjects.Count <> 0 Then 
     sh.ChartObjects.Delete 
    End If 
    Set objChartShape = sh.Shapes.AddChart.Chart 

    Dim w, h As Long 
    w = Application.CentimetersToPoints(21#) ' A4 width in cm 
    h = Application.CentimetersToPoints(29.7) ' A4 height in cm 
    w = w - sh.PageSetup.LeftMargin - sh.PageSetup.RightMargin 
    h = h - sh.PageSetup.TopMargin - sh.PageSetup.BottomMargin 
    With objChartShape 
     .Parent.Left = 0 
     .Parent.Top = 0 
     .Parent.Width = w 
     .Parent.Height = h 
    End With 
End Sub 

上述代碼在工作表激活時會創建一個空圖表。您將看到圖表不夠高，無法達到頁腳區域的頂部，並且它太寬而無法放入單個頁面。

任何幫助將不勝感激，在此先感謝！

Answer 1

可能你還需要考慮頁眉和頁腳邊距？：

Private Sub Worksheet_Activate() 
    Dim sh As Worksheet 
    Dim objChartShape As Chart 

    Set sh = ActiveSheet 
    If sh.ChartObjects.Count <> 0 Then 
     sh.ChartObjects.Delete 
    End If 
    Set objChartShape = sh.Shapes.AddChart.Chart 

    Dim w, h As Long 
    w = Application.CentimetersToPoints(21#) ' A4 width in cm 
    h = Application.CentimetersToPoints(29.7) ' A4 height in cm 
    w = w - sh.PageSetup.LeftMargin - sh.PageSetup.RightMargin 
    h = h - sh.PageSetup.TopMargin - sh.PageSetup.BottomMargin - sh.PageSetup.HeaderMargin - sh.PageSetup.FooterMargin 
    With objChartShape 
     .Parent.Left = 0 
     .Parent.Top = 0 
     .Parent.Width = w 
     .Parent.Height = h 
    End With 
End Sub