| |
|
|
| | программно вывожу на лист данные
xl.Application.Visible = True
xl.Parent.Windows(1).Visible = True
xl.Range("A2:A6").Merge
xl.Range("A2:A6").HorizontalAlignment = 2 ' выводить в центре ячейки
xl.Range("A2:A6").VerticalAlignment = 2 ' выводить в центре ячейки
========================================================
горизонтальное выравнивание почему то не работает??? | |
| |
| |
| |
|
|
| | Стесняюсь спросить, с каких пор значение константы xlCenter = 2 
xl.Range("A2:A6").HorizontalAlignment = -4108 'xlCenter ' выводить в центре ячейки
xl.Range("A2:A6").VerticalAlignment = -4108 'xlCenter ' выводить в центре ячейки
|
| |
| |
| |
| |
|
|
| | спасибо.
не стесняюсь ответить - нашёл в инете. 
http://delphimaster.net/view/3-2760 | |
| |
| |
| |
|
|
| | Обратите внимание на то, что автор ответа схитрил и в случае горизонтального выравнивания указал не значение, а саму константу  | |
| |
| |
| |
|
|
| | хитёр (с)...  | |
| |
| |
