解决VBA保存EXCEL里的图片不清晰,且按照指定名称保存

bluesky_0

先说下背景:
       我有个需求在word,或者EXCEL里有很多图片,需要批量导出来,且按照指定名称命名;
解决问题第一次努力:
论坛有个大神,用word做的,在32位系统OK,在64位报错.我搞了好久也没有解决.
那个word VBA帖子地址:https://club.excelhome.net/thread-1412524-1-1.html
解决问题第二次努力:
我转向Python 解析WORD,借助狗屁通代码OK,但是遇到一个问题,就是word的图片如果出现重复的,无法准确的存出来
举例:Word文件里本来有图片20个,但是有3对是重复的,代码取出来的就是17个....我研究一个月没有搞定.具体代码,在下面:
解决问题第三次努力:
我研究EXCEL VBA ,经过几天终于搞定;源代码见附件
开始借助AI,GPT3.5,文心一言;都达不到我想要的.....还是靠我自己搞定的!
这里说下百度那个AI,智障一样......

我也在论坛搜了,没有找到我需要的,
但是发现很多人都遇到这个问题,所以我完全共享我的源代码
论坛有个朋友提到几个方法,我觉得都不好,地址在:https://club.excelhome.net/threa ... tml?_dsign=7154d8b6

打开EXCEL VBA文件以后,菜单自动创建MYTAB 菜单 ,目前只搞了二个功能,提取图片,删除图片,插入图片还在研究

mytab

附件:
Python 提取Word里表格见截图)的图片,且按照指定名称命名的代码:

Word的样式

1. import os
   
2. import zipfile
   
3. from docx import Document
   
4. from collections import defaultdict
   
5. 
   
6. # 提供的Word文件路径
   
7. word_file = 'D:\\202401\\202401.docx'
   
8. # 指定存储图片的文件夹路径
   
9. output_folder = 'D:\\202401'
   
10. 
    
11. # 创建存储图片的文件夹
    
12. if not os.path.exists(output_folder):
    
13.     os.makedirs(output_folder)
    
14. 
    
15. # 使用python-docx打开Word文档
    
16. doc = Document(word_file)
    
17. 
    
18. # 建立字典用于存储图片文件名和个数
    
19. image_data_dict = defaultdict(list)
    
20. 
    
21. # 从Word文件（ZIP包）中提取图片
    
22. image_files = []
    
23. with zipfile.ZipFile(word_file, 'r') as z:
    
24.     image_files = [f for f in z.namelist() if f.startswith('word/media/')]
    
25. 
    
26. for table in doc.tables:  # 添加表格遍历以获取文件名和图片数量
    
27.     for row in table.rows:
    
28.         cell_text = row.cells[0].text.strip()
    
29.         image_count = 0
    
30.         for paragraph in row.cells[1].paragraphs:
    
31.             image_count += len(paragraph.runs)  # 计算每行中的图片数量
    
32. 
    
33.         print(f"文件名: {cell_text}, 图片数量: {image_count}")
    
34. 
    
35.         if image_count > 0:
    
36.             image_files_per_cell = image_files[:image_count]  # 获取当前单元格对应的图片文件
    
37.             image_files = image_files[image_count:]  # 更新剩余的图片文件列表
    
38. 
    
39.             image_data_dict[cell_text].extend(image_files_per_cell)  # 存储对应关系
    
40. 
    
41. # 按照图片原始名称排序顺序提取图片
    
42. for key, value in image_data_dict.items():
    
43.     with zipfile.ZipFile(word_file, 'r') as z:  # 重新打开 ZIP 文件
    
44.         for index, image_file in enumerate(value):
    
45.             image_data = z.read(image_file)  # 读取图片数据
    
46. 
    
47.             image_name = f"{key}_image_{index+1}"  # 图片名称，按照图片原始名称排序
    
48.             _, extension = os.path.splitext(image_file)  # 获取文件扩展名
    
49.             image_path = os.path.join(output_folder, f"{image_name}{extension}")  # 构建图片路径
    
50. 
    
51.             # 保存图片
    
52.             with open(image_path, 'wb') as img_file:
    
53.                 img_file.write(image_data)
    
54. 
    
55. print("Images have been extracted and saved.")

复制代码

perfect131

从zip media 提取的 才是最清晰的 原图
word excel ppt导图代码基本都一样 从zip media复制出来
https://club.excelhome.net/threa ... tml?_dsign=7154d8b6

dragonthree

收藏学习了，谢谢分享！

x-xx-xx

右键导出咯

bluesky_0

x-xx-xx 发表于 2024-5-24 19:39
右键导出咯

古人云,夏虫不可语冰,你就是那个夏虫

bluesky_0

perfect131 发表于 2024-5-24 19:14
从zip media 提取的 才是最清晰的 原图
word excel ppt导图代码基本都一样 从zip media复制出来
...

你的方法其实很好的,但是人嘛,都是喜欢自己的作品.
EXCEL,word的压缩文件,我研究过,水平有限没有搞定

啦啦比比

增加一行数据和图片的话，还是只能提取前3张图片

bluesky_0

啦啦比比 发表于 2024-5-25 08:41
增加一行数据和图片的话，还是只能提取前3张图片

自由增加但是不要断行.,前三行,我只是举例

zhumin1025

学习了楼主的杰作：楼主实现的关键在于EXCEL中的图片保持了原始尺寸，可缩放；但不知为何，我插入图片---->设置图片大小---->保存文档后，我插入的图片没有保持原始尺寸，但楼主原来插入的图片却还是保持缩放的，我是EXCEL2010,不知是否是软件版本的原因？

bluesky_0

zhumin1025 发表于 2024-5-26 00:37
学习了楼主的杰作：楼主实现的关键在于EXCEL中的图片保持了原始尺寸，可缩放；但不知为何，我插入图片----> ...

我用的是office 365 ,推测有些代码365支持的好,低版本支持不好,
我是业余的程序员,太专业的内容,我都是靠一个个试错,试出来的.