我有一个任务,当将文件保存到d:\document\这样的特定位置时,文件路径会出现在页脚中。我发现代码中只显示名称,而不显示文件路径,但是当我再次保存时,名称没有更新。Sub AddTextBoxDateFilename() ' Adds a text box with date and filename to each slide ' You must first save the presentation at least once before using this Dim oSh As Shape
因此,我使用以下代码在几张幻灯片的标题中添加一个文本框: Set myDocument = ActivePresentation.Slides.Range(Array(4, 5, 6))
Set newTextBox如果我在一张幻灯片上这样做,它是有效的。有人知道为什么吗?我想要做的就是给特定的幻灯片添加标题。因此,我将使用相同的方法将不同的标题添加到其他幻灯片中。
因此,我有一些VBA代码,它从PowerPoint复制一个对象(在本例中是文本框),并将其粘贴到工作簿中的特定范围中。它的90%在那里,但有一个问题,当粘贴多个文本框在一张纸上。下面的代码从10个不同的幻灯片中粘贴10个不同的文本框。幻灯片4-7贴在同一张纸上,但有4个不同的范围.然而,幻灯片4-6是贴在另一个上面的,只是跟随第一个幻灯片的粘贴范围,但出于某种原因,幻灯片7的对象在正确的范围内。Dim Ppt As