如何编写在vba中自动缩放字体的函数

Question

我希望功能可以将字体大小自动缩放到一行。我知道以下代码可以作为比例手册

With .Paragraphs.First.Range.Font.Scaling = 41
end with

并且我尝试获取字体的宽度，并计算字体间距但不是最佳解决方案

With .PageSetup
.PageWidth = CentimetersToPoints(21)               
.LeftMargin = CentimetersToPoints(2.8)              
.RightMargin = CentimetersToPoints(2.6)
end with  
with 
.Paragraphs.First.Range.font.size = 60            
.Range.Font.Spacing = CentimetersToPoints(15.6) - (180 ^ (1 / 2)) * (.Range.Characters.Count - 1)) / (.Range.Characters.Count - 2)     'not correct

谁可以提供完整而优​​质的代码。我正在网上搜索很长时间。但是没用。请帮助或尝试给出一些想法来实现这一目标。

Answer 1

这可能不是您所需要的，因为它仅调整间距而不是缩放，但是如果将文本插入单个单元格表格中并删除表格边框，则可以将单元格选项设置为适合文本：