Chart title default font

tagzadmin

New Member
Joined
Nov 5, 2002
Messages
4
Default for this is arial 12 point bold. Is there any way of changing what this defaults to?

Many Thanks.
 

Excel Facts

Workdays for a market open Mon, Wed, Friday?
Yes! Use "0101011" for the weekend argument in NETWORKDAYS.INTL or WORKDAY.INTL. The 7 digits start on Monday. 1 means it is a weekend.

Iridium

Well-known Member
Joined
Jul 15, 2002
Messages
2,831
You can change the default font for Excel - Tools|Options|General|Standard Font. I assume this will apply to the chart titles too
This message was edited by Chris Chattin on 2002-11-06 04:31
 

tagzadmin

New Member
Joined
Nov 5, 2002
Messages
4
Thanks for the reply Chris, but changing the default font here does not change the default for chart titles - any more ideas?
 

Iridium

Well-known Member
Joined
Jul 15, 2002
Messages
2,831
xl help file:

Change the default font and font size used in new workbooks
On the Tools menu, click Options, and then click the General tab.

In the Standard font box, click a font.


In the Size box, enter a font size.
Note You must restart Microsoft Excel to begin using the new default font and font size. The new default font and font size are used only in the new workbooks you create after you restart Microsoft Excel; existing workbooks are not affected.

Try exiting xl, restart and create your charts then in a new work book
 

tagzadmin

New Member
Joined
Nov 5, 2002
Messages
4

ADVERTISEMENT

Chris. Still insists on using font size 12 for title and 10 for axis labels. Doing a lot of charts - don't want the title large so have to change it manually every time. I have every confidence in you Chris.
 

Iridium

Well-known Member
Joined
Jul 15, 2002
Messages
2,831
I believe this macro works - it should loop through all the charts and apply the format

Sub ChartTitleFont()

'Prevents screen refresh whilst macro executes
Application.ScreenUpdating = False

'Run the Error handler "ErrHandler" when an error occurs.
On Error GoTo Errhandler


Dim ChartList As Integer
Dim x As Integer
' Variable chartlist stores a count of all embedded charts.
ChartList = ActiveSheet.ChartObjects.Count
' Increments the counter variable 'X' in a loop.
For x = 1 To ChartList
' Selects the chart object.
ActiveSheet.ChartObjects(x).Select
' Makes chart active.
ActiveSheet.ChartObjects(x).Activate

ActiveChart.ChartTitle.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Tahoma"
.FontStyle = "Regular"
.Size = 10
End With
Next

Errhandler:
End Sub
 

Forum statistics

Threads
1,144,451
Messages
5,724,425
Members
422,553
Latest member
excelgraham

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top