在 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 的回复，了解处理此类格式的更好方法。