On 11/9/2010 20:39, TJ Frazier wrote:
Quick test works just fine.
Correction: world's worst tester, here. I didn't check the line-change
part, because I don't know what I'm looking for. I only tested the
background color-change, which does still work fine (which it should,
since it is unchanged from what you wrote).
Obviously, my brain is fried for tonight. Here's the bottom half of the
code, with the changes. Does the new line stuff work?
strBorder = oTable.TableBorder
' strTemp = strBorder.TopLine : strTemp.Color = RGB(0, 139,
205) : strTemp.OuterLineWidth = 4 : strBorder.TopLine = strTemp
' strTemp = strBorder.LeftLine : strTemp.Color = RGB(0, 139,
205) : strTemp.OuterLineWidth = 4 : strBorder.LeftLine = strTemp
' strTemp = strBorder.RightLine : strTemp.Color = RGB(0, 139,
205) : strTemp.OuterLineWidth = 4 : strBorder.RightLine = strTemp
' strTemp = strBorder.VerticalLine : strTemp.Color = RGB(0, 139,
205) : strTemp.OuterLineWidth = 2 : strBorder.VerticalLine = strTemp
' strTemp = strBorder.HorizontalLine : strTemp.OuterLineWidth = 0 :
strBorder.HorizontalLine = strTemp
' strTemp = strBorder.BottomLine : strTemp.Color = RGB(0, 139,
205) : strTemp.OuterLineWidth = 8 : strBorder.BottomLine = strTemp
subLineUp( strBorder.TopLine, 4 )
subLineUp( strBorder.LeftLine, 4)
subLineUp( strBorder.RightLine, 4)
subLineUp( strBorder.VerticalLine, 2)
subLineUp( strBorder.HorizontalLine, 0)
subLineUp( strBorder.BottomLine, 8)
oTable.TableBorder = strBorder
End Sub
Sub subLineUp (oLine as Object, iWide as Integer)
oLine.Color = RGB(0, 139, 205)
oLine.OuterLineWidth = iWide
End Sub 'subLineUp
--
/tj/
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
