ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
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.
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoOT - Office, Excel, listy

 Odpovědět Odpovědět archiv
Autor
Rostislav Říha Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 03.říj.2004
Lokalita: ČR (Pha)
Používám:
ACA 2010
Stav: Offline
Bodů: 1615
Přímý odkaz na tuto zprávu Téma: OT - Office, Excel, listy
    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
Zpět nahoru
Radim Cech Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (MS)
Používám:
Autodesk Civil 2020
Stav: Offline
Bodů: 848
Přímý odkaz na tuto zprávu Zasláno: 24.srp.2008 v 23:34

A co tak vybrat všechny listy najednou a změnit jim záhlaví a zápatí!

R.C.

OSTRAVA
Zpět nahoru
Rostislav Říha Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 03.říj.2004
Lokalita: ČR (Pha)
Používám:
ACA 2010
Stav: Offline
Bodů: 1615
Přímý odkaz na tuto zprávu Zasláno: 24.srp.2008 v 23:44
Původně odeslal(a) Radim Cech Radim Cech napsal(a):

A co tak vybrat všechny listy najednou a změnit jim záhlaví a zápatí!

 
...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
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
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
Přímý odkaz na tuto zprávu Zasláno: 25.srp.2008 v 08:07
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
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
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
Přímý odkaz na tuto zprávu Zasláno: 25.srp.2008 v 08:28
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
Zpět nahoru
PepaR Zobrazit panel
CAD/BIM manager
CAD/BIM manager
Avatar

Přihlášen: 29.lis.2004
Lokalita: ČR (ZL)
Používám:
ruky a hlavu (občas ;)
Stav: Offline
Bodů: 6206
Přímý odkaz na tuto zprávu Zasláno: 26.srp.2008 v 00:55
Zkusil bych se zeptat zde: http://excelplus.net, téměř vždy mi tam poradili.
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 5207:VIPAutoloader - seznam nelze exportovat do Excelu.
Tip 3854:Jak do DWF souboru vložit rozpočet, smlouvu, fotografie nebo prezentace?
Tip 11356:VIPInventor - zrychlení načítání tabulky závitů ve Win 10
Tip 7730:VIPAutoCAD Map 3D 64-bit a MS Office (Excel/Access).
Tip 5355:VIPZmizel mi panel nástrojů Vault z Excelu a Wordu.
Tip 7638:Excel 2010 (Office 2010) a Inventor 2011/2012 - kompatibilita


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,326 sekund.