PM> Install-Package Spire.Presentation

using Spire.Presentation;
using Spire.Presentation.Drawing;
using System.Drawing;

namespace CreateSlide
{
    class Program
    {
        static void Main(string[] args)
        {
            //创建Presentation类的对象
            Presentation presentation = new Presentation();

            //设置幻灯片大小 16x9
            presentation.SlideSize.Type = SlideSizeType.Screen16x9;

            //获取第一张幻灯片
            ISlide slide = presentation.Slides[0];

            //设置幻灯片背景为的图片背景
            string imgPath = @"img.jpg";
            IImageData imageData = presentation.Images.Append(Image.FromFile(imgPath));
            slide.SlideBackground.Type = BackgroundType.Custom;
            slide.SlideBackground.Fill.FillType = FillFormatType.Picture;
            slide.SlideBackground.Fill.PictureFill.FillType = PictureFillType.Stretch;
            slide.SlideBackground.Fill.PictureFill.Picture.EmbedImage = imageData;

            //插入形状
            Rectangle rect = new Rectangle(600, 100, 400, 150);
            IAutoShape shape = slide.Shapes.AppendShape(ShapeType.Rectangle, rect);

            //设置形状填充、边框
            shape.Fill.FillType = FillFormatType.Solid;
            shape.Fill.SolidColor.Color = Color.Transparent;
            shape.ShapeStyle.LineStyleIndex = 0;//无边框

            //设置字体
            TextRange textRange = shape.TextFrame.TextRange;
            textRange.Fill.FillType = FillFormatType.Solid;
            textRange.Fill.SolidColor.Color = Color.White;
            textRange.FontHeight = 25;
            textRange.LatinFont = new TextFont("隶书");
            textRange.Text = "《仲春郊外》\n 东园垂柳径，西堰落花津。\n 物色连三月，风光绝四邻。\n鸟飞村觉曙，鱼戏水知春。\n 初晴山院里，何处染嚣尘？ ";

            //保存文档
            presentation.SaveToFile("CreateSlide.pptx", FileFormat.Pptx2013);
        }
    }
}

Imports Spire.Presentation
Imports Spire.Presentation.Drawing
Imports System.Drawing

Namespace CreateSlide
	Class Program
		Private Shared Sub Main(args As String())
			'创建Presentation类的对象
			Dim presentation As New Presentation()

			'设置幻灯片大小 16x9
			presentation.SlideSize.Type = SlideSizeType.Screen16x9

			'获取第一张幻灯片
			Dim slide As ISlide = presentation.Slides(0)

			'设置幻灯片背景为的图片背景
			Dim imgPath As String = "img.jpg"
			Dim imageData As IImageData = presentation.Images.Append(Image.FromFile(imgPath))
			slide.SlideBackground.Type = BackgroundType.[Custom]
			slide.SlideBackground.Fill.FillType = FillFormatType.Picture
			slide.SlideBackground.Fill.PictureFill.FillType = PictureFillType.Stretch
			slide.SlideBackground.Fill.PictureFill.Picture.EmbedImage = imageData

			'插入形状
			Dim rect As New Rectangle(600, 100, 400, 150)
			Dim shape As IAutoShape = slide.Shapes.AppendShape(ShapeType.Rectangle, rect)

			'设置形状填充、边框
			shape.Fill.FillType = FillFormatType.Solid
			shape.Fill.SolidColor.Color = Color.Transparent
			shape.ShapeStyle.LineStyleIndex = 0'无边框
			
'设置字体
			Dim textRange As TextRange = shape.TextFrame.TextRange
			textRange.Fill.FillType = FillFormatType.Solid
			textRange.Fill.SolidColor.Color = Color.White
			textRange.FontHeight = 25
			textRange.LatinFont = New TextFont("隶书")
			textRange.Text = "《仲春郊外》" & vbLf & " 东园垂柳径，西堰落花津。" & vbLf & " 物色连三月，风光绝四邻。" & vbLf & "鸟飞村觉曙，鱼戏水知春。" & vbLf & " 初晴山院里，何处染嚣尘？ "

			'保存文档
			presentation.SaveToFile("CreateSlide.pptx", FileFormat.Pptx2013)
		End Sub
	End Class
End Namespace