Chart Title change in macro

[AndyFu]

Sub FixTitle()
Workbooks("April_XP1.xls").Worksheets("Summary").ChartObjects(1).Chart. _
ChartTitle.Text = "Statistics for" & " " & Format(Date, "mmmmmmmm yyyy")

'Workbooks("April_XP1.xls").Worksheets("Summary").ChartObjects(1).Chart. _
' ChartTitle.Characters(Start:=1, Length:=24).Font


Workbooks("April_XP1.xls").Worksheets("Summary").ChartObjects(1).Chart. _
ChartTitle.Font.Name = "Arial"


Workbooks("April_XP1.xls").Worksheets("Summary").ChartObjects(1).Chart. _
ChartTitle.Font.FontStyle = "Bold"

Workbooks("April_XP1.xls").Worksheets("Summary").ChartObjects(1).Chart. _
ChartTitle.Font.Size = 9

Workbooks("April_XP1.xls").Worksheets("Summary").ChartObjects(1).Chart. _
ChartTitle.Font.Shadow = False

Workbooks("April_XP1.xls").Worksheets("Summary").ChartObjects(1).Chart. _
ChartTitle.Font.Colorindex = 1

End Sub

Now I need help with this line:
'Workbooks("April_XP1.xls").Worksheets("Summary").ChartObjects(1).Chart. _
' ChartTitle.Characters(Start:=1, Length:=24).Font

and if it's possible to do a With... I don't know I to do this.

Also, I would like to have the moth spelled out in it's entirety.

Helpppppp meee

Thanks

 

[Mudface]

This seems to work OK (using your original code, the title appeared as 'Statistics for September September 2002'. Was that what you wanted, 'cos it looks a bit odd . The title for the code below will return Statistics for September 2002 in bold): -

Sub FixTitle()

With Workbooks("April_XP1.xls").Worksheets("Summary").ChartObjects(1).Chart. _
ChartTitle
    .Text = "Statistics for " & Format(Date, "mmmm yyyy")
    With .Font
        .Name = "Arial"
        .Bold = True
        .Size = 9
    End With
End With

End Sub

Edit- cleaned it up a little bit.
This message was edited by Mudface on 2002-09-04 09:47

 

[AndyFu]

If I put 3 'm' : mmm it will only give me sept. but if I put 8 'm', I will have Septembe... but in December I will have every thing.... now for the moth of October, I will have 'OctoberO' because there is 8 letters...

 

[Mudface]

??

Entry for VBA help on Format: -

m Display the month as a number without a leading zero (1 – 12). If m immediately follows h or hh, the minute rather than the month is displayed.
mm Display the month as a number with a leading zero (01 – 12). If m immediately follows h or hh, the minute rather than the month is displayed.
mmm Display the month as an abbreviation (Jan – Dec).
mmmm Display the month as a full month name (January – December

 

[AndyFu]

Your right lol

I don't get it... how come it wasen't working last night... anyway... it's working now. DAM MICROSOFT lol

Thanks for helping me with those 2 issues.