القوائم وأشرطة الأدوات

سوف تجد هنا أمثلة لإنشاء أو تعديل أو تخصيص قائمة Excel. إضافة عنصر إلى القائمة أدوات. 1 - إضافة يحق سبيل المثال البند في المركز الأخير في القائمة أدوات. "رمز لتثبيت هذا البند في القائمة أدوات AddItemInMenuOutils الفرعية () مع Application.CommandBars ( "أدوات") .Controls.Add (msoControlButton) .Caption = "مثال" .OnAction = "يعرض" .FaceId = 343 ينتهي مع نهاية الفرعية "رمز لحذف هذا البند من القائمة أدوات فرعية EffaceItem () الأوامر ( "أدوات") .Controls ( "مثال") .Delete نهاية الفرعية "كود العمل المرتبطة مع هذا البند مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة عنصر في القائمة أدوات يسمى" النمط = vbYes عنوان = "إضافة عناصر إلى القائمة أدوات - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية 2 - إضافة البند المعنون حماية مثال بعد البند في القائمة أدوات. "رمز لتثبيت هذا البند في القائمة أدوات، حماية فرعية AddItemInMenuOutilsProtection () مع Application.CommandBars ( "حماية") .Controls.Add (msoControlButton) .Caption = "مثال" .OnAction = "يعرض" .FaceId = 343 ينتهي مع نهاية الفرعية "رمز لحذف هذا البند من القائمة أدوات، حماية فرعية EffaceItem () الأوامر ( "أدوات") .Controls ( "حماية") .Controls (4) .Delete نهاية الفرعية "كود العمل المرتبطة مع هذا البند مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة عنصر يسمى القائمة أدوات." النمط = vbYes عنوان = "إضافة عناصر إلى القائمة أدوات، حماية - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية إضافة عنصر إلى القائمة أدوات، حماية. إضافة عنصر مثال بعنوان القائمة أدوات الحماية الفرعية. "رمز لتثبيت هذا البند في القائمة أدوات، حماية فرعية AddItemInMenuOutilsProtection () مع Application.CommandBars ( "حماية") .Controls.Add (msoControlButton) .Caption = "مثال" .OnAction = "يعرض" .FaceId = 343 ينتهي مع نهاية الفرعية "رمز لحذف هذا البند من القائمة أدوات، حماية فرعية EffaceItem () الأوامر ( "أدوات") .Controls ( "حماية") .Controls (4) .Delete نهاية الفرعية "كود العمل المرتبطة مع هذا البند مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة عنصر يسمى القائمة أدوات." النمط = vbYes عنوان = "إضافة عناصر إلى القائمة أدوات، حماية - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية إضافة قائمة جديدة. 1 - اضافة القائمة عينة في شريط القوائم بعد القائمة؟ "رمز لإضافة القائمة عينة. فرعية InserenouveauMenu () مع الأوامر (1) .Controls.Add (msoControlPopup) .Caption = "مثال" مع .Controls.Add (msoControlButton) .Caption = "تصاعديا" .FaceId = 210 .BeginGroup = صحيح .OnAction = "يعرض" ينتهي مع مع .Controls.Add (msoControlButton) .Caption = "تنازلي" .FaceId = 211 .BeginGroup = صحيح .OnAction = "يعرض" ينتهي مع ينتهي مع نهاية الفرعية "رمز لإزالة القائمة عينة. فرعية SupprimeNouveauMenu () الأوامر (1) .Controls ( "مثال") .Delete نهاية الفرعية "كود العمل المرتبطة باستخدام الأدوات مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة قائمة جديدة في شريط القوائم" النمط = vbYes عنوان = "إضافة قائمة جديدة - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية 2 - إضافة القائمة في مثال القائمة قبل شريط القائمة تنسيق. "رمز لإضافة القائمة عينة قبل القائمة تنسيق. "هذا الرمز هو مطابق للمثال السابق إلا أنه يجب إضافة قبل: = 5، 5 كونه رقم القائمة قبل أي واحد "يريد إدراج القائمة عينة. "إن سطر من التعليمات البرمجية: مع الأوامر (1) .Controls.Add (msoControlPopup) "يصبح: مع الأوامر (1) .Controls.Add (msoControlPopup قبل: = 5) إضافة عناصر إلى قائمة السياق (انقر على الحق). 1 - اضافة مثال عنصر في قائمة السياق (زر الماوس الأيمن). "رمز لإضافة القائمة. فرعية InsereMenuContextuel () مع Application.CommandBars ( "خلية") .Controls.Add (msoControlButton) .Caption = "مثال" .BeginGroup = صحيح .FaceId = 343 .OnAction = "يعرض" ينتهي مع نهاية الفرعية "رمز لإزالة القائمة. فرعية SupprimeMenuContextuel () Application.CommandBars ( "خلية") .Reset نهاية الفرعية "كود العمل المرتبطة مع هذا البند مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة عنصر في القائمة أدوات يسمى" النمط = vbYes عنوان = "إضافة بند في قائمة السياق - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية 2 - إضافة عنصر القائمة المنبثقة من قائمة السياق في مثال (الحق على زر الماوس). "رمز لإضافة القائمة. فرعية InsereMenuContextuePopUp () مع Application.CommandBars ( "خلية") مع .Controls.Add (msoControlPopup) .Caption = "مثال" .BeginGroup = خطأ "القائمة الفرعية 1 (مثال 1.1) .Controls.Add (MsoControlButton) .Controls (1) .Caption = "مثال 1.1" مع .Controls (1) .OnAction = "يعرض" .FaceId = 351 ينتهي مع "القائمة الفرعية 2 (مثال 1.2) .Controls.Add (MsoControlButton) .Controls (2) .Caption = "مثال 1.2" مع .Controls (2) .OnAction = "يعرض" .FaceId = 352 ينتهي مع ينتهي مع ينتهي مع نهاية الفرعية "رمز لإزالة القائمة. فرعية SupprimeMenuContextuel () Application.CommandBars ( "خلية") .Reset نهاية الفرعية "كود العمل المرتبطة مع هذا البند مثال جنوب العرض () خافت MSG، ستايل، عنوان جي اس = "لقد قمت بإضافة عنصر في القائمة أدوات يسمى" النمط = vbYes عنوان = "إضافة بند في قائمة السياق - © اريك RENAUD - 11/1999" استجابة = MsgBox (MSG، ستايل، عنوان) نهاية الفرعية إخفاء العناصر في القائمة (أو إعادة عرض). 1 - جعل الوصول إليها من القائمة أدوات. "رمز لجعله لا يمكن الوصول إليها في البند أدوات. InhibeMenuOutils الفرعية () الأوامر (1) .Controls (6) .Enabled = كاذبة نهاية الفرعية "رمز لجعل الوصول إليها في البند أدوات. AfficheMenuOutils الفرعية () الأوامر (1) .Controls (6) .Enabled = صحيح نهاية الفرعية 2 - جعل الوصول إليها من القائمة أدوات، حماية. "رمز لجعله لا يمكن الوصول إليها في البند أدوات والحماية. فرعية InhibeOutilsProtection () الأوامر (1) .Controls (6) .Controls (6) .Enabled = خطأ نهاية الفرعية "رمز لجعل الوصول إلى أدوات البند، حماية. فرعية AfficheOutilsProtection () الأوامر (1) .Controls (6) .Controls (6) .Enabled = صحيح نهاية الفرعية منع عرض من القائمة (أو إعادة عرض). حذف شريط العنوان القائمة أدوات. "رمز لإزالة العنوان من أدوات شريط القوائم. SupprimeIntituleOutils الفرعية () الأوامر (1) .Controls (6) .Visible = خطأ نهاية الفرعية "رمز لإعادة عرض أدوات العنوان في شريط القوائم. ReinstalleIntituleOutils الفرعية () الأوامر (1) .Controls (6) .Visible = صحيح نهاية الفرعية