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

How to fill five years of quarters?
Type 1Q-2023 in a cell. Grab the fill handle and drag down or right. After 4Q-2023, Excel will jump to 1Q-2024. Dash can be any character.
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
 
Upvote 0
Thanks for the reply Chris, but changing the default font here does not change the default for chart titles - any more ideas?
 
Upvote 0
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
 
Upvote 0
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.
 
Upvote 0
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
 
Upvote 0

Forum statistics

Threads
1,213,563
Messages
6,114,332
Members
448,566
Latest member
Nickdozaj

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
Back
Top