كيف يمكنني إنشاء شريط أدوات في وثيقة XLA؟

Question

وكيف يمكنني إنشاء شريط أدوات لبرنامج Excel باستخدام وثيقة XLA؟

Answer 1

لجعل شريط الأدوات، في الحدث onload، وأنت تسير أن نفعل شيئا مثل:

Dim myBar As CommandBar, myButt As CommandBarControl 

'Delete the toolbar if it already exists'
On Error Resume Next 
CommandBars("My Toolbar").Delete 
On Error Goto 0

Set myBar = CommandBars.Add(Name:="My Toolbar", _
      Position:=msoBarFloating, Temporary:=True) 
myBar.Visible = True 

 ' Create a button with text on the bar and set some properties.'
Set myButt = ComBar.Controls.Add(Type:=msoControlButton) 
With myButt
    .Caption = "Macro1" 
    .Style = msoButtonCaption 
    .TooltipText = "Run Macro1" 
    .OnAction = "Macro1" 
End With 

 ' Create a button with an image on the bar and set some properties.'
Set myButt = ComBar.Controls.Add(Type:=msoControlButton) 
With myButt  
     'the faceId line will let you choose an icon'
     ' If you choose to use the faceId then the caption is not displayed'
    .FaceId = 1000 
    .Caption = "Icon Button" 
    .TooltipText = "Run Macro2" 
    .OnAction = "Macro2" 
End With 

والشيء مهذبا القيام به هو حذف شريط الأدوات على الخروج، أيضا.

Answer 2

ولست متأكدا إذا كان هذا هو ما كنت تبحث عن ولكن أعتقد أن هذا قد تساعدك على الخروج:

اكسل - ماكرو شريط أدوات

وبما انك لم تقم بتحديد إصدار Excel لست متأكدا اذا كان هذا العمل بالنسبة لك أم لا ولكن ربما سوف تقدم لكم مع نقطة انطلاق جيدة.