excel里插入一张图片，请用vba代码将它设定成透明色

almeidactu · 发表于 2023-7-13 16:30

本帖最后由 almeidactu 于 2023-7-13 16:51 编辑

请教大家，excel里插入一张图片，请用vba代码将图片设定成透明色，求代码

psxk3535 · 发表于 2023-7-14 10:48

2016版好像vba设置不了，只能手动设置，以后版本不知道

almeidactu · 发表于 2023-7-14 11:36

psxk3535 发表于 2023-7-14 10:48
2016版好像vba设置不了，只能手动设置，以后版本不知道

这样好像行，你试试
Set shp = ActiveSheet.Shapes(pic.Name) '获取图片对应的Shape对象
shp.PictureFormat.TransparencyColor = RGB(255, 255, 255) '设置透明色为白色

tspliu · 发表于 2023-7-14 15:55

almeidactu 发表于 2023-7-14 11:36
这样好像行，你试试
Set shp = ActiveSheet.Shapes(pic.Name) '获取图片对应的Shape对象
shp.Pictu ...

是啊，这样就可以呀，这就是代码啊，不用求了

almeidactu · 发表于 2023-7-14 16:21

tspliu 发表于 2023-7-14 15:55
是啊，这样就可以呀，这就是代码啊，不用求了

开始的时候怎么试都不行，多试几次终于行了，所以说，文无第一，武无第二

tspliu · 发表于 2023-7-14 18:56

almeidactu 发表于 2023-7-14 16:21
开始的时候怎么试都不行，多试几次终于行了，所以说，文无第一，武无第二

是不是因为你那个图片底色不是纯白

liuhong841 · 发表于 2024-5-20 20:45

tspliu 发表于 2023-7-14 18:56
是不是因为你那个图片底色不是纯白

如果这个背景色不是纯白，有微弱的色差，请问该怎么出去背景色？谢谢

常扬帆 · 发表于 2024-5-20 20:57

almeidactu 发表于 2023-7-14 11:36
这样好像行，你试试
Set shp = ActiveSheet.Shapes(pic.Name) '获取图片对应的Shape对象
shp.Pictu ...

请问：这个放在哪里运行啊？

tspliu · 发表于 2024-5-21 08:20

用代码先处理一下图片，把所有r >250 and g>250 and b>250的点都改成255,255,255

阈值自己控制

liuhong841 · 发表于 2024-5-24 06:59

tspliu 发表于 2024-5-21 08:20
用代码先处理一下图片，把所有r >250 and g>250 and b>250的点都改成255,255,255 阈值自己控制

也是这么想的，就是不知道用什么命令

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

[求助] excel里插入一张图片，请用vba代码将它设定成透明色