Powerpoint VBA - 将文本框和文本复制到所有幻灯片（不选择）答案

【问题标题】：Powerpoint VBA - Copying Text box AND Text to all slides (w/o selecting)Powerpoint VBA - 将文本框和文本复制到所有幻灯片（不选择）
【发布时间】：2016-06-06 12:28:07
【问题描述】：

我正在自动化一些数据输出 PowerPoint，我需要一个脚本，它将所有带有文本的文本框复制到所有幻灯片，我还需要指定方向（左/上/宽/高）。我只设置了第一张带有标题的幻灯片，并希望它以完全相同的方向复制到 100 多张幻灯片。

我找到了以下代码：

 Dim oSh As Shape
 Dim x As Long
 
 Set oSh = ActiveWindow.Selection.ShapeRange(1)

 For x = 2 To ActivePresentation.Slides.Count
     oSh.Copy
     ActivePresentation.Slides(x).Shapes.Paste
 Next

但它要求我选择文本框，这不是我想要的。我已经搜索过，但似乎找不到我想要的。

【问题讨论】：

标签： vba text powerpoint

【解决方案1】：

'Set oSh = ActiveWindow.Selection.ShapeRange(1)
Set oSh = ActivePresentation.Slides(1).Shapes(n)
' You'll need to work out the value of n for your particular slide layout

 For x = 2 To ActivePresentation.Slides.Count
     oSh.Copy
     ActivePresentation.Slides(x).Shapes.Paste
 Next

【讨论】：