在Excel中使用VBA设置图像透明度

vu8f3i0k  于 2023-04-07  发布在  其他
关注(0)|答案(2)|浏览(641)

有没有一种方法可以使用VBA脚本将一些透明度应用到图像上?我录制了一个“宏”,似乎没有录制艺术效果。我已经找到了如何为形状制作它,但不是为图像制作。

qojgxg4l

qojgxg4l1#

这需要几个步骤:
1.在工作表上放置自选图形(如矩形)
1.使用以下命令将实际图片嵌入到矩形中:.ShapeRange.Fill.UserPicture
1.使用以下命令调整透明度:.ShapeRange.Fill.Transparency

aurhwmvo

aurhwmvo2#

可以使用以下代码:删除背景图像并使用工具图片格式,在Excel中设置透明颜色。

Sub RemoveBackground()
  Dim selectedPicture As Picture
  Set selectedPicture = ActiveSheet.Pictures("Picture 3")
' Set the transparent color of the picture
  With selectedPicture.ShapeRange.PictureFormat
    .TransparentBackground = True
    .TransparencyColor = RGB(255, 255, 255)
  End With 
End Sub
Sub RemoveShapes()
  ' Select the image you want to remove the background from
  Dim selectedImage As Shape
  Set selectedImage = ActiveSheet.Shapes("Image1")     ' Set the transparent color of the image 

  With selectedImage.PictureFormat
    .TransparentBackground = msoTrue
    .TransparencyColor = RGB(255, 255, 255)
  End With
End Sub

相关问题