Как поменять border страницы? |
Previous Top Next |
Code: |
{ ... } var Rng: OleVariant; LeftEdge: Border; { ... } WS.Range['A5', 'D5'].Borders.Item[xlEdgeTop].Weight := xlThick; WS.Range['A5', 'D5'].Borders.Item[xlEdgeTop].Color := clYellow; WS.Range['A5', 'D5'].Borders.Item[xlEdgeBottom].Linestyle := xlDouble; WS.Range['A5', 'D5'].Borders.Item[xlEdgeBottom].Color := clYellow; { ... }
{ ... } WS.Evaluate('B6, C6, D6, E6, F6').Borders.Item[xlEdgeLeft].Line style := xlContinuous; Rng := WS.Range['A1', 'A1']; Rng.BorderAround(xlContinuous, xlThin, Color := clFuchsia); LeftEdge := WS.Range['B2', 'B5'].Borders.Item[xlEdgeLeft]; LeftEdge.Linestyle := xlContinuous; LeftEdge.Weight := 3; LeftEdge.Color := clLime; { ... } |
©Drkb::04389
Взято с Delphi Knowledge Base: http://www.baltsoft.com/