Help with this Code

[fULMIEX]

Hello All I created this code. evrithing seems fine but ALL THE TIME error 5

Sub Exportar_Imagenes()
    Dim img As Shape, tempChart As ChartObject
    Dim sPath As String, sName As String
    Dim imgEncontrada As Boolean
    
    ' Ruta donde se guardarán las imágenes
    sPath = "C:\Users\Mercadeo03\Carbone Dropbox\mercadeo carbone\Fotos Productos - Shopify - VTEX - Roberto\Repuestos TOTAL\Repuestos 08-05-24\Fotos\"
    
    ' Bandera para verificar si se encontraron imágenes
    imgEncontrada = False
    
    ' Recorre todas las formas en la hoja activa
    For Each img In ActiveSheet.Shapes
        ' Verifica si la forma tiene una celda asociada y si esa celda está en la columna B
        If Not img.TopLeftCell Is Nothing And img.TopLeftCell.Column = 2 Then
            ' Se encontró una imagen en la columna B
            imgEncontrada = True
            
            ' Obtiene el nombre de archivo de la celda en la columna A
            sName = img.TopLeftCell.Offset(0, -1).Value
            
            ' Verifica si el nombre de archivo no está vacío
            If sName <> "" Then
                ' Copia la imagen al portapapeles
                img.CopyPicture
                
                ' Crea un objeto de gráfico temporal
                Set tempChart = ActiveSheet.ChartObjects.Add(0, 0, img.Width, img.Height)
                
                ' Pega la imagen en el gráfico
                With tempChart
                    .Activate
                    .Border.LineStyle = xlLineStyleNone
                    .Chart.Paste
                    ' Exporta la imagen como archivo GIF
                    .Chart.Export sPath & sName & ".gif", "GIF"
                    .Delete
                End With
            End If
        End If
    Next
    
    ' Si no se encontró ninguna imagen en la columna B, muestra un mensaje
    If Not imgEncontrada Then
        MsgBox "No se encontraron imágenes en la columna B.", vbInformation
    End If
End Sub

Any help would be gratly apreciated. Thanks

 

[rlv01]

Not enough information. For any error (compile error or runtime error) you should report 3 things:

1. Error number
2. Error message
3. Line of code that generates the error.