如何通過Microsoft PowerPoint宏在文本框中格式化單個行？

Question

我想要一個文本框，第一行和後面的文本行具有不同的格式，但它們必須位於同一個文本框中。這是我目前擁有的，它將相同的格式應用於所有文本。

Sub geberateSlide() 
    ... 
    With currSlide.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _ 
    Left:=0, Top:=0, Width:=headerWidth, Height:=headerHeight) 
    .TextFrame.TextRange.Text = "Test Box" & vbCrLf & "Description" 
    .TextFrame.AutoSize = ppAutoSizeNone 
    .Height = headerHeight 
    .Line.ForeColor.RGB = RGB(0,0,0) 
    .Line.Visible = True 
    End With 
... 
End Sub 

該文本應該是Arial 8.第1行應該是黑色和粗體，而後面的文本應該是藍色的。

Answer 1

.TextFrame.TextRange.Lines(0, 1)將針對第一行。

300％縮放

With currSlide.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _ 
           Left:=0, Top:=0, Width:=headerWidth, Height:=headerHeight) 
    .Height = headerHeight 
    .TextFrame.AutoSize = ppAutoSizeNone 
    With .TextFrame.TextRange 
     .Text = "Test Box" & vbCrLf & "Description" 
     With .Font 
      .Color = vbBlue 
      .Size = 8 
      .Name = "Arial" 
     End With 

     With .Lines(1).Font 
      .Color = vbBlack 
      .Bold = msoTrue 
     End With 
    End With 
End With