/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Excel - egen popup
Fra : Ulrik Vadstrup


Dato : 20-01-05 21:44

Hej gruppe

Kan jeg lave min egen popup menu i excel, der kommer op når man højre
klikker på en celle, istedet for excel's "standard"

Fra den nye popup, vil jeg så klade nogle macros ?

Ulrik

 
 
Leo Heuser (23-01-2005)
Kommentar
Fra : Leo Heuser


Dato : 23-01-05 12:39

Hej Ulrik

Du kan gøre det ved enten at tilføje dine makro-kald
til pop-up-menuen ("Cell") eller ved at skjule de originale
punkter og kun vise dine egne.
Det kan også gøres ved at lave en userform og så
kalde denne fra hændelsen "SheetBeforeRightClick".

Her er en køreplan for de to første muligheder.
Jeg har forudsat, at du har to makroer, den ene
kaldet "Test1" og den anden "Test2". Disse makroer
ligger i et almindeligt modul.

1. Klik på en arkfane og vælg "Vis programkode"
2. Indsæt følgende kode:

Hvis du vil tilføje punkter til originalmenuen "Cell":

Private Sub Workbook_Open()
'Leo Heuser, 23-1-2005

With Application.CommandBars("Cell").Controls
With .Add(Type:=msoControlButton)
.Caption = "Kør Test1"
.OnAction = "Test1"
End With

With .Add(Type:=msoControlButton)
.Caption = "Kør Test2"
.OnAction = "Test2"
End With
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub


Hvis du vil skjule originalpunkter fra menuen først:

Private Sub Workbook_Open()
'Leo Heuser, 23-1-2005
Dim Counter As Long

With Application.CommandBars("Cell").Controls
For Counter = 1 To .Count
.Item(Counter).Visible = False
Next Counter

With .Add(Type:=msoControlButton)
.Caption = "Kør Test1"
.OnAction = "Test1"
End With

With .Add(Type:=msoControlButton)
.Caption = "Kør Test2"
.OnAction = "Test2"
End With
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub

Sub'en "Workbook_BeforeClose" fjerner brugerdefinerede punkter
fra originalmenuen ("Cell") og viser kun de oprindelige punkter.


--
Med venlig hilsen
Leo Heuser

Followup to newsgroup only please.

"Ulrik Vadstrup" <blackend@blackend.dk> skrev i en meddelelse
news:hu50v05rbpsoeba0r5mh2ta2a2osg7qdfc@4ax.com...
> Hej gruppe
>
> Kan jeg lave min egen popup menu i excel, der kommer op når man højre
> klikker på en celle, istedet for excel's "standard"
>
> Fra den nye popup, vil jeg så klade nogle macros ?
>
> Ulrik




Ulrik Vadstrup (23-01-2005)
Kommentar
Fra : Ulrik Vadstrup


Dato : 23-01-05 15:53

On Sun, 23 Jan 2005 12:38:30 +0100, "Leo Heuser"
<leo.heuser@NOSPAMadslhome.dk> wrote:

>Hej Ulrik
>
>Du kan gøre det ved enten at tilføje dine makro-kald
>til pop-up-menuen ("Cell") eller ved at skjule de originale
>punkter og kun vise dine egne.
>Det kan også gøres ved at lave en userform og så
>kalde denne fra hændelsen "SheetBeforeRightClick".
>
<Snip>

Tak

Det ser meget fornuftigt ud - jeg vil prøve det, når jeg får lidt tid

Ulrik

Leo Heuser (23-01-2005)
Kommentar
Fra : Leo Heuser


Dato : 23-01-05 16:27

"Ulrik Vadstrup" <blackend@blackend.dk> skrev i en meddelelse
news:rge7v0p1i6aefdtr22atktjifph0fjh527@4ax.com...
>
> Tak

Velbekomme.

LeoH



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste