VBA 用于在文本溢出时缩小 PowerPoint 中的字体
VBA for shrinking the font in PowerPoint when text overflows
我正在尝试为通过 CAT 工具进行语言转换后导出的 PowerPoint 文件找出一个宏。在某些语言对中，由于语言长度的差异，翻译后的内容将无法放入源文件文本框中。
因此，翻译和导出的 PowerPoint 文件包含多个 shapes/text 框，这些框的某些内容超出了此类形状的可见区域。我想知道有什么方法可以使导出的 PPT 文件中所有 shapes/text 框中新导出的文本内容在整个文件中全局缩小以适应这些形状的原始大小 - 仅适用于发生内容溢出时的那些形状。
我真正需要的是一个宏，如果文本 height/length 大于形状 height/length 则将字体大小减小一个，直到文本尺寸 = 形状尺寸。我在 MS Office 15 中工作。
感谢您的意见！
能否使用形状的 TextRange 的 AutoSize 属性 并让 PowerPoint 根据内容自动缩小文本，因为适合度取决于字体、大小和样式属性？您可以使用以下 属性:
oShp.TextFrame2.AutoSize = msoAutoSizeTextToFitShape
我正在尝试为通过 CAT 工具进行语言转换后导出的 PowerPoint 文件找出一个宏。在某些语言对中，由于语言长度的差异，翻译后的内容将无法放入源文件文本框中。
因此，翻译和导出的 PowerPoint 文件包含多个 shapes/text 框，这些框的某些内容超出了此类形状的可见区域。我想知道有什么方法可以使导出的 PPT 文件中所有 shapes/text 框中新导出的文本内容在整个文件中全局缩小以适应这些形状的原始大小 - 仅适用于发生内容溢出时的那些形状。
我真正需要的是一个宏，如果文本 height/length 大于形状 height/length 则将字体大小减小一个，直到文本尺寸 = 形状尺寸。我在 MS Office 15 中工作。
感谢您的意见！
能否使用形状的 TextRange 的 AutoSize 属性 并让 PowerPoint 根据内容自动缩小文本，因为适合度取决于字体、大小和样式属性？您可以使用以下 属性:
oShp.TextFrame2.AutoSize = msoAutoSizeTextToFitShape