首页 文章

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

提问于
浏览
1

我正在尝试找出我在通过CAT工具进行语言转换后导出的PowerPoint文件的宏 . 在一些语言对中,由于语言长度的不同,翻译的内容将不适合源文件文本框 .

因此,翻译和导出的PowerPoint文件包含多个形状/文本框,这些形状/文本框在这些形状的可见区域之外具有一些内容 . 我想知道在导出的PPT文件中的所有形状/文本框中新导出的文本内容是什么方法在整个文件中全局缩小以适应这些形状的原始大小 - 仅适用于发生内容溢出时的那些形状 .

我真正需要的是一个宏,IF文本高度/长度超过形状高度/长度然后将字体大小减小一直到文本尺寸=形状尺寸 . 我在MS Office 15工作 .

谢谢您的意见!

1 回答

  • 1

    你可以使用形状的TextRange的AutoSize属性,并让PowerPoint根据内容自动缩小文本,因为拟合将取决于字体的面,大小和样式属性?您可以使用以下属性执行此操作:

    oShp.TextFrame2.AutoSize = msoAutoSizeTextToFitShape
    

相关问题