[Gráficos] Como formatar título de gráfico com VBA?

Question

Olá pessoal!

O problema é o seguinte: No título do gráfico tenho duas informações relevantes: o título e o subtitulo. Não estou conseguindo, via código, formatar de modo que o Título fique bem maior que o subtítulo.

Encontrei este código na internet, entretanto somente a última configuração que entra e em todo o texto.

Estou usando Excel 2007 (versão 12.0.6545.5000) em ambiente Win XP.

Sub FormataTitulo()

  ActiveSheet.ChartObjects(1).Activate
  
    Title1 = "Titulo"
    Title2 = "Subtitulo"
    Title = Title1 & Chr(10) & Title2
   
  With ActiveChart.ChartTitle
   .Text = Title
  
    
    With .Characters(Start:=1, Length:=Len(Title1)).Font
    .Name = "Calibri (Corpo)"
    .Bold = True
    .Size = 18
    End With
  
    With .Characters(Start:=Len(Title1) + 1, Length:=Len(Title2)).Font
      .Name = "Calibri (Corpo)"
      .Bold = False
      .Size = 10
    End With
  End With
  

End Sub

Desde já, grato!

---

André Leopoldino

Answer 1

Esse código funciona pra mim. Tive só que alterar a linha

  With .Characters(Start:=Len(Title1) + 1, Length:=Len(Title2)).Font

por

  With .Characters(Start:=Len(Title1) + 1, Length:=Len(Title2)+1).Font

porque a última letra do subtítulo não estava recebendo a formatação da fonte.

---

Felipe Costa Gualberto http://www.ambienteoffice.com.br