كيفية القيام بما يلي: تطبيق أنماط إلى نطاقات في مصنفات

ينطبق على
تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع. نوع المشروع مشروعات على مستوى المستند مشروعات على مستوى التطبيق إصدار Microsoft Office Excel 2007 Excel 2010

يمكنك تطبيق الأنماط المسماة لمناطق في المصنفات. يوفر Excel عدداً من الأنماط المعرفة مسبقاً.

مربع الحوار تنسيق خلايا يعرض كافة الخيارات التي يمكنك استخدامها لتنسيق الخلايا و كل منها يتوفر من التعليمات البرمجية الخاصة بك. لعرض مربع الحوار هذا في Excel ، انقر فوق خلايا في القائمة تنسيق.

لتطبيق نمط على نطاق مسمى في تخصيص علي مستوي المستند

1. قم بإنشاء نمط جديد وتعيين السمات الخاصة به.

   Dim style As Excel.Style = Globals.ThisWorkbook.Styles.Add("NewStyle")
   
   style.Font.Name = "Verdana"
   style.Font.Size = 12
   style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)
   style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray)
   style.Interior.Pattern = Excel.XlPattern.xlPatternSolid
   

   Excel.Style style = Globals.ThisWorkbook.Styles.Add("NewStyle", missing);
   
   style.Font.Name = "Verdana";
   style.Font.Size = 12;
   style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red);
   style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray);
   style.Interior.Pattern = Excel.XlPattern.xlPatternSolid;
   

2. قم بإنشاء عنصر تحكم NamedRange ، وقم بتعيين نص له, ثم قم بتطبيق النمط الجديد. يجب وضع هذه التعليمة البرمجية في فئة ورقة، وليس في الفئة ThisWorkbook.

   Dim rangeStyles As Microsoft.Office.Tools.Excel.NamedRange = _
       Me.Controls.AddNamedRange(Me.Range("A1"), "rangeStyles")
   
   rangeStyles.Value2 = "'Style Test"
   rangeStyles.Style = "NewStyle"
   rangeStyles.Columns.AutoFit()
   

   Microsoft.Office.Tools.Excel.NamedRange rangeStyles =
       this.Controls.AddNamedRange(this.Range["A1", missing], "rangeStyles");
   
   rangeStyles.Value2 = "'Style Test";
   rangeStyles.Style = "NewStyle";
   rangeStyles.Columns.AutoFit();
   

لتطبيق نمط على نطاق مسمى في وظيفة إضافية علي مستوي التطبيق

1. قم بإنشاء نمط جديد وتعيين السمات الخاصة به.

   Dim style As Excel.Style = Me.Application.ActiveWorkbook.Styles.Add("NewStyle")
   
   style.Font.Name = "Verdana"
   style.Font.Size = 12
   style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)
   style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray)
   style.Interior.Pattern = Excel.XlPattern.xlPatternSolid
   

   Excel.Style style = this.Application.ActiveWorkbook.Styles.Add("NewStyle", missing);
   
   style.Font.Name = "Verdana";
   style.Font.Size = 12;
   style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red);
   style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray);
   style.Interior.Pattern = Excel.XlPattern.xlPatternSolid;
   

2. قم بإنشاء Microsoft.Office.Interop.Excel.Range ، قم بتعيين نص له, ثم قم بتطبيق النمط الجديد.

   Dim rangeStyles As Excel.Range = Me.Application.Range("A1")
   
   rangeStyles.Value2 = "'Style Test"
   rangeStyles.Style = "NewStyle"
   rangeStyles.Columns.AutoFit()
   

   Excel.Range rangeStyles = this.Application.get_Range("A1", missing);
   
   rangeStyles.Value2 = "'Style Test";
   rangeStyles.Style = "NewStyle";
   rangeStyles.Columns.AutoFit();
   

راجع أيضًا:

المهام

كيفية القيام بما يلي: مسح الأنماط من النطاقات في المصنفات

المبادئ

العمل مع النطاقات

عنصر تحكم NamedRange

الوصول العمومي إلى الكائنات في مشاريع Office

المعلمات الاختيارية في حلول Office