能否对指定范围内的颜色设置透明

aman1516 · 发表于 2024-7-7 17:08

图片可对指定某个颜色如 .TransparencyColor = RGB(246, 246, 246)处理成“透明图”，
不是指定颜色就算非常接近 RGB(246, 246, 246)的却仍有残留未能去除。
请问，有没有办法对图片中一定范围内的颜色都作透明设置呢，
例如： .TransparencyColor = RGB(240, 240, 240) ~ .TransparencyColor = RGB(254, 254, 254)
即 R为240~254，G为240~254，B为240~254区域范围内的，
试过用变量循环方式却实现不了，请教各位老师有无什么好办法？
详见附件：

测试20240707.rar (335.27 KB, 下载次数: 29)

ww87725244 · 发表于 2024-7-7 17:50

定义一个变量X，然后循环.TransparencyColor = RGB(x, x, x)也不行？

aman1516 · 发表于 2024-7-7 18:20

ww87725244 发表于 2024-7-7 17:50
定义一个变量X，然后循环.TransparencyColor = RGB(x, x, x)也不行？

试过了，甚至每一次处理后导出图片再重新加载再处理也不行，
也可能是我的方法不对

ww87725244 · 发表于 2024-7-7 18:22

aman1516 发表于 2024-7-7 18:20
试过了，甚至每一次处理后导出图片再重新加载再处理也不行，
也可能是我的方法不对

定义变量后，代码可以运行，但是凭肉眼确实看不出2张图片颜色的不同之处

aman1516 · 发表于 2024-7-7 19:33

ww87725244 发表于 2024-7-7 18:22
定义变量后，代码可以运行，但是凭肉眼确实看不出2张图片颜色的不同之处

相当于抠图，要的结果是白色及接近白色范围的都去掉，只留下红色的透明图案
忽然想到一个方法：把图片像素RGB读入数组，对数组中指定范围内的数据（像素）统一处理成一个指定值，
然后再生成图片，那就好处理了

yjh_27 · 发表于 2024-7-7 19:57

用vba干PS的活

aman1516 · 发表于 2024-7-7 21:36

yjh_27 发表于 2024-7-7 19:57
用vba干PS的活

对的，EXCEL、WORD、PPT都好，有需要在VBA插入图片时若能同时处理成透明图片，何乐而不为

aman1516 · 发表于 2024-7-8 23:59

暂时发现只对BMP格式有效，如右图和小图，已可将近似范围颜色一起处理掉，JPG格式图片仍是左边效果：
微信截图_20240708233903.png

继续研究中.......

aman1516 · 发表于 2024-7-9 10:20

以此类推，有时间的话，貌似也可搞个EXCEL版的一键证件照或一键正装了

li446425169 · 发表于 2024-7-9 11:35

以前我用的一个透明实例，测试了对你的图片没有效果，我测试了截图的图片可以，估计是图片格式的原因

Sub 透明()
On Error Resume Next
Dim i As Integer
Dim sh As Shape
Dim Shapes As Shape
For Each sh In ActiveSheet.Shapes
With ActiveSheet
For i = 1 To .Shapes.Count
Sheet1.Shapes(i).PictureFormat.TransparencyColor = RGB(255, 255, 255)
Next i
End With
Next
End Sub

复制代码

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

[求助] 能否对指定范围内的颜色设置透明