Results 1 to 4 of 4

Thread: Excel 2010 vs 2013 TableStyle naming
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    Board Regular Dr. Demento's Avatar
    Join Date
    Nov 2010
    Location
    Skipping stones off Charon's Ferry
    Posts
    545
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Excel 2010 vs 2013 TableStyle naming

    Has anyone else noticed that the color schemes for Tables created in 2010 are different than those in 2013? From what I can see, the grey and blue (first and second styles) in each color grouping (1-7, 8-14, 15-21, etc) are the same; the remainder are a little off (2010 red vs 2013 orange = Light10) but some are really off (2010 green vs 2013 grey, Light11).

    More importantly, any recommendations on how I can update workbooks created in 2010 to the 2013 color schema?

    Thanks y'all.

    Here is some code to create the table color schema; as far as I can tell, the difference is the version the workbook was created under.

    Code:
    Sub styles_listGrid_drD()
    ' ~~ Array of examples of TableStyles
    ' http://www.mrexcel.com/forum/excel-q...estyles.html#3
    
    Const maxDepth  As Long = 25
    Const strtCell  As String = "B2"
    Dim Down        As Long
    Dim Across      As Long
    Dim tblStyl     As TableStyle
    Dim rng         As Range
    Dim i           As Long
    
      With ActiveWorkbook.Worksheets.Add
    
        For i = 0 To 143
          Set tblStyl = ActiveWorkbook.TableStyles(i + 1)
          Down = (i Mod maxDepth)
          Across = Int(i / maxDepth)
          Set rng = .Range(strtCell).OffSet(Down * 4, Across * 2).Resize(3, 1)
    
          With .ListObjects.Add(xlSrcRange, rng, , xlYes)
            .TableStyle = tblStyl
            .ListRows(1).Range.Cells(1, 1).Value = i + 1
            .HeaderRowRange.Columns(1) = tblStyl.Name
          End With
        Next i
    
        .UsedRange.Columns.AutoFit
      End With 'ActiveWorkbook
    End Sub

  2. #2
    Board Regular Dr. Demento's Avatar
    Join Date
    Nov 2010
    Location
    Skipping stones off Charon's Ferry
    Posts
    545
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Excel 2010 vs 2013 TableStyle naming

    Bump?

  3. #3
    Board Regular
    Join Date
    Jan 2014
    Location
    Pittsburgh
    Posts
    1,073
    Post Thanks / Like
    Mentioned
    10 Post(s)
    Tagged
    1 Thread(s)

    Default Re: Excel 2010 vs 2013 TableStyle naming

    The colors change with the "Page Layout" and theme colors—changing the color scheme from the menu's "Page Layout" tab changes the colors offered on the "Design" tab for the table. I have not explored how to do this via vba. You might explore the ThemeColorScheme object, its members and methods:
    https://msdn.microsoft.com/en-us/vba...-object-office
    https://msdn.microsoft.com/en-us/vba...-method-office

  4. #4
    Board Regular Dr. Demento's Avatar
    Join Date
    Nov 2010
    Location
    Skipping stones off Charon's Ferry
    Posts
    545
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Excel 2010 vs 2013 TableStyle naming

    Much appreciated. Sorry for the delay response.

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •