Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - menu podręczne pola tekstowego

sz.krzy · Świeżak Posty: 6

Witam, Chciałbym przypisać menu podręczne do pól tekstowych (utworzonych przez makro), tak aby po kliknięciu prawym przyciskiem myszy zamiast menu wbudowanego pojawiło się „moje menu”. Procedurę tworzenia „moje menu” mam napisaną problem polega na przypisaniu jej do zdarzenia jakim jest klikniecie prawym przyciskiem w obiekt. Za pomoc bardzo dziękuję.

OShon · Wysłany: 26-07-2018, 12:32

To dość skomplikowany proces oparty na klasie.
Można więc wykorzystać niezdarzenie klasy _SheetBeforeRightClick
W którym deklarujesz przycisk

Kod:

Dim cBut As CommandBarButton

i przypisujesz doń nazwę i procedurę realizującą coś tam:

Kod:

Set cBut = Application.CommandBars("Cell").Controls.Add(Temporary:=True)
With cBut
.Caption = Nazwa
.Style = msoButtonIconAndCaption
.BeginGroup = True
.FaceId = 51
.OnAction = "Procedura"
.TooltipText = APPNAME
End With

sz.krzy · Świeżak Posty: 6

Dobry pomysł ale nie działa. Problem jest na tyle złożony, że w każdej wersji Excela są różne menu podręczne. Rozwiązanie jakie zaproponowałeś nie powoduje dodania przycisku na pasku menu pola tekstowego w Excelu 2010 ani w Excelu 365. Chyba, że coś źle zrobiłem, ale walczę z tym tematem od kilku godzin i dalej nic. Nie umiem zidentyfikować nazwy menu pola tekstowego, aby dodać do niego przycisk.

OShon · Wysłany: 26-07-2018, 22:08

Dobry pomysł? kolego z 5-cioma postami.
Daj sobie czas i postudiuj zagadnienia jakie otrzymałeś. Zobacz o co common z kolekcją która kontroluje przycisk pod prawym klawiszem. Zrobiłeś klasę zadeklarowałeś zdarzenia, dodałeś procedurę zdarzeniową czy będziesz pluł 3 po 3 o wersjach excela?

Poza tym umieściłeś post mam problem z makrem - gdzie masz problem, gdzie sa twoje starania, co do tej pory zrobiłeś? Przenoszę do zadań bo coś czuje że oprócz wyłudzania nic po tobie spodziewać się dobrego nie można.

Artik · Wersja: Win Office 365 **Pomógł:** 3096 razy Posty: 10263

sz.krzy, Należy
1. dodać kod w pliku XML (CustomUI14):

Kod:

Menu podręczne ContextMenuShape jest wyświetlane gdy klikasz na krawędzi pola tekstowego, natomiast ContextMenuTextEdit gdy klikasz wewnątrz pola.

2. W module standardowym oprogramować swoje makro:

Kod:

Sub MojeMakro(control As IRibbonControl)
MsgBox "Hello world :-)"
End Sub

3. Cieszyć się życiem. :-)

Rozwiązanie nie działa w wersji 2007.

Artik

Menu podręczne Shape.xlsm

Pobierz Plik ściągnięto 125 raz(y) 15.17 KB

sz.krzy · Świeżak Posty: 6

Dziękuję za pomoc u mnie teraz wszystko działa. Pozdrawiam.