Колонтитулы в Excel

[Vitaly_K]

Спасибо ребят... ,думаю это поможет

[andrewK]

Добрый день.
Кто нибудь знает, как в Аксапте отформатировать вставленный колонтитул?
Например сделать его шрифт жирным.

[Gustav]

Цитата:

Сообщение от 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 


Ну, и в таком виде уже можно двигать в Аксапту. Должно будет получиться что-то вроде:

COM comTemp;

comTemp = ActiveSheet.PageSetup();
comTemp.RightFooter('&"Arial"&B&16Стр. &B&10&P из &B&I&20&S&N');

[andrewK]

А, не обратил внимание на закрывающий тэг &.
Спасибо большое