我试图使用 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
最佳答案
仅当缩放设置不是 100% 时才会发生此行为。在 100% 调整大小后,Excel 显示 5"* 9"。在您的帮助下,我回答了我的问题。谢谢你。
关于excel - 在 VBA 中精确调整图表的大小,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/58897059/