Excel文档-图片批量导出重命名

我们拿到这样的excel表格。目标是导出表格里所有照片。同时按照SKU命名，下面会给你思路参考
图片不能嵌入得是浮动状态1：进入大模型

Sub RenameO On Error Resune Next MkDirThisWorkbook.Path&“\图片 For Each pic In Shapes If pic. Type msoPicture Then RN =_pic. TopLeftCell. Offset (0,-1).Value pic. Copy with ActiveSheet. Chartobjects. Add(o,0,pic.Width，pic.Height).Chart
创建图片 .Parent.Select .Paste
参考这个代码是把B1的图片改A1的名字导出，我有两列图片 B和C,我想把B的图片重命名为A列的内容，C列的内容为A内容的加一个”-1″ 重新给我代码 代码输出结果去掉Sheet1_和.png等图片格式
（复制上面的提示词给大模型，你得跟他说你保存图片的路径，不然默认跟excel表格同一路径如桌面）
点击复制代码
打开wps点击vb编辑器(如果打不开点一下开发工具)

进入之后，左上角点击展开，进sheet1（表里面多sheet就进你要改的那一个）
中间白色的部分把大模型获得的代码复制上去，点击上面的红色框里的按钮，弹出这个弹窗点击运行
等待代码操作，完成会有弹窗显示