关于修改SlideMaster的问题

最新推荐文章于 2025-10-12 23:01:56 发布

原创最新推荐文章于 2025-10-12 23:01:56 发布 · 2.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #咨询

Office Development 同时被 3 个专栏收录

134 篇文章

订阅专栏

VBA

23 篇文章

订阅专栏

PowerPoint 2010

9 篇文章

订阅专栏

本文介绍了一段VBA代码，该代码用于修改PowerPoint幻灯片母版的页脚文本。用户输入修订编号后，代码将其添加到指定的页脚中。尽管代码有效，但更改仅应用于新的标题幻灯片，因此需要插入新幻灯片以查看效果。

有用户咨询一下问题：

Sub edtMastr()
    Dim strNewFoot As String
    
    strNewFoot = InputBox(prompt:="Enter the revision number.", _
        Title:="Revision", Default:="0")
    If strNewFoot = "0" Or strNewFoot = vbNullString Then
        Exit Sub
    Else
        If ActivePresentation.HasTitleMaster Then
            With ActivePresentation.TitleMaster.HeadersFooters
                .Footer.Text = "Test " & strNewFoot
                .Footer.Visible = msoTrue
            End With
        End If
    End If
End Sub

问为何代码执行后看不到任何效果。

其实，这个代码是有效果的，但是由于它修改的是"SlideMaster"——也就是说是用来创建新Slide的模版所以用户暂时是看不到任何东西的。想要看到效果其实也好办，找插入一个新的"Title Slide"就可以看到效果了。