excel - 在 VBA 中精确调整图表的大小

Question

我试图使用 VBA 在 Excel 中调整一些图表的大小。下面的代码完成了这项工作，但有一个警告:Excel 2016 将调整大小的图表的大小报告为 5.21"* 9.02"而不是我预期的 5"* 9"。任何关于如何将图表精确调整为 5"* 9"的建议将不胜感激。请注意，我没有任何限制来保持纵横比。

谢谢你。

Sub chartResize()
   Dim i As Integer
   Dim chartWidthInInches As Double
   Dim chartHeightInInches As Double

   chartHeightInInches = 5
   chartWidthInInches = 9

   For i = 1 To ActiveSheet.Shapes.Count
       If ActiveSheet.Shapes(i).Type = msoChart Then
          ActiveSheet.Shapes(i).Height = chartHeightInInches * 72
          ActiveSheet.Shapes(i).Width = chartWidthInInches * 72
       End If
   Next i
End Sub

Answer 1

仅当缩放设置不是 100% 时才会发生此行为。在 100% 调整大小后，Excel 显示 5"* 9"。在您的帮助下，我回答了我的问题。谢谢你。