Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - własna wstążka

wiorek · Fan Excela Posty: 84

Cześć,

Używałem opcji szukaj ale nie znalazłem odpowiedzi na moje pytania.
Mam stworzony plik w którym znajduje się 10makr, potrzebuję zrobić wstążkę/dodatek który będzie je uruchamiał. W paincie w załączniku opisałem mniej więcej o co mi chodzi. Szukając na google znalzłem informację typu :

"Po kliknięciu w deweloper pojawi się okno panel informacji o dokumencie à klikamy na tym oknie OK i wreszcie zobaczymy nasz panel (Excele 2007 mogą się tam dostać poprzez przycisk Offica–>Przygotuj–>Właściwości):
W polu tytuł wpisujemy nazwę jaką użytkownicy zobaczą później w oknie dodatków np. „dąbek tools”(możemy tutaj używać polskich znaków i spacji :) To tyle jeżeli chodzi o właściwości dokumentu. "

Aczkolwiek nic takiego nie widzę.

case.png

Plik ściągnięto 578 raz(y) 8.51 KB

wiorek · Fan Excela Posty: 84

Edit : Nie mogę już edytować postu.
Mam dodane wstążki tak jak potrzebuje tyle, że jest jedna obok drugiej a chciałbym zrobić je rozwijane tj. mam np. 1. Test klikam i rozwija mi się 1.1 Test 1.2 Test itp

Artik · Wersja: Win Office 365 **Pomógł:** 3092 razy Posty: 10249

Załącz plik, bo nie za bardzo wiadomo coś Ty tam namodził. ;-)

Treści tych 10 makr możesz ograniczyć do

Kod:

MsgBox "Uruchomiono Makro_N"

Artik

wiorek · Fan Excela Posty: 84

Niestety nie mogę edytować całego pliku z racji wrażliwych danych. Postaram się utworzyć nowy testowy i podesłać. Głównie problem mam z tym, że 1 wersje zapisałem jako dodatek potem dograłem i działa, ale przy sharowaniu pliku każdy musiałby zapisywać i włączać dodatek, co jest uciążliwe. Znalazłem coś takiego :

Kod:

Private Sub Workbook_Open()
Dim cmbBar As CommandBar
Dim cmbControl As CommandBarControl

Set cmbBar = Application.CommandBars("Worksheet Menu Bar")
Set cmbControl = cmbBar.Controls.Add(Type:=msoControlButton, Temporary:=True)

With cmbControl
.Style = msoButtonIconAndCaption
.FaceId = 5 'można eksperymentować z ikonką :)
.Caption = "tekst przy przycisku"
.TooltipText = "dodatkowy opis pod przyciskiem"
.OnAction = "Makro1" 'nazwa makra uruchamianego przyciskiem
End With

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'skasowanie elementu ze wstążki po zamknięciu skoroszytu
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("opis przycisku").Delete

End Sub

Ale jak próbuję dodać With aby pododawać kolejne makra, to pokazuje mi tylko ostatni. Poza tym na wstążce jest jako "Dodatki" jak mógłbym to zmienić ?

edycja Zbiniek:
Nie cytuj całej wypowiedzi znajdującej się bezpośrednio powyżej – w takim przypadku wiadomo, że się do niej odnosisz. Cytowanie stosuj tylko wtedy, gdy nawiązujesz do wypowiedzi o kilka postów wcześniej lub gdy komentujesz tylko jakiś fragment ostatniej wypowiedzi. W obu przypadkach zacytuj tylko fragment, do którego się odnosisz.

Artik · Wersja: Win Office 365 **Pomógł:** 3092 razy Posty: 10249

Cierpliwie poczekam na reprezentatywny plik.
Kod, który przed chwilą podałeś dotyczy tworzenia starych pasków narzędziowych (wersje do 2003 włącznie). Działa to w nowszych wersjach, ale zawsze ikony powstają w karcie Dodatki.
Ikony w wersjach 2007+ tworzy się w inny sposób. Wyjaśnię Ci to na załączonym przez Ciebie pliku.

Przy okazji.
Jak publikujesz kod na forum, umieszczaj go w znacznikach [code] Tutaj twój kod [/code]

Artik

wiorek · Fan Excela Posty: 84

Ok.

Pod linkiem do pobrania plik

[ciach]

Hasło : test

Teraz to co potrzebuje, to makra " reset ustawien " "optymalizuj trase" itp. Mieć tak jak na poniższym zdjęciu - tylko, że zrobiłem to jako dodatek a potrzebuje aby się uruchamiało za każdym razem tylko w tym pliku.

Edit : Coś zdjęcie się nie ładuje, wstawiam link do screena tego jak mam jako dodatek i jak bym chciał żeby było przy otwarciu.
[ciach]
[ciach]

Regulamin > tak trudno przeczytać?
umiejead
.

wiorek · Fan Excela Posty: 84

@Artik

Coś pomógł załączony plik ? Potrafię dodać do wstążki przy otwieraniu wszystkie makra, ale są one jako lista rozwijana, a ja potrzebowałbym jak na zdjęciu szeroki pasek z wszystkimi wyborami obok siebie. Dodatkowo chciałbym aby nazywał on się inaczej niż standardowo "Dodatki".

Artik · Wersja: Win Office 365 **Pomógł:** 3092 razy Posty: 10249

wiorek, załącz pliki zgodnie z regulaminem. Nie na jakichś megawrzutach czy innych zapodajach, a na serwerze forum.

Artik

wiorek · Fan Excela Posty: 84

3 razy próbowałem i za każdym razem błąd. Jeszcze raz próbuje.
Dla wszystkich polskich makr potrzebuje wstążkę która będzie przypisana tylko do tego pliku.

plik test planning.xlsm

Pobierz Plik ściągnięto 39 raz(y) 301.79 KB

Artik · Wersja: Win Office 365 **Pomógł:** 3092 razy Posty: 10249

Może kiedyś pomogę.
Ale najpierw muszę znać hasło.

Artik

wiorek · Fan Excela Posty: 84

Podałem w wiadomości wyżej, Hasło : test

Artik · Wersja: Win Office 365 **Pomógł:** 3092 razy Posty: 10249

A sprawdziłeś?
Bo ja sprawdzałem wielokrotnie w różnych kombinacjach. I kiszka.

Artik