إنشاء جدول على شريحة باوربوينت

تستخدم الجداول على نطاق واسع لعرض البيانات على شرائح العروض التقديمية. توضح هذه المقالة كيفية إنشاء جدول بحجم 15 × 15 وحجم خط 10 برمجياً باستخدام VSTO 2008 ثم Aspose.Slides for .NET.

إنشاء الجداول

مثال VSTO 2008

تضيف الخطوات التالية جدولاً إلى شريحة Microsoft PowerPoint باستخدام VSTO:

1. إنشاء عرض تقديمي.
2. إضافة شريحة فارغة إلى العرض التقديمي.
3. إضافة جدول بحجم 15 × 15 إلى الشريحة.
4. إضافة نص إلى كل خلية من خلايا الجدول بحجم خط 10.
5. حفظ العرض التقديمي على القرص.

//إنشاء عرض تقديمي
PowerPoint.Presentation pres = Globals.ThisAddIn.Application
              .Presentations.Add(Microsoft.Office.Core.MsoTriState.msoFalse);
//إضافة شريحة فارغة
PowerPoint.Slide sld = pres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutBlank);

//إضافة جدول بحجم 15 × 15
PowerPoint.Shape shp = sld.Shapes.AddTable(15, 15, 10, 10, pres.PageSetup.SlideWidth - 20, 300);
PowerPoint.Table tbl = shp.Table;
int i = -1;
int j = -1;

//تكرار عبر جميع الصفوف
foreach (PowerPoint.Row row in tbl.Rows)
{
    i = i + 1;
    j = -1;

    //تكرار عبر جميع الخلايا في الصف
    foreach (PowerPoint.Cell cell in row.Cells)
    {
        j = j + 1;
        //الحصول على إطار النص لكل خلية
        PowerPoint.TextFrame tf = cell.Shape.TextFrame;
        //إضافة بعض النصوص
        tf.TextRange.Text = "T" + i.ToString() + j.ToString();
        //تعيين حجم خط النص إلى 10
        tf.TextRange.Paragraphs(0, tf.TextRange.Text.Length).Font.Size = 10;
    }
}

//حفظ العرض التقديمي على القرص
pres.SaveAs("d:\\tblVSTO.ppt",
      PowerPoint.PpSaveAsFileType.ppSaveAsPresentation,
      Microsoft.Office.Core.MsoTriState.msoFalse);

مثال Aspose.Slides for .NET

تضيف الخطوات التالية جدولاً إلى شريحة Microsoft PowerPoint باستخدام Aspose.Slides:

1. إنشاء عرض تقديمي.
2. إضافة جدول بحجم 15 × 15 إلى الشريحة الأولى.
3. إضافة نص إلى كل خلية من خلايا الجدول بحجم خط 10.
4. كتابة العرض التقديمي إلى القرص.

Presentation pres = new Presentation();

//الوصول إلى الشريحة الأولى
ISlide sld = pres.Slides[0];

//تحديد الأعمدة بعرضها والصفوف بارتفاعاتها
double[] dblCols = { 50, 50, 50 };
double[] dblRows = { 50, 30, 30, 30, 30 };

//إضافة جدول
Aspose.Slides.ITable tbl = sld.Shapes.AddTable(50, 50, dblCols, dblRows);

//تعيين تنسيق الحدود لكل خلية
foreach (IRow row in tbl.Rows)
{
	foreach (ICell cell in row)
	{

		//الحصول على إطار النص لكل خلية
		ITextFrame tf = cell.TextFrame;
		//إضافة بعض النصوص
		tf.Text = "T" + cell.FirstRowIndex.ToString() + cell.FirstColumnIndex.ToString();
		//تعيين حجم الخط إلى 10
		tf.Paragraphs[0].Portions[0].PortionFormat.FontHeight = 10;
		tf.Paragraphs[0].ParagraphFormat.Bullet.Type = BulletType.None;
	}
}

//كتابة العرض التقديمي إلى القرص
pres.Save("C:\\data\\tblSLD.ppt", SaveFormat.Ppt);