MS Excel

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 .

Zaslat odpověď >

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: zip

1687_kresleni.zip (7kB, staženo 73x)

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

Téma: kreslení

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje