Menülere eklediğim komutun sırasını belirleme

[hsayar]

Mesala Excelin ply menüsüne eklediğim komut Sayfa sil komutundan sonra gelsin... demek nasıl olmalı bir yerde örneğini gördüm sanki after, befora ama nerede bulamadım.

 

[Haluk]

Ekli örneği inceleyin .... Aşağıdaki kodlar, eski bir çalışmanın ufak bir kısmıdır.

Burada No_ThisItem değişkenine menülerdeki Edit >> Find menüsünün index numarasını yani, sıra numarasını bulup, aktarıyoruz. Daha sonra bu bulduğumuz sıra numarasına 1 ilave ederek, yeni menümüzü orjinal Find menüsünün hemen altına ilave ediyoruz.

'.......
'.....
'....
Set RaiderMenu = Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30003)
No_Find = Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30003).Controls.Count
For i = 1 To [COLOR=Black]No_Find[/COLOR]
If Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30003).Controls(i).ID = 1849 Then
[COLOR=Red][B]No_ThisItem[/B][/COLOR] = i
End If
Next

With RaiderMenu.Controls.Add(msoControlButton, 1, , [B][COLOR=Red]No_ThisItem[/COLOR][/B] + 1, True)
.Caption = "Birebir arama   (by Raider ®)"
.OnAction = "FindExactMatch"
.FaceId = 7
Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30003).Controls(No_ThisItem).CopyFace
.PasteFace
End With
'.....
'...
'..

 

[hsayar]

hocam alanıza teşekkür ederim evde incelerim...