I am on the verge of releasing an Excel-based application for tanning
salons and spas. This is the mother of applications, but I need to add
automation to my graphs.

I need to automate the graphs that I have in my application so that
the title automatically reflects:

1. Customer Name
2. Subject of Graph
3. Date Covered By Graph

My application already has the customer name and date appear at the
top of each spreadsheet. My problem is taking that information and
using it so that it appears in the title of my graphs.

I need someone who nows how to do this and can show me how to do this
either in person or over the telephone. I am willing to pay for this
service. Show me how to do one and I can do the rest.

If you live within the San Francisco Bay Area this would be better.

You may contact me through my email which is:



Please leave your name, where you live and a telephone number plus
best time to reach you.

I need to have this done ASAP.

Sincerely,



Marcello

Marcello,

Here are two bits of code that should suit. Use AddTitle1
if your chart is on a separate chart sheet. Use AddTitle2
if the chart is embedded in a ChartObject on a worksheet.
Change the sheet names and ranges as required and it
should do what you need.

Sub AddTitle1()
Dim strName As String, strSubject As String
Dim dtStart As Date, dtEnd As Date
Dim chrt As Chart, ws As Worksheet

Set ws = ActiveWorkbook.Sheets("Sheet1")
strName = ws.Range("A1").Value
strSubject = "Summary For Year"
dtStart = ws.Range("A2").Value
dtEnd = ws.Range("A3").Value

Set chrt = ActiveWorkbook.Charts(1)
chrt.HasTitle = True
chrt.ChartTitle.Characters.Text = strName & "- " &
strSubject & ", " _
& Format(dtStart, "dd-mmm-yy") & " to " & Format
(dtEnd, "dd-mmm-yy")
End Sub

Sub AddTitle2()
Dim strName As String, strSubject As String
Dim dtStart As Date, dtEnd As Date
Dim chrt As Chart, ws As Worksheet

Set ws = ActiveWorkbook.Sheets("Sheet1")
strName = ws.Range("A1").Value
strSubject = "Summary For Year"
dtStart = ws.Range("A2").Value
dtEnd = ws.Range("A3").Value

Set chrt = ActiveWorkbook.Sheets("Sheet1").ChartObjects
(1).Chart
chrt.HasTitle = True
chrt.ChartTitle.Characters.Text = strName & "- " &
strSubject & ", " _
& Format(dtStart, "dd-mmm-yy") & " to " & Format
(dtEnd, "dd-mmm-yy")
End Sub

Cheers,
Dave
-----Original Message-----
I am on the verge of releasing an Excel-based application
for tanning
salons and spas. This is the mother of applications, but
I need to add
automation to my graphs.

I need to automate the graphs that I have in my
application so that
the title automatically reflects:

1. Customer Name
2. Subject of Graph
3. Date Covered By Graph

My application already has the customer name and date
appear at the
top of each spreadsheet. My problem is taking that
information and
using it so that it appears in the title of my graphs.

I need someone who nows how to do this and can show me
how to do this
either in person or over the telephone. I am willing to
pay for this
service. Show me how to do one and I can do the rest.

If you live within the San Francisco Bay Area this would
be better.

You may contact me through my email which is:



Please leave your name, where you live and a telephone
number plus
best time to reach you.

I need to have this done ASAP.

Sincerely,



Marcello
.