none
Change the Default Font for All Views in a Project Plan RRS feed

  • Question

  • Hi,

    I want to change the default font for MS Project so that all columns on all views are showing the same, ie Arial 8.  I have to change the fonts on a view by view, column by column basis and this takes too much time.  Currently, once I have formatted a table and then have to insert a new column, the new column defaults to Calibri and is much larger than Arial. 

    The suggestions to change it on a view by view basis don't work for me as I switch between views, using the full functionality of MS Project, and everytime I change views I end up wasting time reformatting columns to make them easier to read.  I find Arial clean and clear, Calibri is a bit fuzzy to me as I don't have very good eyesight.

    Monday, February 17, 2014 1:46 PM

Answers

  • Hello,

    In scenario 1 above, it may be that someone has at some point applied explicit formatting to these columns, which will override and formatting inherited from the text style.

    If you run the code below on your project, it will clear out any residual formatting on your schedules, setting the text style on each view to be Arial 8pt.

    Sub ClearTextFormat()
    Dim vw_Original As String
    Dim vw As ViewSingle
    
    Application.ScreenUpdating = False
    
    'some views (such as team planner) don't allow
    'text styles, so just ignore those errors
    On Error Resume Next
    
    'capture the name of the current view
    vw_Original = ActiveProject.CurrentView
    
    'step through each view in the active project
    For Each vw In ActiveProject.ViewsSingle
        
        'apply the view
        vw.Apply
        
        'Select all rows in the view
        Application.SelectAll
        
        'and clear out any explicit text formatting applied
        Application.EditClearFormats
        
        'then set the "All" text style to arial, 8pt
        Application.TextStylesEx Item:=0, Font:="Arial", Size:="8"
        
    'move onto the next view
    Next vw
    
    'having done all views, reapply the original
    Application.ViewApply vw_Original
    
    Application.ScreenUpdating = True
    
    End Sub



    Andrew Simpson
    Founder – Eversight Ltd

    E: info@eversight.co.uk
    W: www.eversight.co.uk

    Download Eversight for MS Project — a free add-on which helps users build high quality schedules with MS project.

    • Marked as answer by mlpate64 Friday, February 21, 2014 1:29 PM
    Friday, February 21, 2014 12:53 PM

All replies

  • Which version of Project are you using? In case you have 2010 or 2013, have you tried the "text style" button in the format tab of the ribbon? This allows you choosing the format for all new tasks.

    Hope this helps.


    Guillaume Rouyre - MBA, MCP, MCTS

    Monday, February 17, 2014 2:50 PM
    Moderator
  • Hi,

    We use MS Project 2010 however the text style button only formats the data that it "can see" on the screen.   Anything new being added in defaults back to Calibri.  Its like looking at a slice through a pyramid, if you take a brick from the layer below it is formatted for that layer.  I want all my bricks to be identical in format.


    M.L. Pate

    Monday, February 17, 2014 3:04 PM
  • Hi ML,

    I just tested it with Project 2010 with the texte style button and it is working perfectly. When I select a specific formatting (font), it is applied also to the newly (after font selection) added columns.

    Just after selecting another font:

    After adding another column, the select font is applied:

    Even changing the table keeps the selected font.

    But you have to do it for every view.

    Hope this helps.


    Guillaume Rouyre - MBA, MCP, MCTS


    Monday, February 17, 2014 3:11 PM
    Moderator
  • Its the having to do it for every view that I want to avoid. 

    There are also instances where inserted columns do not come through in the correct format unfortunately I don't have time to post an example at the moment as this is reporting week and we are starting to get really busy but by next week I should be able to post an example. 


    M.L. Pate

    Monday, February 17, 2014 3:26 PM
  • Hi M.L.,

    Fonts are defined by view, so you will have to change the default for each view. Activate the view you want to change the default font of.

    Format -> Text Styles -> All: select the font,OK

    This will be applied for current project, you can save the font for a view as template you can save as global template.

    File -> Organize global template. Copy the view into Global.mpt

    All new files will now have the font selected as default for that view.


    Sapna Shukla

    Thursday, February 20, 2014 5:58 PM
    Moderator
  • Sorry folks, it just isn't happening for me. 

    1. I created the view with Arial 8 and saved it.  However when I bring in another field, in this instance a number field, it defaults back to Calibri 11: -

    2. I created the view and saved it in the global.mpt however when I create a new project plan it defaults back to Calibri even though I deleted the Gantt Chart view in the new file so that the Gantt Chart view would be picked up from the global.mpt.


    M.L. Pate

    Friday, February 21, 2014 8:50 AM
  • Hello,

    In scenario 1 above, it may be that someone has at some point applied explicit formatting to these columns, which will override and formatting inherited from the text style.

    If you run the code below on your project, it will clear out any residual formatting on your schedules, setting the text style on each view to be Arial 8pt.

    Sub ClearTextFormat()
    Dim vw_Original As String
    Dim vw As ViewSingle
    
    Application.ScreenUpdating = False
    
    'some views (such as team planner) don't allow
    'text styles, so just ignore those errors
    On Error Resume Next
    
    'capture the name of the current view
    vw_Original = ActiveProject.CurrentView
    
    'step through each view in the active project
    For Each vw In ActiveProject.ViewsSingle
        
        'apply the view
        vw.Apply
        
        'Select all rows in the view
        Application.SelectAll
        
        'and clear out any explicit text formatting applied
        Application.EditClearFormats
        
        'then set the "All" text style to arial, 8pt
        Application.TextStylesEx Item:=0, Font:="Arial", Size:="8"
        
    'move onto the next view
    Next vw
    
    'having done all views, reapply the original
    Application.ViewApply vw_Original
    
    Application.ScreenUpdating = True
    
    End Sub



    Andrew Simpson
    Founder – Eversight Ltd

    E: info@eversight.co.uk
    W: www.eversight.co.uk

    Download Eversight for MS Project — a free add-on which helps users build high quality schedules with MS project.

    • Marked as answer by mlpate64 Friday, February 21, 2014 1:29 PM
    Friday, February 21, 2014 12:53 PM
  • Thank you - brilliant.


    M.L. Pate

    Friday, February 21, 2014 1:29 PM