Excel 2010 vs 2013 TableStyle naming

Dr. Demento

Well-known Member
Joined
Nov 2, 2010
Messages
618
Office Version
  1. 2019
  2. 2016
Platform
  1. Windows
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
' [URL]http://www.mrexcel.com/forum/excel-questions/916251-array-examples-tablestyles.html#3[/URL]

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
 

Excel Facts

How can you automate Excel?
Press Alt+F11 from Windows Excel to open the Visual Basic for Applications (VBA) editor.
Upvote 0

Forum statistics

Threads
1,213,486
Messages
6,113,932
Members
448,533
Latest member
thietbibeboiwasaco

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