Proceso para averiguar el nombre del gráfico.
MsgBox ActiveChart.Name
Proceso para cambiar nombre del gráfico
Worksheets("[Nombre Hoja]").ChartObjects("[Nombre_Grafico]").Name = "[Nuevo Nombre]"
Proceso para cambiar el titulo al gráfico.
Gráfico incrustado:
Application.Workbooks("[Nombre_libro]").Worksheets("[Nombre Hoja]").ChartObjects("[Nombre_Grafico]").Chart.ChartTitle.Text = "[Nuevo Titulo]"
Application.Workbooks("[Nombre_libro]")--> de estas instrucciones podemos prescindir ya que estamos en ellos.
Gráfico Hoja Independiente:
Sheets ["Nombre_Grafico]").ChartTitle.Text = "[Nuevo Titulo]"
Proceso para cambiar un gráfico de Incrustado a Independiente
Worksheets("[Nombre_Hoja]").ChartObjects("[Nombre_Grafico").Chart.Location xlLocationAsNewSheet, "[Nombre_Nueva_Hoja]"
El proceso inverso, de Independiente a Incrustado
Charts ("Grafico1").Location xlLocationAsNewSheet, "[Nombre_Hoja]"
Proceso para activar el gráfico
Worksheets("[Nombre_Hoja]").ChartObjects("[Nombre_Grafico").Activate
Cambiar tipo de gráfico
activechart.type = XLl[tipo_grafico]
Crear boton y eliminar graficos de la hoja.
Dentro del botón pegar esta instrucción
Activesheet.chartobjects.delete
Crear boton activex para poder cambiar el formato del gráfico.
Hay muchas mas instrucciones aqui algunas de ellas.
ActiveSheet.ChartObjects("[Nombre_Grafico").Activate
With ActiveChart
.Type = xlArea
.ChartArea.Font.Name = "[Tipo_Letra]"
.ChartArea.Font.Size = "[Tamaño_Letra]"
.PlotArea.Interior.Color = vb[Color_en_Ingles
.Axes(xlValue).TickLabels.Font.[Tipo_Fuente] = True
.Axes(xlCategory).TickLabels.Font.[Tipo_Fuente] = True
.Legend.Position = xlLegendPositionBottom
End With
Modificar todos los graficos incrustados en la hoja
dim [nombre_variable] as chartobject
for each [nombre_variable] in Activesheet.ChartObject
[colocar las instrucciones a efectuar ]
next [nombre_variable]
