Excel Constant for Border All Around Cell
 

Hi.

I'm creating headings dynamically in Excel and am placing a border around
each cell as it's created.
I'd like to be able to border a cell with just 1 Excel constant instead of
having to use 4 - one for each side. Since adding borders, the program has
slowed down considerably. Is there a more efficient way than the one I'm
using now?

'*** Put a border around the heading just added
wshFIC.Cells(iHeadingLine, lLastColumn).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With

'*** Change the font for just this cell
With Selection.Font
.Name = "Arial Narrow"
.Bold = True
.Size = 9
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 37
End With

TIA.
Rita

Excel Constant for Border All Around Cell
 

Nope there is not one constant for all four sides. The constants are

xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight,
xlEdgeTop, xlInsideHorizontal, or xlInsideVertical

HTH

"RitaG" wrote:

Hi.

I'm creating headings dynamically in Excel and am placing a border around
each cell as it's created.
I'd like to be able to border a cell with just 1 Excel constant instead of
having to use 4 - one for each side. Since adding borders, the program has
slowed down considerably. Is there a more efficient way than the one I'm
using now?

'*** Put a border around the heading just added
wshFIC.Cells(iHeadingLine, lLastColumn).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With

'*** Change the font for just this cell
With Selection.Font
.Name = "Arial Narrow"
.Bold = True
.Size = 9
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 37
End With

TIA.
Rita

Excel Constant for Border All Around Cell
 

Pity. Thanks for your response.

"Jim Thomlinson" wrote:

Nope there is not one constant for all four sides. The constants are

xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight,
xlEdgeTop, xlInsideHorizontal, or xlInsideVertical

HTH

"RitaG" wrote:

Hi.

I'm creating headings dynamically in Excel and am placing a border around
each cell as it's created.
I'd like to be able to border a cell with just 1 Excel constant instead of
having to use 4 - one for each side. Since adding borders, the program has
slowed down considerably. Is there a more efficient way than the one I'm
using now?

'*** Put a border around the heading just added
wshFIC.Cells(iHeadingLine, lLastColumn).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With

'*** Change the font for just this cell
With Selection.Font
.Name = "Arial Narrow"
.Bold = True
.Size = 9
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 37
End With

TIA.
Rita

Excel Constant for Border All Around Cell
 

Rita, this line will fix you right up :)

Selection.BorderAround xlContinuous, xlThin

-Jack



"RitaG" wrote:

Hi.

I'm creating headings dynamically in Excel and am placing a border around
each cell as it's created.
I'd like to be able to border a cell with just 1 Excel constant instead of
having to use 4 - one for each side. Since adding borders, the program has
slowed down considerably. Is there a more efficient way than the one I'm
using now?

'*** Put a border around the heading just added
wshFIC.Cells(iHeadingLine, lLastColumn).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With

'*** Change the font for just this cell
With Selection.Font
.Name = "Arial Narrow"
.Bold = True
.Size = 9
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 37
End With

TIA.
Rita

Excel Constant for Border All Around Cell
 

And I've been doing it the hard way... :)

"Jack" wrote:

Rita, this line will fix you right up :)

Selection.BorderAround xlContinuous, xlThin

-Jack



"RitaG" wrote:

Hi.

I'm creating headings dynamically in Excel and am placing a border around
each cell as it's created.
I'd like to be able to border a cell with just 1 Excel constant instead of
having to use 4 - one for each side. Since adding borders, the program has
slowed down considerably. Is there a more efficient way than the one I'm
using now?

'*** Put a border around the heading just added
wshFIC.Cells(iHeadingLine, lLastColumn).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With

'*** Change the font for just this cell
With Selection.Font
.Name = "Arial Narrow"
.Bold = True
.Size = 9
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 37
End With

TIA.
Rita

Excel Constant for Border All Around Cell
 

Fabulous! So much better - thanks.

"Jack" wrote:

Rita, this line will fix you right up :)

Selection.BorderAround xlContinuous, xlThin

-Jack



"RitaG" wrote:

Hi.

I'm creating headings dynamically in Excel and am placing a border around
each cell as it's created.
I'd like to be able to border a cell with just 1 Excel constant instead of
having to use 4 - one for each side. Since adding borders, the program has
slowed down considerably. Is there a more efficient way than the one I'm
using now?

'*** Put a border around the heading just added
wshFIC.Cells(iHeadingLine, lLastColumn).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With

'*** Change the font for just this cell
With Selection.Font
.Name = "Arial Narrow"
.Bold = True
.Size = 9
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 37
End With

TIA.
Rita