ساخت منو برای اکسل 2007

[mobinsaffarpour]

سلام دوستان وقت بخیر

من میخوام یک سری از دستورات رو که توی اکسل درست میکنم. با VB.NET یک منو به اکسل اضافه کنم و دستورات رو از اون طریق اجرا کنم . با روش ساخت Ribbon آشنا هستم . اما نمیدونم بعنوان مثال کد ذیل رو چطوری باید بکار ببرم تا بخوام اجراش کنم .







Sub AlaphabetArabic()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Name = Replace(ws.Name, ChrW(1610), ChrW(1740), vbTextCompare)
ws.Name = Replace(ws.Name, ChrW(1603), ChrW(1705), vbTextCompare)
Next ws
Cells.Replace What:=ChrW(1610), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

[mobinsaffarpour]

چرا کسی جواب نمیده ؟ ؟ ؟