Spire.Presentation支持PowerPoint图片替换功能。本文将介绍如何使用Spire.Presentation将PowerPoint文档中现有的指定图片替换为一张新的图片。

替换前：

//创建Presentation实例
Presentation ppt = new Presentation();
//加载PowerPoint文档
ppt.LoadFromFile("Input.pptx");

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

//添加一张新图片，用于替换指定的图片
IImageData image = ppt.Images.Append(Image.FromFile("timg.jpg"));
            
//遍历幻灯片中的形状
foreach (IShape shape in slide.Shapes)
{
    //判断形状是否是图片
    if (shape is SlidePicture)
    {
        //判断图片的标题
        if (shape.AlternativeTitle == "image1")
        {
            //使用新图片替换标题为“image1”的图片
             (shape as SlidePicture).PictureFill.Picture.EmbedImage = image;
        }
    }
}

//保存文件
ppt.SaveToFile("Output.pptx", FileFormat.Pptx2013);

'创建Presentation实例
Dim ppt As New Presentation()
'加载PowerPoint文档
ppt.LoadFromFile("Input.pptx")

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

'添加一张新图片，用于替换指定的图片
Dim image__1 As IImageData = ppt.Images.Append(Image.FromFile("timg.jpg"))

'遍历幻灯片中的形状
For Each shape As IShape In slide.Shapes
	'判断形状是否是图片
	If TypeOf shape Is SlidePicture Then
		'判断图片的标题
		If shape.AlternativeTitle = "image1" Then
			'使用新图片替换标题为“image1”的图片
			TryCast(shape, SlidePicture).PictureFill.Picture.EmbedImage = image__1
		End If
	End If
Next

'保存文件
ppt.SaveToFile("Output.pptx", FileFormat.Pptx2013)

替换后的效果：