clear

clc

close all

% 创建或获取演示文稿对象

ppt = Presentation('new_presentation.pptx', '演示文稿1.pptx');

open(ppt);

% 添加新的幻灯片

slide1 = add(ppt, 'Title Slide');

% 指定第一张图片路径

imagePath1 = 'C:\Users\Administrator\Desktop\001\阵风因子-横风向图2023.12.6.png';

% 创建第一张图片对象

pic1 = Picture(imagePath1);

% 设置第一张图片位置和尺寸（单位为厘米）

pic1.X = '2cm'; % 图片左上角的横坐标距离幻灯片左边缘的距离

pic1.Y = '2cm'; % 图片左上角的纵坐标距离幻灯片上边缘的距离

pic1.Width = '10cm'; % 图片的宽度

pic1.Height = '5cm'; % 图片的高度

% 指定第二张图片路径

imagePath2 = 'C:\Users\Administrator\Desktop\001\2023.12.6.png';

% 创建第二张图片对象

pic2 = Picture(imagePath2);

% 设置第二张图片位置和尺寸（单位为厘米）

pic2.X = '12cm'; % 图片左上角的横坐标距离幻灯片左边缘的距离

pic2.Y = '2cm'; % 图片左上角的纵坐标距离幻灯片上边缘的距离

pic2.Width = '8cm'; % 图片的宽度

pic2.Height = '8cm'; % 图片的高度

% 将两张图片添加到幻灯片

add(slide1, pic1);

add(slide1, pic2);

% 添加新的幻灯片（第二页）

slide2 = add(ppt, 'Title Slide');

% 指定第二页图片路径

imagePath3 = 'C:\Users\Administrator\Desktop\001\2023.12.6.png';

% 创建第二页图片对象

pic3 = Picture(imagePath3);

% 设置第二页图片位置和尺寸（单位为厘米）

pic3.X = '2cm'; % 图片左上角的横坐标距离幻灯片左边缘的距离

pic3.Y = '2cm'; % 图片左上角的纵坐标距离幻灯片上边缘的距离

pic3.Width = '10cm'; % 图片的宽度

pic3.Height = '5cm'; % 图片的高度

% 将第二页图片添加到第二页幻灯片

add(slide2, pic3);

% 保存并关闭演示文稿

close(ppt);