MS Excel

Zdravím všechny příznivce Excelu a VBA,
mám takový dotaz, neb jsem si vytvořil nový panel nástrojů v MS Excel 2003, na něm jsem si vytvořil tlačítka, ke kterým jsem přiřadil naprogramovaná makra a tento vlastní panel jsem i zkopíroval do daného sešitu, ale když jej přepošlu jinam, tak se mi zobrazí prázdný panel nástrojů bez tlačítek, ale makra tam jsou.
Nevíte někdo, jak přenést ten soubor na jiné PC i s těmi tlačítky?
Děkuji za Vaše tipy.

Zaslat odpověď >

Poki(20.5.2010 14:10)#001702

Zdravím,
pokud vím, tak nastavení excelu je uloženo v každém PC ve skrytém souboru personal.xls.
Pokud jde o to, jak mít v jednom konkrétním souboru jeden konkrétní panel nástrojů - je nutné mít v tomto souboru makro, které při spuštění souboru panel vytvoří a na něm vytvoří tlačítka, kterým přiřadí makra.
Před zavřením souboru pak musí další makro panel odstranit, protože by v PC zustal.citovat

nanajo(20.5.2010 14:26)#001703

Zdravím, jde o to, že jsem to vyhotovil u sebe doma, ale pro někoho a ta dotčná osoba to na jenom PC otevřela se vším, tedy i s tlačítky, ale jinde zase bez nich, jen prázdný panel. A ot je ten problém.
Nechci tvořit panel makrem, ani jej po skončení práce z PC zrušit, panel musí být přiřazen k sešitu a toť hotovo.
Děkuji za Vaše názory. :-)

citovat

Poki(20.5.2010 15:28)#001705

No, jde o to, ze panely nastrojů nejsou prirazeny ke konkretnimu sesitu, ale vzdy jen k personal.xls na konkretnim PC, takze jedina moznost, jak zdanlive personalizovat konkretni sesit je ten, ze se pri otevreni sesitu makrem panel vytvori a pak zase zrusi... Jinou moznost nevidimcitovat

nanajo(20.5.2010 15:43)#001708

No jo, ale jak můžu zrobiz to makro, které mi vytvoří tento panel i s talčítky? Ale já mám tyto tlačítka specifická, tudíž jsou na nich různé ůprav.Dík za info.

citovat

Poki(20.5.2010 16:01)#001710

Panel s jednim tlacitkem vytvoris snadno (dalsi talcitka jsou taky snadne) - pokud ti staci ty tlacitka s popisem, bude to takhle:

Nasledujici procedura by mela byt spoustena pri otevreni, tedy Private Sub Workbook_Open()
Sub Vytvor_panel()

CommandBars.Add "Panel"
CommandBars("Panel").Controls.Add msoControlButton

With CommandBars("Panel").Controls(1)
.Style = msoButtonCaption
.Caption = "Popisek tlačítka"
.OnAction = "objemy" 'toto je nazev makra, ktery tlacitko spousti
.BeginGroup = True
End With

With CommandBars("panel")
.Visible = True
.Position = msoBarLeft
End With

End Sub

a tento kod panel zrusi (idealne pri zavreni sesitu: Private Sub Workbook_BeforeClose(Cancel As Boolean))
Sub Smaz_panel()
CommandBars("Panel").Delete
End Subcitovat

Téma: Vlastní panel nástrojů

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje