更改幻灯片大小时未调整文本大小答案

【问题标题】：Text not resized when changing slide size更改幻灯片大小时未调整文本大小
【发布时间】：2021-02-26 05:40:28
【问题描述】：

我有一个关于 PowerPoint 调整大小的菜鸟问题。
我有一张“屏幕显示 (16:9)”尺寸的幻灯片，我需要将其调整为“宽屏”尺寸，它仍然是 16:9 的比例，但尺寸不同。
所以我更改了“幻灯片大小”选项：图片的大小调整得很好，但 texboxes 中的文本字体大小没有按比例更改。
我的初始幻灯片如下所示： before resizing
但是调整大小后，文本框中的文本字体大小没有改变： after resizing

有没有人可以用同样的方式调整幻灯片的所有元素（包括文本）的大小？
提前谢谢你。

【问题讨论】：

通常，用户希望字体保持相同的高度，因为在相同的高度（7.5"）下调整大小保持不变。只有宽度发生变化。您可以编写一个宏来将文本大小减小成比例的金额。
谢谢。令人惊讶的是，并非所有文本框都以相同的方式处理：大多数文本没有调整大小，但其他一些文本则根据正确的比例调整大小。我不知道我将如何编写一个可以区分要修改的文本的宏。
我在任何情况下都看不到文本的大小调整。如果你看到了，那么你将不得不弄清楚这些形状与其他形状有什么不同。随意将显示该文件的文件上传到云服务，然后在此处发布共享链接。我看看。
您可以注意到，在我的 2 个屏幕截图之间，[调整大小之前](i.stack.imgur.com/jddTf.jpg) 和 [调整大小之后](i.stack.imgur.com/LdE1R.jpg)，单词“Erreur Absolue”已正确调整大小，而不是到“倾斜距离”这个词。我不知道为什么，因为两者都在一个文本框中。但我有一个线索：我注意到一个带有“溢出时收缩文本”选项的文本框似乎已正确调整大小。我现在正在为我的 PowerPoint 文档中的所有文本框搜索激活此选项的 VBA 代码。
感谢您的帮助。我将在新线程中发布我的新问题。

标签： resize powerpoint

【解决方案1】：

我尝试使用此 VBA 代码让所有文本框都带有“溢出时收缩文本”选项：

Sub Change()
  Dim oSlide As Slide
  Dim oShape As Shape
  For Each oSlide In ActivePresentation.Slides
    For Each oShape In oSlide.Shapes
       oshape.TextFrame2.AutoSize = MsoAutoSize.msoAutoSizeTextToFitShape 
    Next oShape
  Next oSlide
End Sub

但不幸的是，这不起作用。

【讨论】：

John Korchok 在我为此打开的另一个线程中很好地回答了我的问题。