Excel 2010

Question

hücresindeki özel sağ tıklama menüsü Çözümü başarıyla bulmak için çok zaman harcadım. Sağ tıklatma menüsünde özel eylem eklemeyi deniyorum, ancak ne zaman hücre modunda yazarak düzenleme modundayım. Tüm konular, sağ tıklama menüsüne nasıl eylem ekleyeceğinizi açıklar, ancak yalnızca içerideyken değil, bir hücreyi seçtiğinizde.

Eğer baskı modunda sağ tıklayın, bu benim kişisel sağ tıklama menüsü

Bu bağlamsal menü:

standart sağ tıklama menüsü için Kodum:

Public Function addMenu(menuName As String, menuActionMacro As String, pictureFaceId As Integer, beginGroup As Boolean) 

    If checkMenuNotExist(menuActionMacro) Then 
     Dim cbButt As CommandBarButton 
     Dim cb As CommandBar 

     Set cb = Application.CommandBars("cell") 
     Set cbButt = cb.Controls.Add(msoControlButton, Temporary:=True) 

     cbButt.beginGroup = beginGroup 
     cbButt.Caption = menuName 
     cbButt.OnAction = menuActionMacro 
     cbButt.FaceId = pictureFaceId 
     cbButt.Tag = menuActionMacro 

    End If 
End Function 

Düzenleme hakkı menüsünde düzenleme işlemi nasıl eklenir?

Answer 1

MenuRighter eklentisini ve ilgilendiğiniz içerik menüsünün # 58 olduğunu ve "Formül Çubuğu" olarak adlandırıldığını belirlemek için "Etiketleri Menülerde Göster" özelliğini kullandım. Bunun bir değişiklik olacağını düşünmedim, ancak Dosya menüsünü ekleyebildim.

Yani bu deneyin:

Public Function addMenu(menuName As String, menuActionMacro As String, pictureFaceId As Integer, beginGroup As Boolean) 

    If checkMenuNotExist(menuActionMacro) Then 
     Dim cbButt As CommandBarButton 
     Dim cb As CommandBar 

     Set cb = Application.CommandBars("Formula Bar") 
     Set cbButt = cb.Controls.Add(msoControlButton, Temporary:=True) 

     cbButt.beginGroup = beginGroup 
     cbButt.Caption = menuName 
     cbButt.OnAction = menuActionMacro 
     cbButt.FaceId = pictureFaceId 
     cbButt.Tag = menuActionMacro 

    End If 
End Function