Como encontrar e substituir texto em títulos de gráficos no Excel?

Os gráficos são muito úteis para nós no Excel, e frequentemente atribuímos a eles alguns títulos para identificá-los. Mas você já tentou encontrar e substituir o valor de texto nos títulos de gráficos dentro de múltiplos gráficos? Hoje, vou falar sobre como encontrar um texto específico em múltiplos títulos de gráficos e substituí-los por outro valor no Excel.

Encontrar e substituir texto em títulos de gráficos no Excel com código VBA

Encontrar e substituir texto em títulos de gráficos no Excel com código VBA

Suponha que você tenha uma planilha que contém os gráficos, conforme mostrado na captura de tela a seguir, e você deseja substituir o texto Janeiro por Fevereiro em todos os títulos dos gráficos. Claro, você pode alterá-los manualmente um por um, mas isso será demorado se houver vários gráficos. Então aqui, o seguinte código VBA pode ajudá-lo a lidar com essa tarefa.

1. Ative sua planilha que contém os gráficos nos quais você deseja encontrar e substituir nos títulos.

2. Pressione as teclas ALT + F11, e abrirá a janela Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.

Código VBA: Encontrar e substituir texto em títulos de gráficos na planilha ativa

Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
For Each ch In xWs.ChartObjects
    If ch.Chart.HasTitle Then
        ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
    End If
Next
End Sub

4. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de prompt aparecerá para lembrá-lo de inserir o texto antigo que deseja substituir, veja a captura de tela:

5. Depois clique no botão OK, e outra caixa de prompt aparece, você precisa digitar o novo valor de texto que deseja usar para substituir o antigo, veja a captura de tela:

6. Continue clicando em OK para fechar a caixa de prompt, e seus textos antigos terão sido substituídos pelos novos de uma só vez na planilha atual, conforme mostrado na captura de tela a seguir:

Observação: Se você precisar encontrar e substituir o valor de texto dos títulos de gráficos em todas as planilhas de uma pasta de trabalho, deverá aplicar o seguinte código VBA: (O procedimento é o mesmo que o acima)

Código VBA: Encontrar e substituir texto em títulos de gráficos em todas as planilhas

Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
    For Each ch In sh.ChartObjects
        If ch.Chart.HasTitle Then
            ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
        End If
    Next
Next
End Sub

Artigos relacionados:

Como encontrar e substituir texto dentro de comentários no Excel?

Como encontrar e substituir texto específico em várias caixas de texto no Excel?

Como alterar vários caminhos de hiperlinks de uma só vez no Excel?