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 

텍스트는 다음 텍스트가 파란색으로해야하지만, 검은 색 굵은해야 굴림 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 

내 대답을 받아들이