关于修改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 IfEnd Sub

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


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