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
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