Nový panel nástrojů a tlačítka s VBA
Napsal: 03 dub 2012 20:57
Zdravím,
chtěla jsem si vytvořit pomocí VBA vlastní panel nástrojů v excelu 2010, to se mi sice povedlo, dokonce se mi povedlo tam dostat i tlačítko (malou ikonku) s makrem co ptřebuji, ale už nedokážu vložit větší tlačítko se jménem vedle nebo pod ikonou. Nikde se mi nepodařilo najít komplexnější návod nebo postup řešení a ani v nápovědě office, tak jsem odkázána na Vás.
Dokonce jsem si stáhla jeden doplněk RJ Tools ale je zaheslovaný, vědět jak prolomit heslo tak se budu učit z něho.
Zkoušela jsem i program na přímou úpravu ribbonu, ale nevyznám se v tom jazyku který používá a navíc mi po každém uložení sešitu vymazal makra co jsem tam pracně napsala... to bude asi chyba uživatele, že.
Ale zpět k problému pokud nepůjde prolomit to heslo.
Tady je kousek kódu na vytvoření panelu a tlačítka co jsem po několika dnech hledání a testování použila.
Tady určitě bude nějaká banalitka kterou nedokážu rozlousknout jak změnit/udělat to tlačítko větší. Budu ráda za jakékoliv rady.
chtěla jsem si vytvořit pomocí VBA vlastní panel nástrojů v excelu 2010, to se mi sice povedlo, dokonce se mi povedlo tam dostat i tlačítko (malou ikonku) s makrem co ptřebuji, ale už nedokážu vložit větší tlačítko se jménem vedle nebo pod ikonou. Nikde se mi nepodařilo najít komplexnější návod nebo postup řešení a ani v nápovědě office, tak jsem odkázána na Vás.
Dokonce jsem si stáhla jeden doplněk RJ Tools ale je zaheslovaný, vědět jak prolomit heslo tak se budu učit z něho.
Zkoušela jsem i program na přímou úpravu ribbonu, ale nevyznám se v tom jazyku který používá a navíc mi po každém uložení sešitu vymazal makra co jsem tam pracně napsala... to bude asi chyba uživatele, že.
Ale zpět k problému pokud nepůjde prolomit to heslo.
Tady je kousek kódu na vytvoření panelu a tlačítka co jsem po několika dnech hledání a testování použila.
Kód: Vybrat vše
'vytvoří nový panel
CommandBars.Add(Name:="Auto_save", Position:=MsoBarPosition.msoBarLeft).Visible = True
'a tlačítko
CommandBars("Auto_save").Controls.Add Type:=msoControlButton
With CommandBars("Auto_save").Controls(1)
.FaceId = 2998
.Caption = "Vypnuto"
.OnAction = "zap"
End With
Tady určitě bude nějaká banalitka kterou nedokážu rozlousknout jak změnit/udělat to tlačítko větší. Budu ráda za jakékoliv rady.