I want code for create Menu Replace Macro, Do u have ? Or Please tell me about where d/L

ไม่เคยทำเรื่องนี้เลยครับ เดี๋ยวคุณ Suchart หรือ อ. BADMan ผ่านมาคงแนะนำได้ เคยเห็นมีตัวอย่างที่ อ. BADMan เคยให้ไว้อยู่ แต่ผมยังค้นหาไม่เจอ ลองค้นในเว็บนี้ดูครับ

ขอออกตัวครับ...ผมก็เคยใช้แต่ Macro สร้างเมนู ยังไม่เคยเขียน code เพื่อสร้างเมนูเลยครับ..

Dim aBar As CommandBar Dim pBar As CommandBarPopup Dim cBar As CommandBarControl Set aBar = Application.CommandBars.ActiveMenuBar Set pBar = aBar.Controls(1) For Each cBar In pBar.Controls If cBar.Caption = "&ปิด" Then _ Set cBar = pBar.Controls(cBar.Index): _ Exit For Next aBar.Protection = msoBarNoProtection Set cBar = pBar.Controls.Add(msoControlButton, , , cBar.Index + 1, True) cBar.Caption = "&คุมงบประมาณ" cBar.BeginGroup = True cBar.OnAction = "SetBudgetMenu()" aBar.Protection = msoBarNoCustomize โค้ดข้างบนนี้เรียกใช้งานจาก Office.Commandbar, Office.CommandbarPopup และ Office.CommandbarControl เพื่อทำการค้นหา เมนูที่มีชื่อว่า "&ปิด" แล้วจำลองเป็นเมนูนั้นเพื่อจะนำเอา Index ของมันมาใช้ แล้วแทรกเมนูใหม่ชือว่า "&คุมงบประมาณ" ต่อจากเมนูนั้น โดยแยกเมนูนี้ออกจากกลุ่มโดยกำหนด .BeginGroup = True พร้อมกับกำหนดว่าเมื่อคลิ้กที่เมนูนี้ให้เรียกใช้งานฟังก์ชั่น SetBudgetMenu() ที่เขียนไว้ และห้ามไม่ให้แก้ไขเมนู ลองดูนะ!

ขอบคุณทุกท่านที่ให้คำแนะนำ ขออภัยที่ตอบข้านะครับ