Como saber y cambiar el nombre de un grafico de Excel





En este post se muestra una macro que permite saber y cambiar el nombre de un gráfico de Excel, la utilidad básica es saber el nombre para luego conectar con Word e indicar en Word el nombre del gráfico que se desea pegar o insertar, cada uno le encontrará otra utilidad, pero renombrado de los gráficos de Excel, sabiendo su nombre insertar un marcador con el nombre del gráfico en Word, para luego copiar gráficos de Excel a Word, en el link que sigue encontrarás una macro que copia los gráficos de Excel a Word.
principalmente es automatizar el

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mailconectar Excel con Access y muchos ejemplos más.











  


Al descargar el archivo se puede observar dos botones uno renombre los gráficos y agrega el nombre en el titulo de cada gráfico, el otro botón quita el nombre del gráfico del titulo del gráfico, al presionar los botones se puede observar que la macro realiza los descripto.

La macro va a recorrer cada uno de los gráficos que existan en la hoja de Excel y los va a renombrar así "ID más el número del gráfico recorrido por el bucle", es decir quedará ID1, ID2 y así sucesivamente con todos los gráficos que existan en la hoja.

Agregará en el titulo del gráfico su nombre para su mejor identificación, cuando no sea necesario presionando el otro botón quita el nombre del gráfico del titulo del mismo.

Para determinar el nombre del gráficos se puede cargar en una variable su nombre como por ejemplo, en el siguiente caso se le asigna a la variable xx el nombre del gráfico que recorre actualmente el bucle.

xx = ActiveSheet.ChartObjects(x).Name

Para cambiar el nombre del gráfico se utiliza la siguiente codificación:

ActiveSheet.ChartObjects(x).Name = "ID" & x

Por último la macro establece si el gráfico tiene titulo, en caso de tener titulo concatena o une el nombre del gráfico con el del titulo que tiene actualmente el gráfico, en caso de no tener titulo le agrega uno con el nombre del gráfico, esto se hace con la siguiente codificación:

If tit = Empty Then ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Text = "[ID" & x & "] " & tit

Desde el link del final se puede descargar el archivo del ejemplo de macro que se ha denominado como saber y cambiar el nombre de un gráfico en Excel, recuerda que desde el link que sigue se muestra como copiar los gráficos de Excel a Word.

En el caso que puedas considera aportar para sostener el sitio y según incorporando nuevos ejemplos que podrás descargar en forma gratuita, en caso que no puedas solicitó compartas el conocimiento con tus amigos en redes sociales. 


Código que se inserta en un módulo


Sub CrearID()
On Error Resume Next

'Seleccionar todos los objetos chart o graficos
ActiveSheet.ChartObjects.Select

For x = 1 To ActiveSheet.ChartObjects.Count

'Para saber nombre grafico
xx = ActiveSheet.ChartObjects(x).Name

ActiveSheet.ChartObjects(x).Name = "ID" & x
ActiveSheet.ChartObjects(x).Activate
'para saber nombre grafico activado
hh = ActiveChart.Name
tit = ActiveChart.ChartTitle.Text
If Mid(tit, 1, 3) = "[ID" Then GoTo salta:
'Para crear un titulo al gráfico si no tiene
If tit = Empty Then ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Text = "[ID" & x & "] " & tit
tit = Empty
salta:
Next x
Cells(17, "I").Select
End Sub


Sub QuitaID()
On Error Resume Next
For x = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(x).Name = "ID" & x
ActiveSheet.ChartObjects(x).Activate
tit = ActiveChart.ChartTitle.Text

If Mid(tit, 1, 3) = "[ID" Then
lug = InStr(tit, " ")
tit = Mid(tit, lug + 1)
ActiveChart.ChartTitle.Text = tit
tit = Empty
End If
Next x
Cells(17, "I").Select
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends