سلام من هر کاری میکنم این دکمه ریبون درست نمیشه
مشکل چیه

Private Sub ribbonbar()
Dim groubnew As RibbonGroup
Dim ribbonbar As ribbonbar
Dim tabwrite As RibbonTab
Dim contorolfile As CommandBarPopup
Dim mygroup As RibbonGroup
Dim mybtn As CommandBarControl
Dim controlabout As CommandBarControl

Set ribbonbar = CommandBars1.AddRibbonBar("ãäæ")

Set contorolfile = ribbonbar.AddSystemButton
contorolfile.Caption = " ãäæ "
contorolfile.Id = 182
contorolfile.IconId = 182

With contorolfile.CommandBar.Controls
.Add pr_ControlButton, 101, "ÑÇåäãÇ"
.Add pr_ControlButton, 180, "ÏÑÈÇÑå ÓÇÒäϐÇä"
.Add pr_ControlButton, 181, "ÇÑÊÈÇØ ÈÇ ãÇ"
.Add pr_ControlButton, 148, "ÎÑæÌ"
End With
............................


Set contorolfile = ribbonbar.AddSystemButton
contorolfile.Id = 182


باید این یه ایکن داشته باشه دیگه مثل افیس 2007 یا همون نمونه عکسی که گذاشتین
میشه کمک کنین