Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
border on last cell of page effects border on beginning cell of ne | Excel Discussion (Misc queries) | |||
excel uses what technique to keep a cell reference constant when | Excel Discussion (Misc queries) | |||
cell border colors in Excel | Excel Discussion (Misc queries) | |||
cell border in excel | Excel Discussion (Misc queries) | |||
Changing the border of one cell s/n change the border of adjacent | Excel Discussion (Misc queries) |