在PowerPoint幻灯片中添加水印
在PowerPoint幻灯片中添加水印
提问于 2018-07-25 02:31:33
我正在尝试用VBA在Excel中的PowerPoint幻灯片中添加水印，但不知道从哪里开始。我在谷歌上搜索了一下，什么也没找到。在Stackoverflow上有一个问题有一点帮助，但我不能理解它。我想知道有没有人能给我指个路或给我指个方向？同样，我只想在Master View中的一张幻灯片上添加一个水印。谢谢!
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-07-25 05:15:50
若要在母版视图中更改幻灯片，可以使用CustomLayouts集合。
注意，正如this question所指出的，您必须通过其索引而不是其Name来引用特定的CustomLayout。
此示例代码
- 创建或获取一个新的
Presentation - copies
Picture 1的幻灯片布局，并将其粘贴到第一个CustomLayout的Shapes集合中，这对我来说就是标题幻灯片布局。
我假设您可以从这里修改它的大小/位置或进行任何其他所需的更改。
Sub AddWatermark()
Dim wmark As Shape: Set wmark = ThisWorkbook.Sheets("Sheet1").Shapes("Picture 1")
Dim PPT As PowerPoint.Application
Dim pres As PowerPoint.Presentation
On Error Resume Next
Set PPT = GetObject(, "PowerPoint.Application")
On Error GoTo 0
If PPT Is Nothing Then
Set PPT = New PowerPoint.Application
End If
PPT.Visible = True
Set pres = PPT.Presentations.Add
wmark.Copy
pres.SlideMaster.CustomLayouts(1).Shapes.Paste
End Sub我的原始水印
显示应用的水印的标题幻灯片布局
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51505389
复制相关文章
相似问题
腾讯云开发者
