vba - 在我的 PowerPoint 演示文稿的每张幻灯片的笔记上运行它

Question

我试图让这段代码在长 PPT 演示文稿的每张幻灯片的注释上运行。它将拉丁字体更改为 Calibri，将亚洲（在我的情况下为中文）字体更改为 MS YaHei。

如何更改此代码以使其在每个页面上都可以使用，而不仅仅是在选择中，就像在我的情况下一样？

Sub YahEmb()
With ActiveWindow.Selection.TextRange.Font

.NameAscii = "Calibri"
.NameFarEast = "Microsoft YaHei"
.NameOther = "Calibri"

End With
End Sub

标签： vbapowerpointdesktop-publishing