Již 10.000+ CAD tipů.
Přes 118.500 registrovaných u nás, celkem 1.094.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor.
Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností

Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Odpovědět ![]() |
archiv |
Autor | |
Rostislav Říha ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
TOP uživatel ![]() Přihlášen: 03.říj.2004 Lokalita: ČR (Pha) Používám: ACA 2010 Stav: Offline Bodů: 1615 |
![]() Zasláno: 24.srp.2008 v 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 |
|
Rostislav Říha
|
|
![]() |
|
Radim Cech ![]() TOP uživatel ![]() Přihlášen: 01.říj.2004 Lokalita: ČR (MS) Používám: Autodesk Civil 2020 Stav: Offline Bodů: 848 |
![]() |
A co tak vybrat všechny listy najednou a změnit jim záhlaví a zápatí! |
|
R.C.
OSTRAVA |
|
![]() |
|
Rostislav Říha ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
TOP uživatel ![]() Přihlášen: 03.říj.2004 Lokalita: ČR (Pha) Používám: ACA 2010 Stav: Offline Bodů: 1615 |
![]() |
...jak jednoduché, milý Watsone:) ...děkuji.
nicméně, chybku to má - v některém listu tisknu oblast, v jiném mám při tisku zvětšení, jeden je nastojato a jiný naplacato -- a to se mi při této proceduře rozbilo...ale určitě na to taky existuje jednoduchá finta:)
|
|
Rostislav Říha
|
|
![]() |
|
Seiner ![]() CAD/BIM manager ![]() Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662 |
![]() |
Když už to chcete řešit tímto způsobem, pak bych si asi na prvním listu udělal mimo tisknutou oblas tabuličku toho, to chcete v záhlaví a zápatí mít a tlačítko na spuštění makra. Použijte to svoje makro jako událost na kliknutí na tlačítko, akorát místo pevných textů uveďte odkazy na buňky té tabuličky. Asi nějak takto:
Range("K7").Select
.RightFooter = ActiveCell.FormulaR1C1 (možná by se to dalo napojit na nějakou jinou událost, aby uživatel nezapomněl na tlačítko kliknout) Upravil Seiner - 26.srp.2008 v 06:58 |
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
Seiner ![]() CAD/BIM manager ![]() Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662 |
![]() |
Pokud byste opravdu chtěl přenášet nastavení z prvního listu na ostatní, musel byste si ještě před tím cyklem (For Each...) ukládat jednotlivá nastavení do proměnných a pak je používat. Uložení třeba dolní střední hodnoty je asi takto:
With ActiveWorkbook.Worksheets(1)
DolniStred = .PageSetup.CenterFooter End With a použití hodnoty
.CenterFooter=DolniStred
|
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
PepaR ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
CAD/BIM manager ![]() ![]() Přihlášen: 29.lis.2004 Lokalita: ČR (ZL) Používám: ruky a hlavu (občas ;) Stav: Offline Bodů: 6206 |
![]() |
Zkusil bych se zeptat zde: http://excelplus.net, téměř vždy mi tam poradili.
|
|
![]() |
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět ![]() |
|
Přejít na fórum | Oprávnění fóra ![]() Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,326 sekund.