关于修改SlideMaster的问题

有用户咨询一下问题：

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"就可以看到效果了。