How can I change .jpg image background to transparent?

[rruiz309]

Hi there!

I am trying to create a catalogue, considering that I have no experience on VB, so far I have managed very well with all the available resources in the internet, however I haven't been able to give a particular format to the image after I insert it.

Since my .jpg original image has a white background, I need it to be transparent so that the format of my catalogue won't be visually blocked by the background of the image.

I will much appreciate if someone can tell me which code shall I add and where?

My current code is as follows (sorry, some Spanish on it, hope the idea is clear)

----
Sub CrearCatalogo()

Dim RutaActual As String
Dim RangoImagen As Range
Dim shp As Object


On Error Resume Next

For Each shp In ActiveSheet.Shapes
shp.Delete

Next shp

RutaActual = ThisWorkbook.Path

ActiveSheet.Range("B2").Select

Do While ActiveCell.Offset(1, 0).Value <> Empty

Set RangoImagen = ActiveCell.Offset(1, 0)
ActiveSheet.Pictures.Insert (RutaActual & "\Images\" & RangoImagen.Value & ".jpg")
ActiveCell.Offset(0, 1).Select


Loop

On Error GoTo 0

End Sub

 

[GraH]

Hi @rruiz309 , VBA/coding is not my cup of thee, but you can perhaps try this

Sub test()

Dim shp As Shape
Dim ws As Worksheet

Set ws = ActiveSheet

For Each shp In ws.Shapes

    If shp.Type = msoPicture Then
         shp.PictureFormat.TransparencyColor = True
 
    End If

Next shp
End Sub

 

[rruiz309]

Thank you so much @GraH , it works perfectly!!!