URGENT - NEED EXCEL PROGRAMMER - AUTOMATE THE TITLES IN MY EXCEL GRAPHS

[Marcello do Guzman]

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:

(e-mail address removed)

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

 

[Dave Ramage]

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