在PowerPoint中使用VBA缩小形状中的字体/文本框

Question

当文本框溢出或触及其所在形状的边界时，我会尝试缩小文本框。因此，它适合形状(如矩形，正方形等形状)。如果在所有幻灯片中的整个演示文稿中都能做到这一点，那会更有帮助。请播撒希望的光芒！

​

​

如下图所示，我想操纵文本“气候变化”，使其看起来像“气候”在上面的方框。

Answer 1

这是一个简单的代码：

oShp.TextFrame2.AutoSize = msoAutoSizeTextToFitShape

其中Oshp是PPT中的形状

在幻灯片1中循环遍历所有形状的

Sub ResizeText()

Dim shp As Shape

    For Each oShp In ActivePresentation.Slides(1).Shapes

    oShp.TextFrame2.AutoSize = msoAutoSizeTextToFitShape

    Next


End Sub

Link to Similar Answer

Answer 2

文本框永远不会“在”形状中。它们是彼此堆叠在一起的独立对象。请参阅我对您的subsequent question的回答，以获得处理此类格式的更好方法。