For sandy....
where I can change color of the headers font in Forum Tool add-in?
I don't have the current newest version, but I think my old version is similar.....
Current: ( This is my version which I have already modified many times )
Using Excel 2007 32 bit
Row\Col |
A |
B |
C |
1 |
Date |
Name |
Laps |
2 |
05. Apr |
Dan |
23 |
Worksheet: Tabelle1
__ Alt+F11 (VB Editor Window)
__ 1 Forum Tools --- 2 Module --- 3 mBBCode
1 Forum Tools --- 2 Module --- 3 mBBCode.JPG : https://imgur.com/Rl95Bol
1 Forum Tools --- 2 Module --- 3 mBBCode.jpg
Code:
Private Function RngToBBC(rInp As Range, _
iSize As Long, _
Optional bHdr As Boolean = True, _
Optional bFrm As Boolean = False, _
Optional bA1 As Boolean = False, _
Optional bColour As Boolean = False) As String
'Const csHEADER_COLOR As String = """#FFFFFF"""
Const csHEADER_COLOR As String = "black"
'Const csHEADER_BACK As String = "#888888"
Const csHEADER_BACK As String = "#417394"
'Const csHEADER_BACK As String = "skyblue"
Const csROW_BACK As String = "#FFFFFF"
Dim sOut As String
Dim rRow As Range
Dim Cell As Range
_.________________-
Now Change to red for sandy...
Using Excel 2007 32 bit
Row\Col |
A |
B |
1 |
Date |
Name |
2 |
05. Apr |
Dan |
Worksheet: Tabelle1
Code:
Private Function RngToBBC(rInp As Range, _
iSize As Long, _
Optional bHdr As Boolean = True, _
Optional bFrm As Boolean = False, _
Optional bA1 As Boolean = False, _
Optional bColour As Boolean = False) As String
'Const csHEADER_COLOR As String = """#FFFFFF"""
Const csHEADER_COLOR As String = "black"
'Const csHEADER_BACK As String = "#888888"
'Const csHEADER_BACK As String = "#417394"
Const csHEADER_BACK As String = "red"
'Const csHEADER_BACK As String = "skyblue"
Const csROW_BACK As String = "#FFFFFF"
Dim sOut As String
Dim rRow As Range
Dim Cell As Range
_.______________________________________
Some test of mSettings code module
Using Excel 2007 32 bit
Row\Col |
A |
B |
1 |
Date |
Name |
2 |
05. Apr |
Dan |
Worksheet: Tabelle1
Using Excel 2007 32 bit
Row\Col |
A |
B |
1 |
Date |
Name |
2 |
05. Apr |
Dan |
Worksheet: Tabelle1
Using Excel 2007 32 bit
Row\Col |
A |
B |
1 |
Date |
Name |
2 |
05. Apr |
Dan |
Worksheet: Tabelle1
Using Excel 2007 32 bit
Row\Col |
A |
B |
1 |
Date |
Name |
2 |
05. Apr |
Dan |
Worksheet: Tabelle1
No changes in my old version
still no changes with this:
Code:
#If VBA7 Then
Public Const TB_BORDER_COLOR As String = "#BBB"
'Public Const COLHDR_BCKGRND_COLOR As String = "#DAE7F5"
Public Const COLHDR_BCKGRND_COLOR As String = "red"
Public Const ROWHDR_BCKGRND_COLOR As String = "#DAE7F5"
Public Const ROWHDR_BORDER_COLOR As String = "#BBB"
Public Const ROWHDR_FONT_COLOR As String = "#161120"
#Else
Public Const TB_BORDER_COLOR As String = "#A6AAB6"
'Public Const COLHDR_BCKGRND_COLOR As String = "#E0E0F0"
Public Const COLHDR_BCKGRND_COLOR As String = "red"
Public Const ROWHDR_BCKGRND_COLOR As String = "#E0E0F0"
Public Const ROWHDR_BORDER_COLOR As String = "#A6AAB6"
Public Const ROWHDR_FONT_COLOR As String = "#161120"
#End If
Using Excel 2007 32 bit
Row\Col |
A |
B |
1 |
Date |
Name |
2 |
05. Apr |
Dan |
Worksheet: Tabelle1
Bookmarks