At the risk of pointing out something you may have already tried, have
you considered using:

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = jm_title
End With

You can set jm_title to be anything - either by proimpting the user to
enter his/her details or by obtaining them automatically from the
system

eg:

jmtitle=graph_subject + Application.UserName + cstr(Date)

I havent tried to but you should be able to segment the title into
separate lines using the carrage return ascii code eg:


jmtitle=Application.UserName + chr(13) + graph_subject + chr(13)+
cstr(Date)


I don't live in San francisco but you can post a beer to london if this
is at all helpful.



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/