< návrat zpět
MS Excel
Téma: kreslení
Zaslal/a lachatol 18.5.2010 7:46
Ahoj všem,
kolegovi na služebním počítači nejde v excelu zobrazit panel nástrojů KRESLENÍ. Nejde to ani cestou ZOBRAZIT-PANEL NÁSTROJŮ-VLASTNÍ-PANELY NÁSTROJŮ-v této nabídce KRESLENÍ vůbec není (chybí toho tam víc). Nepomohla ani přeinstalace excelu od IT.......? Je to divný......
Dík za pomoc .
Jeza.m(18.5.2010 11:18)#001685 Zkusil bych to makrem:
Public Sub pokus()
Application.CommandBars("Drawing").Visible = True
Application.CommandBars("Drawing").Enabled = True
End Sub
M@
citovat
lachatol(18.5.2010 13:42)#001686 OK makrem, ale jak dosáhnu toho, že ten panel nástrojů KRESLENÍ v excelu zůstane napořád? Nebo nevim jak to makro správně použít....?
citovat
Jeza.m(18.5.2010 15:07)#001687 Zkuste přiložený soubor.
Jinak excel si pamatuje poslední nastavení, takže pokud ten panel zobrazíte, tak tam zůstane dokud ho neschováte, což asi nechcete :-).
Samotnýho mě zajímá jestli to pomůže.
M@
Příloha: 1687_kresleni.zip (7kB, staženo 71x) citovat
lachatol(18.5.2010 16:24)#001689 Dostal jsem tam to KRESLENÍ pomocí toho souboru, musel jsem ho uložit někam do toho počítače a už to funguje.
Moc děkuju za pomoc.
citovat
Jeza.m(18.5.2010 17:38)#001690 Rádo se stalo :-)
Jinak jen tak cvičně přidávám kód který vypíše seznam panelů v excelu a informace o jejich stavu:
Public Sub nabidky()
Range("A1:E1") = Split("index,Název Excel,Místní název,Přístupný,Zobrazený", ",")
For i = 1 To Application.CommandBars.Count
Cells(i + 1, 1) = i
Cells(i + 1, 2) = Application.CommandBars(i).Name
Cells(i + 1, 3) = Application.CommandBars(i).NameLocal
Cells(i + 1, 4) = Application.CommandBars(i).Enabled
Cells(i + 1, 5) = Application.CommandBars(i).Visible
Next
Columns("A:E").AutoFit
Range("A1:E1").Interior.Color = vbYellow
Range("A1:E1").AutoFilter
End Sub
Třeba se může hodit :-)
M@
citovat