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

  • Pergunta

  • 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
    segunda-feira, 29 de novembro de 2010 14:18

Todas as Respostas

  • 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
    terça-feira, 30 de novembro de 2010 00:57
    Moderador