Sub GrupluMenuOlustur()
Dim cmbSagTus As Office.CommandBar

' Kısayol Menüsü oluşturalım...
Set cmbSagTus = CommandBars.Add("GrupluKisayolMenusu", _
msoBarPopup, False, False)

With cmbSagTus
' Bul komutu ekleyelim...
.Controls.Add msoControlButton, 141

' Yeni bir grup oluşturalım (.BeginGroup ile ) ve Artan Sıralama Komutunu ekleyelim...

.Controls.Add(msoControlButton, 210).BeginGroup = True

' Azalan Sıralama Komutunu ekleyelim...
.Controls.Add msoControlButton, 211

' Yeni bir grup oluşturalım ve Filtre Kaldır Komutunu ekleyelim...
.Controls.Add(msoControlButton, 605).BeginGroup = True

' Seçime Göre Filtrele komutunu ekleyelim...
.Controls.Add msoControlButton, 640

'Dışındakileri Filtrele Komutunu ekleyelim...
.Controls.Add msoControlButton, 3017

' Arasında... komutunu ekleyelim...
.Controls.Add msoControlButton, 10062
End With
End Sub

arkadaslar yukarıda gruplama menüsü olusturdum fakat formda ilişkisiz ole nesnesi var ole nesnesine sağ tıkladğımda nesne ekle sil v.s seçenekler çıkmıyor yardımcı olur musunuz

Nesne Eklemek için İlişkisiz değil İlişkili OLE eklemelisiniz. İlişkisiz OLE de Nesne Ekle çıkmaz.