Risultati da 1 a 9 di 9

Discussione: Macro per eliminare immagini in intervallo



  1. #1
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    29
    Messaggi
    40
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Macro per eliminare immagini in intervallo

    Salve a tutti; ho un problema con la macro seguente. Nel passaggio in cui dovrebbe selezionare ed eliminare le immagini in un range predefinito (riga in rosso nel codice) il sistema mi restituisce l'errore "Errore di run-time 1404: Errore definito dall'applicazione o dall'oggetto". La macro sembra funzionare correttamente ma l'errore mi inibisce tutti i pulsanti, quindi il foglio diventa inutilizzabile...Qualche idea??grazie

    Codice: 
    Sub CREATE_TOOL_LIST()
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
        Rows("76:138").Select
        Selection.EntireRow.Hidden = False
        Range("A78").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
            Formula1:="=0"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Font
            .Color = -16383844
            .TintAndShade = 0
        End With
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 13551615
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        ActiveWindow.SmallScroll Down:=-60
        Range("A77:F77").Select
        Selection.AutoFilter
        Range("B78:D78").Select
        ActiveSheet.Range("$A$77:$F$134").AutoFilter Field:=1, Operator:= _
            xlFilterNoFill
        Cells.FormatConditions.Delete
        ActiveWindow.SmallScroll Down:=-3
        Range("A78").Select
        
        mPath = ActiveWorkbook.Path
        r = 7
        Lr = Range("A" & Rows.Count).End(xlUp).Row
        For I = r To Lr
        mFoto = Cells(I, 1)
        
        If Len(mFoto & "") <> 0 Then
            If Dir(mPath & "\" & mFoto & ".jpg") <> "" Then
               With ActiveSheet.Pictures.Insert(mPath & "\" & mFoto & ".jpg")
                    .Top = Range("F" & I).Top + 5
                    .Left = Range("F" & I).Left + 5
                    .Height = Range("F" & I).Height - 10
                    .Width = Range("F" & I).Width - 10
                End With
            End If
        End If
    Next I
    
    Rows("77:77").RowHeight = 25.5
    Rows("135:135").EntireRow.AutoFit
    Rows("136:136").RowHeight = 65
    Rows("6:76").Select
    Selection.EntireRow.Hidden = True
    
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
    If Not Intersect(shp.TopLeftCell, Range("F10:F77")) Is Nothing Then
    shp.Delete
    End If
    Next shp
    
    Range("A78").Select
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    End Sub

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Macro per eliminare immagini in intervallo

    prova questa
    Codice: 
    Sub deleteInRange()
        Dim pic As Picture
        With Sheets(1)
            For Each pic In .Pictures
                If Not Intersect(pic.TopLeftCell, .Range("F10:F77")) Is Nothing Then pic.Delete
            Next pic
        End With
    end sub
    se non funziona allega un file di esempio da testare

  3. #3
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    29
    Messaggi
    40
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Macro per eliminare immagini in intervallo

    Ecco il foglio...l'originale è inserito in una cartella dove sono presenti una serie di immagini corrispondenti ai codici della colonna A; funziona tutto all'infuori del pulsante in A 4 "Create tool List" che da l'errore sopra riportato

    Grazie mille per l'aiuto
    File Allegati File Allegati

  4. #4
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Macro per eliminare immagini in intervallo

    a me non funziona niente, probabilmente perché mancano le immagini, ma hai provato la macro che ti ho suggerito ?

  5. #5
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    29
    Messaggi
    40
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Macro per eliminare immagini in intervallo

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    a me non funziona niente, probabilmente perché mancano le immagini, ma hai provato la macro che ti ho suggerito ?
    Ho appena provato...sembra funzionare, non posso fare altro che ringraziarti; veramente troppo gentile:18:

  6. #6
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    29
    Messaggi
    40
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Macro per eliminare immagini in intervallo

    With ActiveSheet.Pictures.Insert(mPath & "\" & mFoto & ".jpg")

    Esiste un metodo per definire una directory standard universalmente valida (tipo %userprofile%) che riporti ad una cartella sul desktop dell'utente anzichè andare a cercare nella stessa directory dove è contenuto il file excel?
    Vorrei inserire le immagini che devono essere automaticamente inserite sul foglio in una cartella dviersa lasciando il file excel da solo, così da non creare confusione...esiste qualche metodo?

  7. #7
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Macro per eliminare immagini in intervallo

    Codice: 
        mpath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

  8. I seguenti 2 utenti hanno dato un "Like" a patel per questo post:


  9. #8
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    29
    Messaggi
    40
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Macro per eliminare immagini in intervallo

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    Codice: 
        mpath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

    Codice: 
    If Dir(mpath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & mFoto & ".jpg")
    With ActiveSheet.Pictures.Insert(mpath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & mFoto & ".jpg")
    Così non funziona...posso specificare una cartella? Deve essere però valida per qualsiasi utente utilizza il programmino...

  10. #9
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Macro per eliminare immagini in intervallo

    mi sembra che tu non conosca affatto il vba e tu metta insieme i pezzi a caso
    Codice: 
    mpath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    If Dir(mpath & "\" & mFoto & ".jpg") <> "" then
    With ActiveSheet.Pictures.Insert(mpath & "\" & mFoto & ".jpg")

Discussioni Simili

  1. [Risolto] Eliminare la pianificazione dell'esecuzione di una macro
    Di Gatt88 nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 25/01/17, 11:59
  2. Macro immagini web
    Di BETWEB nel forum Domande su Excel VBA e MACRO
    Risposte: 48
    Ultimo Messaggio: 04/01/17, 08:49
  3. Problema macro inserimento immagini excel 2010
    Di Mr.Troy nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 06/09/16, 21:31
  4. Eliminare piu' righe contemporeanamente con macro
    Di kellington90 nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 20/06/16, 19:47
  5. Macro per eliminare celle
    Di Giuliano nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 21/12/15, 20:40

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •