Saltar al contenido principal

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

Los gráficos son muy útiles para nosotros en Excel y, a menudo, les damos algunos títulos para identificarlos. Pero, ¿ha intentado buscar y reemplazar el valor del texto en los títulos de los gráficos dentro de varios gráficos? Hoy, hablaré sobre cómo encontrar un texto específico en varios mosaicos de gráficos y reemplazarlos con otro valor en Excel.

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


flecha azul burbuja derecha Encuentre y reemplace texto en títulos de gráficos en Excel con código VBA

Supongamos que tiene una hoja de trabajo que contiene los gráficos como se muestra en la siguiente captura de pantalla, y desea reemplazar el texto enero por febrero solo dentro de todos los títulos de los gráficos. Por supuesto, puede cambiarlos manualmente uno por uno, pero esto llevará mucho tiempo si hay varios gráficos. Entonces, aquí, el siguiente código VBA puede ayudarlo a lidiar con esta tarea. </ P>

doc-reemplazar-títulos-gráficos1

1. Active su hoja de trabajo que contiene los gráficos que desea buscar y reemplazar en sus títulos.

2. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Código VBA: busque y reemplace 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. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que ingrese el texto anterior que desea reemplazar, vea la captura de pantalla:

doc-reemplazar-títulos-gráficos1

5. Y luego haz clic OK , y aparece otro cuadro de aviso, debe escribir el nuevo valor de texto que desea reemplazar el anterior, vea la captura de pantalla:

doc-reemplazar-títulos-gráficos1

6. Sigue haciendo clic OK para cerrar el cuadro de aviso, y sus textos antiguos han sido reemplazados por las noticias al mismo tiempo en la hoja de trabajo actual como se muestra en la siguiente captura de pantalla:

doc-reemplazar-títulos-gráficos1

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

Código VBA: busque y reemplace 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 encontrar y reemplazar texto dentro de los comentarios en Excel?

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

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

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Just want to say thanks for this. Saved me hours of time.
This comment was minimized by the moderator on the site
I want to do this for text in the legend and axis labels as well. What's the VBA name for the Legend? I tried to edit the module by replacing "ChartTitle" with "Legend" "LegendEntry" "ChartLegend" none work.
This comment was minimized by the moderator on the site
Some of my chart titles contain multiple font sizes. When I run the macro above, it converts all of the fonts to the same size and I have to go back through and manually re-size them. Is there a way to modify the VBA code so that it maintains the original font sizes? (I'm still a VBA newb, so any help would be appreciated!)
This comment was minimized by the moderator on the site
Thank you!!! It helped me so much!!!
This comment was minimized by the moderator on the site
This one works for me, because otherwise the variables are not declared : Sub ChartLabelReplace() 'Update 20141017 Dim xFindStr As String Dim xReplace As String Dim ws As Worksheet Dim ch As ChartObject xFindStr = InputBox("Find:") xReplace = InputBox("Replace:") For Each ws In Worksheets For Each ch In ws.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
This comment was minimized by the moderator on the site
How does one change the VBA macro to only apply the change to selected charts (and not all the charts on the worksheet)?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations