Exporting New User-Defined Charts

[Debbee Huston]

I have created 6 new charts specific to my data and I want
to create a macro (?) that will allow me to send the new
chart types to other's computers so these are an option
for them to choose as well?!?!?

[Jon Peltier]

You have 6 chart objects on the worksheet. In A1:A6 put the Names of these
charts for the chart type dialog, and in B1:B6 put the descriptions. Put this
macro in the file:

Sub MakeCustomChartStyles()
Dim i as Integer
For i=1 to 6
Application.AddChartAutoFormat _
Chart:=ActiveSheet.ChartObjects(i).Chart, _
Name:=Activesheet.Cells(i,1), _
Description:=Activesheet.Cells(i,2)
Next
End Sub

Circulate your workbook, and ask everyone to run the macro. Alternatively,
make the workbook into an addin, and run the macro in the Workbook_Open
procedure.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
http://www.geocities.com/jonpeltier/Excel/index.html
_______

In article <53b401c2bcdf$4e38a820$d4f82ecf@TK2MSFTNGXA11>,
debbee...@ucr.edu says...