Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Шрифт в колонтитуле
 
#1
28.06.2011 17:51:05
Уважаемые форумчане! Подскажите, как с помощью vb поменять шрифт в колонтитуле? из похожих тем нашел только такие строчки:  
 
If Not Intersect(Target, Range("A1")) Is Nothing Then  
 Sheets("Лист1").PageSetup.CenterHeader = Sheets("Лист1").Range("A1")  
End If  
   
и "это" в колонтитул, конечно, исправно пихает текст ячейки A1 из Лист1, но мелким шрифтом, а необходимо 14-м размером полужирным(само начертание шрифта не имеет значения, будь то Arial или TimesNewRoman...не важно)
 
 
 
#2
28.06.2011 20:31:58
так установите нужный размер
 
 
 
#3
28.06.2011 22:41:45
Я тоже не вижу проблемы: установка нужного шрифта и его размер хорошо записываются макрорекордером.
 
 
 
#4
29.06.2011 09:28:53
Ладно, выкладываю пример, чтоб понятнее было...просто макрорекордер мне ничего не дал. При записи макрорекордером(запись-> параметры страницы -> создать верхний колонтитул -> выделяю центральный текст -> шрифт на 14) макрос меняет шрифт от написанного, а если часть текста поменялась на листе3 ? то макросу до балды, он все равно запихнет строчку которая в нем формировалась при записи, а мне нужно, чтоб колонтитул тоже менялся(точнее часть текста) в зависимости от выбора из выпадающего списка на Листе3
 
 
 
#5
29.06.2011 10:42:19
Sub Макрос1()  
With ActiveSheet.PageSetup  
.CenterHeader = "&14" & Sheets("Лист3").Cells(3, 5)  
End With  
End Sub
 
 
 
#6
29.06.2011 10:46:56
при активации листа 1.
 
 
 
#7
29.06.2011 11:13:35
Спасибо! то что нужно! только немного изменил, добавил полужирность )))  
 
With ActiveSheet.PageSetup.CenterHeader = "&""полужирный""&14" & Sheets("Лист3").Cells(3, 5)  
End With
 
 
 
#8
29.06.2011 11:24:04
Кстати, блин, что то не прокатило...почему то прокатывает только через условие  
 
Private Sub Worksheet_Activate()  
If Sheets("Лист1").Activate Then  
ActiveSheet.PageSetup.CenterHeader = "&""Arial Cyr,ïîëóæèðíûé""&14" & Sheets("Лист3").Cells(3, 5)  
End If  
End Sub  
 
мож кому тоже пригодится...классная штука, особенно если много шаблонных "книг", написал в одной код, а потом просто меняешь в выпадающем списке инфу, и вуаля! все готово, останется только переименовать файл. :-)
 
 
 
#9
29.06.2011 11:25:59
{quote}{login=Miha-nikus}{date=29.06.2011 11:24}{thema=}{post}Кстати, блин, что то не прокатило...почему то прокатывает только через условие  
 
Private Sub Worksheet_Activate()  
If Sheets("Лист1").Activate Then  
ActiveSheet.PageSetup.CenterHeader = "&""Arial Cyr,ïîëóæèðíûé""&14" & Sheets("Лист3").Cells(3, 5)  
End If  
End Sub  
 
мож кому тоже пригодится...классная штука, особенно если много шаблонных "книг", написал в одной код, а потом просто меняешь в выпадающем списке инфу, и вуаля! все готово, останется только переименовать файл. :-){/post}{/quote}  
 
тьфу, блин...  
 
ActiveSheet.PageSetup.CenterHeader = "&""Arial Cyr,&полужирный""&14" & Sheets("Лист3").Cells(3, 5)
 
 
 
Страницы: 1
Читают тему
Наверх