¿Cómo buscar y reemplazar texto en los títulos de gráficos en Excel?

Los gráficos son muy útiles para nosotros en Excel, y a menudo les asignamos algunos títulos para identificarlos. Pero, ¿has intentado buscar y reemplazar el valor de texto en los títulos de varios gráficos? Hoy hablaré sobre cómo encontrar un texto específico en múltiples títulos de gráficos y reemplazarlo por otro valor en Excel.

Buscar y reemplazar texto en títulos de gráficos en Excel con código VBA

Buscar y reemplazar texto en títulos de gráficos en Excel con código VBA

Supongamos que tienes una hoja de cálculo que contiene los gráficos como se muestra en la siguiente captura de pantalla, y deseas reemplazar el texto Enero por Febrero en todos los títulos de los gráficos. Por supuesto, puedes cambiarlos manualmente uno por uno, pero esto será muy lento si hay múltiples gráficos. Así que aquí, el siguiente código VBA puede ayudarte a manejar esta tarea.< /p>

1. Activa tu hoja de cálculo que contiene los gráficos en los que deseas buscar y reemplazar en sus títulos.

2. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Buscar y reemplazar texto en títulos de gráficos dentro de la hoja de trabajo activa

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. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que ingreses el texto antiguo que deseas reemplazar, ver captura de pantalla:

5. Luego haz clic en el botón Aceptar, y aparecerá otro cuadro de diálogo donde deberás escribir el nuevo valor de texto que deseas usar para reemplazar el antiguo, ver captura de pantalla:

6. Continúa haciendo clic en Aceptar para cerrar el cuadro de diálogo, y tus textos antiguos habrán sido reemplazados por los nuevos al mismo tiempo en la hoja de trabajo actual como se muestra en la siguiente captura de pantalla:

Nota: Si necesitas buscar y reemplazar el valor de texto de los títulos de los gráficos en todas las hojas de trabajo de un libro, debes aplicar el siguiente código VBA: (El procedimiento es el mismo que el anterior)

Código VBA: Buscar y reemplazar texto en títulos de gráficos dentro de todas las hojas de trabajo

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

Artículos relacionados:

¿Cómo buscar y reemplazar texto dentro de comentarios en Excel?

¿Cómo buscar y reemplazar texto específico en múltiples cuadros de texto de Excel?

¿Cómo cambiar varias rutas de hipervínculos a la vez en Excel?