Цитата:
Сообщение от
andrewK
Добрый день.
Кто нибудь знает, как в Аксапте отформатировать вставленный колонтитул?
Например сделать его шрифт жирным.
Ручками можно сделать, значит и программно можно. Можно даже разные фрагменты текста по-разному. Запишите макрос рекордером и изучите.
Записанный код VBA получится примерно такой (я написал в правый нижний колонтитул "Стр. &[Страница] из &[Страниц]"):
PHP код:
With ActiveSheet.PageSetup
.RightFooter = _
"&""Arial,полужирный""&16Стр. &""Arial,обычный""&10&P из &""Arial,полужирный курсив""&20&S&N"
А дальше по фразе "Formatting Codes for Headers and Footers" поищите в файле VBAXL*.CHM соответствующую тему или в MSDN:
http://msdn.microsoft.com/en-us/library/bb225426.aspx . Там есть список кодов форматирования.
После анализа кода VBA его можно записать более компактно и эффективно, в частности, избавиться от русских слов в названии шрифта, заменив их форматными кодами &B и &I и придав коду независимость от региональных настроек:
PHP код:
With ActiveSheet.PageSetup
.RightFooter = _
"&""Arial""&B&16Стр. &B&10&P из &B&I&20&S&N"
End With
Ну, и в таком виде уже можно двигать в Аксапту. Должно будет получиться что-то вроде:
X++:
COM comTemp;
comTemp = ActiveSheet.PageSetup();
comTemp.RightFooter('&"Arial"&B&16Стр. &B&10&P из &B&I&20&S&N');