Vba插入图片并设置图片背景色

liuhong841 · 发表于 2024-1-14 22:35

需要在表格内插入照片，并将白色底色转为透明色，图片工具可以实现，请问代码怎么实现？谢谢

3190496160 · 发表于 2024-1-15 08:37

空空而谈，肯定是没办法告诉你如何做的，上传附件也许有办法

liuhong841 · 发表于 2024-5-17 12:14

不好意思，初来乍到，不懂规矩。
通过读取身份证得到了身份证内置的照片，但是照片背景不一定是纯白色的。
通过以下代码能解决大部分纯白色背景，非纯色背景无法实现，请教一下有什么好的处理方式。
谢谢～
picPath = ThisWorkbook.Path & "\" & "photo.bmp" '指定图片路径
Set pic = Sheets("身份证").Pictures.Insert(picPath) '插入图片
Set Shp = Sheets("身份证").Shapes(pic.Name) '获取图片对应的Shape对象
Shp.PictureFormat.TransparencyColor = RGB(254, 254, 254)

ww87725244 · 发表于 2024-5-17 14:41

这工具是你写的？如果是你写的，那这个小问题应该能解决

liuhong841 · 发表于 2024-5-17 21:24

ww87725244 发表于 2024-5-17 14:41
这工具是你写的？如果是你写的，那这个小问题应该能解决

惭愧，这是按键精灵的功能

		自动登录	找回密码
密码			免费注册

[求助] Vba插入图片并设置图片背景色