Rostislav Říha
24.08.2008, 22:12
DD,
zase s tím otravuju tady, ničeho lepšího nemaje - ale určitě to taky řešíte... máte v Excelu soubor, v něm spoustu listů a podobně, jako v autocadu, i tady řešíte cosi jako rohové razítko: jednotné záhlaví, zápatí...listy jste (protože jste pořádní) založili na jednotné šabloně, takže všechny mají ta záhlaví a zápatí jednotná, s Vaším logem, názvem listu, projektu atd...no, a teď se to stalo: potřebujete ve všech listech v tom záhlaví něco přidat...já to zatím umím jen manuálně list po listu a hrozně mne to štve.
Zatím jsem se progoogloval k makru, které umí udělat všechna zápatí jednotně, ale pouze tak, jak je to napsáno v makru - takže bych musel vždy pro tu konkrétní úpravu to makro měnit, což je nepraktické a hlavně to vůbec není WYSIWYG...
Prosím, neumíte někdo to makro (přikládám) upravit tak, aby všechna záhlaví a zápatí upravila tak, aby obsahovala to, co je v záhlaví a zápatí aktivního listu? (Logika je: v jednom listu nastavím vše, co potřebuji, a pomocí makra to rozkopíruji do všech ostatních...)
Makro přikládám a děkuji předem za pomoc
rr
Dim s As Worksheet Application.ScreenUpdating = False For Each s In ActiveWorkbook.Worksheets With s.PageSetup.CenterHeaderPicture .FileName = "Y:\Rh-Procedures\Rh-arch-transp.gif" End With With s.PageSetup.CenterHeaderPicture .Height = 28.5 .Width = 28.5 End With With s.PageSetup .LeftHeader = (Application.ActiveWorkbook.BuiltinDocumentProperties.Item("Title")) & Chr(10) & (Application.ActiveWorkbook.BuiltinDocumentProperties.Item("Subject")) .CenterHeader = "&G " .RightHeader = "&""Tahoma,Tučné""&16&A" .LeftFooter = "&F" .CenterFooter = "Strana &P z &N" .RightFooter = "Vytištěno &D v &T" End With Next s Application.ScreenUpdating = True
zase s tím otravuju tady, ničeho lepšího nemaje - ale určitě to taky řešíte... máte v Excelu soubor, v něm spoustu listů a podobně, jako v autocadu, i tady řešíte cosi jako rohové razítko: jednotné záhlaví, zápatí...listy jste (protože jste pořádní) založili na jednotné šabloně, takže všechny mají ta záhlaví a zápatí jednotná, s Vaším logem, názvem listu, projektu atd...no, a teď se to stalo: potřebujete ve všech listech v tom záhlaví něco přidat...já to zatím umím jen manuálně list po listu a hrozně mne to štve.
Zatím jsem se progoogloval k makru, které umí udělat všechna zápatí jednotně, ale pouze tak, jak je to napsáno v makru - takže bych musel vždy pro tu konkrétní úpravu to makro měnit, což je nepraktické a hlavně to vůbec není WYSIWYG...
Prosím, neumíte někdo to makro (přikládám) upravit tak, aby všechna záhlaví a zápatí upravila tak, aby obsahovala to, co je v záhlaví a zápatí aktivního listu? (Logika je: v jednom listu nastavím vše, co potřebuji, a pomocí makra to rozkopíruji do všech ostatních...)
Makro přikládám a děkuji předem za pomoc
rr
Dim s As Worksheet Application.ScreenUpdating = False For Each s In ActiveWorkbook.Worksheets With s.PageSetup.CenterHeaderPicture .FileName = "Y:\Rh-Procedures\Rh-arch-transp.gif" End With With s.PageSetup.CenterHeaderPicture .Height = 28.5 .Width = 28.5 End With With s.PageSetup .LeftHeader = (Application.ActiveWorkbook.BuiltinDocumentProperties.Item("Title")) & Chr(10) & (Application.ActiveWorkbook.BuiltinDocumentProperties.Item("Subject")) .CenterHeader = "&G " .RightHeader = "&""Tahoma,Tučné""&16&A" .LeftFooter = "&F" .CenterFooter = "Strana &P z &N" .RightFooter = "Vytištěno &D v &T" End With Next s Application.ScreenUpdating = True