插入bmp图片并将底色变透明

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

通过VBA如何在表格内插入底色为白色的头像照片并将白色底色变为透明，试了以下代码不能实现转变背景的需求：
Sub SetImageTransparentBackground()
Dim pic As Picture
Set pic = ActiveSheet.Pictures("Picture 1") ' 将 "Picture 1" 替换为你的图片名称

' 设置图片背景为透明
pic.PictureFormat.TransparencyColor = RGB(255, 255, 255) ' 设置透明颜色为白色
End Sub

wanghan519 · 发表于 2024-1-15 03:48

把图片发出来吧

aman1516 · 发表于 2024-1-20 10:58

ActiveSheet.Shapes(1).PictureFormat.TransparencyColor = RGB(255, 255, 255)
代码是没问题的，用个 ColorPix 之类屏幕取色小工具检测下，有的看上去“白色”并不一定是255，按实际取到的值改下就行了

lss001 · 发表于 2024-1-21 11:24

https://club.excelhome.net/forum.php?mod=viewthread&tid=1678683&mobile=2&_dsign=88f9b1b2

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

[求助] 插入bmp图片并将底色变透明