如何使用VBA更改powerpoint 2013中选择的字体

Question

我想更改powerpoint 2013中的文本选择字体为粗体和“Couirier New”。我尝试使用此VBA脚本来更改字体：

Sub chengeFont()
    With ActiveDocument.Selection
        With .Font
            .Name = "Courier New"
        End With
    End With
End Sub

但它不起作用。有什么建议？

Answer 1

这将更改字体并在运行时将其设为粗体

With ActiveWindow.Selection.TextRange.Font
    .Name = "Courier New"
    .Bold = msoTrue
End With

由于您从选择中运行它，因此文档应始终是活动文档，否则您需要更改ActiveWindow