如何用VBA隐藏PowerPoint备注页的页码？

你之前的代码仅能隐藏幻灯片的页码，要隐藏备注页和讲义的页码，需要操作备注母版（NotesMaster）和讲义母版（HandoutMaster）——这类页码的可见性是在母版层级全局设置的，而非单张备注页。

正确的VBA代码 #

Sub HideNotesAndHandoutPageNumbers()
    ' 隐藏所有备注页的页码
    ActivePresentation.NotesMaster.HeadersFooters.PageNumber.Visible = False
    
    ' 可选：隐藏讲义的页码
    ActivePresentation.HandoutMaster.HeadersFooters.PageNumber.Visible = False
End Sub

你之前代码的问题说明 #

1. 遍历逻辑错误：NotesPage是单张幻灯片的备注页对象，无法通过ActivePresentation.NotesPage直接遍历；且页码设置是全局生效的，无需逐个处理单张备注页。
2. 属性名称错误：不存在NotesPageNumber这个属性，备注页/讲义的页码对应的属性是PageNumber，属于母版的HeadersFooters集合。

对应界面操作的逻辑 #

你提到的界面操作（插入->页眉和页脚->备注和讲义->取消勾选页码），本质就是修改了备注母版和讲义母版的PageNumber.Visible属性，和上述VBA代码的作用完全一致。

内容的提问来源于stack exchange，提问作者Derek Morgan