在PowerPoint文档中，我们可以为罗列的多条并列信息添加项目符号或项目编号，使文档更具有条理性和清晰可读性。同时，我们也可以创建多层编号列表，让文档具有层次性。本文将介绍如何使用Spire.Presentation创建编号列表，项目符号列表, 和多层项目编号列表。

创建项目符号列表

//新建Presentation实例并添加一个新的shape
Presentation ppt = new Presentation();
IAutoShape shape = ppt.Slides[0].Shapes.AppendShape(ShapeType.Rectangle, new RectangleF(50, 70, 200, 150));
shape.Fill.FillType = FillFormatType.None;

//添加第一个段落并设置文字，字体颜色，对齐方式
shape.TextFrame.Text = "销售部工作计划";
shape.TextFrame.TextRange.Fill.FillType = FillFormatType.Solid;
shape.TextFrame.TextRange.Fill.SolidColor.Color = Color.Black;
shape.TextFrame.Paragraphs[0].Alignment = TextAlignmentType.Left;

//设置列表方式为符号列表
shape.TextFrame.Paragraphs[0].BulletType = TextBulletType.Symbol;

//添加更多段落并设置符号列表及格式
string[] str = new string[] { "技术支持部工作计划", "开发部工作计划" };
foreach (string txt in str)
{
    TextParagraph textParagraph = new TextParagraph();
    textParagraph.Text = txt;
    textParagraph.Alignment = TextAlignmentType.Left;
    textParagraph.TextRanges[0].Fill.FillType = FillFormatType.Solid;
    textParagraph.TextRanges[0].Fill.SolidColor.Color = Color.Black;

    textParagraph.BulletType = TextBulletType.Symbol;
    shape.TextFrame.Paragraphs.Append(textParagraph);
}

//保存文档
ppt.SaveToFile( "项目符号列表.pptx", FileFormat.Pptx2013);

'新建Presentation实例并添加一个新的shape Dim ppt As New Presentation() Dim shape As IAutoShape = ppt.Slides(0).Shapes.AppendShape(ShapeType.Rectangle,New RectangleF(50,70,200,150)) shape.Fill.FillType = FillFormatType.None '添加第一个段落并设置文字，字体颜色，对齐方式
shape.TextFrame.Text = "销售部工作计划"
shape.TextFrame.TextRange.Fill.FillType = FillFormatType.Solid
shape.TextFrame.TextRange.Fill.SolidColor.Color = Color.Black
shape.TextFrame.Paragraphs(0).Alignment = TextAlignmentType.Left

'设置列表方式为符号列表 shape.TextFrame.Paragraphs(0).BulletType = TextBulletType.Symbol '添加更多段落并设置符号列表及格式
Dim str As String() = New String() {"技术支持部工作计划", "开发部工作计划"}
For Each txt As String In str
	Dim textParagraph As New TextParagraph()
	textParagraph.Text = txt
	textParagraph.Alignment = TextAlignmentType.Left
	textParagraph.TextRanges(0).Fill.FillType = FillFormatType.Solid
	textParagraph.TextRanges(0).Fill.SolidColor.Color = Color.Black

	textParagraph.BulletType = TextBulletType.Symbol
	shape.TextFrame.Paragraphs.Append(textParagraph)
Next

'保存文档 ppt.SaveToFile("项目符号列表.pptx",FileFormat.Pptx2013)

创建编号列表

Presentation presentation = new Presentation();IAutoShape shape = presentation.Slides[0].Shapes.AppendShape(ShapeType.Rectangle,new RectangleF(50,70,200,150));shape.Fill.FillType = FillFormatType.None;shape.TextFrame.Text = "销售部工作计划";shape.TextFrame.TextRange.Fill.FillType = FillFormatType.Solid;shape.TextFrame.TextRange.Fill.SolidColor.Color = Color.Black;shape.TextFrame.Paragraphs[0].Alignment = TextAlignmentType.Left;//设置列表方式为编号列表并设置编号样式 shape.TextFrame.Paragraphs[0].BulletType = TextBulletType.Numbered;shape.TextFrame.Paragraphs[0].BulletStyle = NumberedBulletStyle.BulletRomanLCPeriod;string[] str = new string[]{"技术支持部工作计划","开发部工作计划"};foreach (string txt in str){TextParagraph textParagraph = new TextParagraph();textParagraph.Text = txt;textParagraph.Alignment = TextAlignmentType.Left;textParagraph.TextRanges[0].Fill.FillType = FillFormatType.Solid;textParagraph.TextRanges[0].Fill.SolidColor.Color = Color.Black;textParagraph.BulletType = TextBulletType.Numbered;textParagraph.BulletStyle = NumberedBulletStyle.BulletRomanLCPeriod;shape.TextFrame.Paragraphs.Append(textParagraph);}//save the document presentation.SaveToFile("编号列表.pptx",FileFormat.Pptx2010);

Dim presentation As New Presentation() Dim shape As IAutoShape = presentation.Slides(0).Shapes.AppendShape(ShapeType.Rectangle,New RectangleF(50,70,200,150)) shape.Fill.FillType = FillFormatType.None shape.TextFrame.Text = "销售部工作计划" shape.TextFrame.TextRange.Fill.FillType = FillFormatType.Solid shape.TextFrame.TextRange.Fill.SolidColor.Color = Color.Black shape.TextFrame.Paragraphs(0).Alignment = TextAlignmentType.Left '设置列表方式为编号列表并设置编号样式
shape.TextFrame.Paragraphs(0).BulletType = TextBulletType.Numbered
shape.TextFrame.Paragraphs(0).BulletStyle = NumberedBulletStyle.BulletRomanLCPeriod

Dim str As String() = New String() {"技术支持部工作计划", "开发部工作计划"}
For Each txt As String In str
	Dim textParagraph As New TextParagraph()
	textParagraph.Text = txt
	textParagraph.Alignment = TextAlignmentType.Left
	textParagraph.TextRanges(0).Fill.FillType = FillFormatType.Solid
	textParagraph.TextRanges(0).Fill.SolidColor.Color = Color.Black

	textParagraph.BulletType = TextBulletType.Numbered
	textParagraph.BulletStyle = NumberedBulletStyle.BulletRomanLCPeriod
	shape.TextFrame.Paragraphs.Append(textParagraph)
Next

'save the document presentation.SaveToFile("编号列表.pptx",FileFormat.Pptx2010)

创建多层编号列表

Presentation ppt = new Presentation();IAutoShape shape = ppt.Slides[0].Shapes.AppendShape(ShapeType.Rectangle,new RectangleF(50,70,200,150));shape.Fill.FillType = FillFormatType.None;//添加第一层列表第一段数据 shape.TextFrame.Text = "销售部工作计划";shape.TextFrame.TextRange.Fill.FillType = FillFormatType.Solid;shape.TextFrame.TextRange.Fill.SolidColor.Color = Color.Black;shape.TextFrame.Paragraphs[0].Alignment = TextAlignmentType.Left;//设置列表方式为编号列表并设置编号样式 shape.TextFrame.Paragraphs[0].BulletType = TextBulletType.Numbered;shape.TextFrame.Paragraphs[0].BulletStyle = NumberedBulletStyle.BulletRomanLCPeriod;//添加第二层列表的数据 TextParagraph textParagraph = new TextParagraph();textParagraph.Text = "月计划";textParagraph.Alignment = TextAlignmentType.Left;textParagraph.TextRanges[0].Fill.FillType = FillFormatType.Solid;textParagraph.TextRanges[0].Fill.SolidColor.Color = Color.Black;shape.TextFrame.Paragraphs.Append(textParagraph);shape.TextFrame.Paragraphs[1].Alignment = TextAlignmentType.Left;//设置列表方式为编号列表并设置编号样式 shape.TextFrame.Paragraphs[1].BulletType = TextBulletType.Numbered;shape.TextFrame.Paragraphs[1].BulletStyle = NumberedBulletStyle.BulletCircleNumDBPlain;//设置第二层列表的Margin 以产生层次感 shape.TextFrame.Paragraphs[1].LeftMargin = 30;//添加第一层列表第二段数据 TextParagraph textParagraph2 = new TextParagraph();textParagraph2.Text = "技术支持部工作计划";textParagraph2.Alignment = TextAlignmentType.Left;textParagraph2.TextRanges[0].Fill.FillType = FillFormatType.Solid;textParagraph2.TextRanges[0].Fill.SolidColor.Color = Color.Black;//设置列表方式为编号列表为第二个并设置编号样式 textParagraph2.BulletType = TextBulletType.Numbered;textParagraph2.BulletNumber = 2;textParagraph2.BulletStyle = NumberedBulletStyle.BulletRomanLCPeriod;shape.TextFrame.Paragraphs.Append(textParagraph2);//保存文档 ppt.SaveToFile("多层编号列表.pptx",FileFormat.Pptx2013);

Dim ppt As New Presentation() Dim shape As IAutoShape = ppt.Slides(0).Shapes.AppendShape(ShapeType.Rectangle,New RectangleF(50,70,200,150)) shape.Fill.FillType = FillFormatType.None '添加第一层列表第一段数据
shape.TextFrame.Text = "销售部工作计划"
shape.TextFrame.TextRange.Fill.FillType = FillFormatType.Solid
shape.TextFrame.TextRange.Fill.SolidColor.Color = Color.Black
shape.TextFrame.Paragraphs(0).Alignment = TextAlignmentType.Left
'设置列表方式为编号列表并设置编号样式 shape.TextFrame.Paragraphs(0).BulletType = TextBulletType.Numbered shape.TextFrame.Paragraphs(0).BulletStyle = NumberedBulletStyle.BulletRomanLCPeriod '添加第二层列表的数据
Dim textParagraph As New TextParagraph()
textParagraph.Text = "月计划"
textParagraph.Alignment = TextAlignmentType.Left
textParagraph.TextRanges(0).Fill.FillType = FillFormatType.Solid
textParagraph.TextRanges(0).Fill.SolidColor.Color = Color.Black
shape.TextFrame.Paragraphs.Append(textParagraph)
shape.TextFrame.Paragraphs(1).Alignment = TextAlignmentType.Left

'设置列表方式为编号列表并设置编号样式 shape.TextFrame.Paragraphs(1).BulletType = TextBulletType.Numbered shape.TextFrame.Paragraphs(1).BulletStyle = NumberedBulletStyle.BulletCircleNumDBPlain '设置第二层列表的Margin 以产生层次感
shape.TextFrame.Paragraphs(1).LeftMargin = 30

'添加第一层列表第二段数据 Dim textParagraph2 As New TextParagraph() textParagraph2.Text = "技术支持部工作计划" textParagraph2.Alignment = TextAlignmentType.Left textParagraph2.TextRanges(0).Fill.FillType = FillFormatType.Solid textParagraph2.TextRanges(0).Fill.SolidColor.Color = Color.Black '设置列表方式为编号列表为第二个并设置编号样式
textParagraph2.BulletType = TextBulletType.Numbered
textParagraph2.BulletNumber = 2
textParagraph2.BulletStyle = NumberedBulletStyle.BulletRomanLCPeriod
shape.TextFrame.Paragraphs.Append(textParagraph2)

'保存文档 ppt.SaveToFile("多层编号列表.pptx",FileFormat.Pptx2013)