سلام من هر کاری میکنم این دکمه ریبون درست نمیشه
مشکل چیه
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 یا همون نمونه عکسی که گذاشتین
میشه کمک کنین