我想要一個文本框，第一行和後面的文本行具有不同的格式，但它們必須位於同一個文本框中。這是我目前擁有的，它將相同的格式應用於所有文本。 Sub geberateSlide()
...
With currSlide.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=0, Top:=0,
我一直在試圖開發一個宏，它將用「Arial」替換所有呈現在字體中的字體。到目前爲止，我已成功替換文本框，表格和SmartArt的字體，但無法替換分組對象中的字體。以下是供參考的代碼。任何人都可以幫忙嗎？ 子TextFonts（） Dim oSl As Slide
Dim oSh As Shape
Dim oTbl As Table
Dim oSmt As SmartArt
Dim oNod
我想在PowerPoint 2013中字體更改文本選擇大膽地將「Couirier新」。我試着用這個VBA腳本來改變字體： Sub chengeFont()
With ActiveDocument.Selection
With .Font
.Name = "Courier New"
End With
End With
End Sub
但