Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 68233 Skopiuj do schowka własna wstążka
Autor Wiadomość
wiorek
forumowicz


Posty: 22
Wysłany: 27-05-2020, 13:36   własna wstążka

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 332 raz(y) 8.51 KB

ID posta: 387967 Skopiuj do schowka
 
 
wiorek
forumowicz


Posty: 22
Wysłany: 27-05-2020, 14:58   

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
ID posta: 387977 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2940 razy
Posty: 9729
Wysłany: 28-05-2020, 11:49   

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
_________________
Persistence is a virtue in the world of programming.
ID posta: 388026 Skopiuj do schowka
 
 
wiorek
forumowicz


Posty: 22
Wysłany: 01-06-2020, 13:59   

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.
ID posta: 388210 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2940 razy
Posty: 9729
Wysłany: 01-06-2020, 14:10   

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
_________________
Persistence is a virtue in the world of programming.
ID posta: 388211 Skopiuj do schowka
 
 
wiorek
forumowicz


Posty: 22
Wysłany: 01-06-2020, 14:20   

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
.
ID posta: 388213 Skopiuj do schowka
 
 
wiorek
forumowicz


Posty: 22
Wysłany: 02-06-2020, 12:45   

@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".
ID posta: 388245 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2940 razy
Posty: 9729
Wysłany: 05-06-2020, 19:48   

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

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 388382 Skopiuj do schowka
 
 
wiorek
forumowicz


Posty: 22
Wysłany: 08-06-2020, 12:20   

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 14 raz(y) 301.79 KB

ID posta: 388467 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2940 razy
Posty: 9729
Wysłany: 08-06-2020, 15:24   

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

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 388478 Skopiuj do schowka
 
 
wiorek
forumowicz


Posty: 22
Wysłany: 08-06-2020, 20:59   

Podałem w wiadomości wyżej, Hasło : test
ID posta: 388489 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2940 razy
Posty: 9729
Wysłany: 10-06-2020, 09:24   

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

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 388558 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe