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

我想一个功能，可以缩放字体的大小自动到一行。 我知道下面的代码可以是手动的

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

谁能给出完整而好的代码。

---

我在网上搜索了很长时间。但是没有用。请帮助或尝试给出一些如何实现这一点的想法

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

---

您的声誉足以让人期待您了解网站规则，如中所述。但在过去的一周里，你们提出了太多低质量的问题，我觉得我不得不发表评论，因为你们现在必须接近一个问题禁令。这些问题中的问题描述是不完整的：永远不清楚你到底在问什么。最近的问题不会与问题所属的应用程序一起标记。老实说，我怀疑一个主要的问题是英语语言能力不足，无法很好地解决问题……你说的是字体大小、字体间距还是对齐方式？三件不同的事情。我是否正确理解当您希望最大字体大小时，您的标题仍在单元格中的一行中？此外，您有17个问题，其中0个问题的答案是有标记的。也许先看看吧！只需调整字体比例，而不是大小，因此投票重新打开。然而，我先前的评论仍然有效。您有16个开放式问题，其中至少有多个问题得到了有效答案，但您没有回答其中任何一个问题。也许你仍然需要接受网站的帮助？问题是你请求帮助，接受帮助，却不承认。在短时间内发生了16次这样的事情之后，你能期待的最好的帮助就是建议你不要这么粗鲁。回到你之前的16个问题，选择一些你想要的答案。评论那些你觉得没有达到你期望的内容。这是一个好主意，但我想输入一个没有表格的单词，然后输出一个单词来显示代码