Popup Menu có nhiều dòng trống

[duongsatdn]

Không hiểu tại sao Popup menu của tôi lại xuất hiện nhiều dòng trống như hình sau:

Xin các bạn trợ giúp cách loại bỏ các dòng trống đó.
Cảm ơn!

 

[ndu96081631]

Bạn thử chạy sub này để liệt kê tất cả các name trong popup menu xem nó ra cái gì nhé

Sub Test1()
  Dim Bars As CommandBarControl, i As Long
  For Each Bars In CommandBars("Cell").Controls
    i = i + 1
    Cells(i, "H").Value = Bars.Caption
  Next
End Sub

Hoặc:

Sub Test2()
  Dim Bars As CommandBarControl, i As Long
  For Each Bars In CommandBars("Cell").Controls
    i = i + 1
    Cells(i, "I").Value = Bars.ID
  Next
End Sub

Tiếp theo sẽ quyết định nên xóa cái nào
Thường thì code xóa 1 menu nào đó trong popup menu có dạng:

Sub Del_Item()
    CommandBars("Cell").Controls("Cut").Delete
End Sub

Ví dụ này là xóa Item có tên là Cut trong Popup
Hãy thí nghiệm để rút ra kết luận!

 

[Hai Lúa Miền Tây]

Bạn thử reset nó lại xem sao nhé
Code reset như sau:

Sub reset()
Application.CommandBars("cell").reset
End Sub

Thân