تنسيق النص
Contents
[
Hide
]
تتبع طرق VSTO و Aspose.Slides الخطوات التالية:
- فتح العرض التقديمي المصدر.
- الوصول إلى الشريحة الأولى.
- الوصول إلى مربع النص الثالث.
- تغيير تنسيق النص في مربع النص الثالث.
- حفظ العرض التقديمي على القرص.
VSTO
//فتح العرض التقديمي
Presentation pres = new Presentation("source.ppt");
//إضافة خط فيردانا
FontEntity font = pres.Fonts[0];
FontEntity verdanaFont = new FontEntity(pres, font);
verdanaFont.FontName = "Verdana";
int verdanaFontIndex = pres.Fonts.Add(verdanaFont);
//الوصول إلى الشريحة الأولى
Slide slide = pres.GetSlideByPosition(1);
//الوصول إلى الشكل الثالث
Shape shp = slide.Shapes[2];
//تغيير خط النص إلى فيردانا وارتفاعه إلى 32
TextFrame tf = shp.TextFrame;
Paragraph para = tf.Paragraphs[0];
Portion port = para.Portions[0];
port.FontIndex = verdanaFontIndex;
port.FontHeight = 32;
//جعله عريضًا
port.FontBold = true;
//جعله مائلًا
port.FontItalic = true;
//تغيير لون النص
port.FontColor = Color.FromArgb(0x33, 0x33, 0xCC);
//تغيير لون خلفية الشكل
shp.FillFormat.Type = FillType.Solid;
shp.FillFormat.ForeColor = Color.FromArgb(0xCC, 0xCC, 0xFF);
//كتابة الناتج إلى القرص
pres.Write("outAspose.ppt");
Aspose.Slides
PowerPoint.Presentation pres = null;
//فتح العرض التقديمي
pres = Globals.ThisAddIn.Application.Presentations.Open("source.ppt",
Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoTrue);
//الوصول إلى الشريحة الأولى
PowerPoint.Slide slide = pres.Slides[1];
//الوصول إلى الشكل الثالث
PowerPoint.Shape shp = slide.Shapes[3];
//تغيير خط النص إلى فيردانا وارتفاعه إلى 32
PowerPoint.TextRange txtRange = shp.TextFrame.TextRange;
txtRange.Font.Name = "Verdana";
txtRange.Font.Size = 32;
//جعله عريضًا
txtRange.Font.Bold = Microsoft.Office.Core.MsoTriState.msoCTrue;
//جعله مائلًا
txtRange.Font.Italic = Microsoft.Office.Core.MsoTriState.msoCTrue;
//تغيير لون النص
txtRange.Font.Color.RGB = 0x00CC3333;
//تغيير لون خلفية الشكل
shp.Fill.ForeColor.RGB = 0x00FFCCCC;
//إعادة وضعه أفقيًا
shp.Left -= 70;
//كتابة الناتج إلى القرص
pres.SaveAs("outVSTO.ppt",
PowerPoint.PpSaveAsFileType.ppSaveAsPresentation,
Microsoft.Office.Core.MsoTriState.msoFalse);