نقل قول نوشته شده توسط Dr.Bronx مشاهده تاپیک
این کد برای کسانی که می خوان یک چیزی مثل عکس زیر داشته باشن

اول کدشو تحویل بگیرین 


Dim Control As CommandBarControl

Set ControlOptions = RibbonBar.Controls.add(xtpControlPopup, 0, "Theme")

ControlOptions.Flags = xtpFlagRightAlign

 

Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10100, "Blue")

Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10101, "Black")

Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10102, " Silver")

Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10103, "Aqua")




در ضمن توی نظرسنجی هم شرکت کنید .

موفق و موید باشید ./
واسه من کار نمیکنه دقیقا باید کجای کد ریبون باشه؟