使用VBA更改Powerpoint中Textcursor的字体（当前位置）

Question

在PowerPoint 2016中，我需要使用vba更改当前textcursor位置的字体名称，大小，颜色等。 所以我认为这段代码可以帮助您：

If ActiveWindow.Selection.Type = ppSelectionText Then  
With ActiveWindow.Selection.TextRange.Font  
'some code to change the name & size etc, like .name="Arial"  
End With  
End If  

问题：当我单击一个空文本框并运行该宏时，它起作用了，我可以输入所需的字体样式。但是当我第一次输入sth然后运行宏时，它没有用！ （我的意思是这并不影响我以后的打字。）
有人可以帮忙吗？