none
error 1004 RRS feed

  • Pregunta

  • Hora foreros,

    Curiosamente, este código da error 1004 en algunas máquinas, pero no en todas. Siendo la misma versión de XP, de excel y con los mismos Add-ins y Referencias VB.

    Podriais darme alguna pista ?

     

    Adjunto el código y marco en rojo sentencia del error:

     

    Sub Exportgif()
    'Export range cell into gif
    Dim Path_Images As String
    ' Activate Sheet with the path where the App. is
        Sheets("WebPath_User").Visible = True
        Sheets("WebPath_User").Select
        Path_Images = Range("A2").Value
    ' Hide sheets
        Sheets("WebPath_User").Visible = False
       
    Sheets("Web").Select

    Dim Place As Range

    Set Place = Range("B2:F6")
    Application.ScreenUpdating = False
    Workbooks.Add
    Place.CopyPicture
    ActiveSheet.Paste
    With ActiveSheet.ChartObjects.Add(0, 0, _
    Selection.Width, Selection.Height).Chart
    .Paste

    'On Error Resume Next
    .Export Path_Images & ".GIF", "GIF"
    End With

    ActiveWorkbook.Close False
    Sheets("P.Produccion").Select
    MsgBox "La Información ha sido Publicada"
    End Sub

     

    GRACIAS ANTICIPADAS

    lunes, 28 de mayo de 2007 10:47