VBA用于在文本溢出时缩小PowerPoint中的字体

我正试图找出一个PowerPoint文件的宏，在通过CAT工具进行语言转换后导出。在某些语言对中，由于语言长度的差异，翻译的内容将无法放入源文件文本框中

因此，翻译和导出的PowerPoint文件包含多个形状/文本框，其中某些内容位于这些形状的可见区域之外。我想知道如何使导出的PPTs文件中所有形状/文本框中新导出的文本内容在整个文件中全局收缩，以适应这些形状的原始大小-仅在发生内容溢出时才适用于这些形状

我真正需要的是一个宏，如果文本高度/长度大于形状高度/长度，则将字体大小降低1，直到文本尺寸=形状尺寸。我在微软15办公室工作

---

谢谢你的意见

您是否可以使用形状文本范围的“自动调整大小”属性，并让PowerPoint根据内容自动收缩文本，因为适合度取决于字体、大小和样式属性？可以使用以下属性执行此操作：

oShp.TextFrame2.AutoSize = msoAutoSizeTextToFitShape

---

如果您发布了当前用于尝试执行此任务的代码，这将非常有用。如果你还没有写任何东西，试着用你遇到的具体问题来更新你的问题。事实上，它非常简单。我的问题是，我必须只包括那些有文本框和实际文本的形状。否则，即使文本框为空，宏也会缩小到适合所有形状。那么，你准备好了吗？还是还有问题需要回答？我们很好，谢谢！