Risultati da 1 a 8 di 8

Discussione: eliminare shapes



  1. #1
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2076
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    eliminare shapes

    Ciao

    ho un problemino ( tanto per cambiare)
    devo eliminare degli shapes ( gruppo - inteso proprio come forma creata da me con tre shapes raggruppati)
    ora eliminarli tutti ci riesco ma ho problemi a eliminarli da un range prestabilito.

    che macro devo usare per eliminare tutti gli shapes presenti per esempio
    nel range A1:D 20

    grazie

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    923
    Ciao Gianfranco,
    potresti provare con un codice del genere:

    Codice: 
    Option Explicit
    
    
    Sub Elimina_Forme()
    Dim Campo As Range, Forma As Shape
    
    Set Campo = Sheets("Foglio1").Range("A1:D20")
    For Each Forma In ActiveSheet.Shapes
        If Not Intersect(Forma.TopLeftCell, Campo) Is Nothing Then
            Forma.Delete
        End If
    Next
    Set Campo = Nothing
    End Sub
    [EDIT]
    Ho rimesso l'allegato...
    Mi ero dimenticato di associare il codice al pulsante
    :186:

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. #3
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2076
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117
    Perfetto grazie mille:227:

  4. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    923
    Grazie del riscontro :246:

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  5. #5
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2076
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117
    una curiosità
    e se volessi applicare la macro a delle immagini?

  6. #6
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2076
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117
    Sto utilizzando questa macro

    Sub eliminaimmagini()
    Dim Sh, I As Long
    For Each Sh In ActiveSheet.Shapes
    If Sh.Type = msoPicture Or Sh.Type = msoLinkedPicture Then
    Sh.Delete
    End If
    Next Sh
    End Sub
    che fa benissimo il suo lavoro
    e se volessi limitarlo ad un range?
    Diciamo il solito A1:D20

  7. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    923
    Ciao,
    scusa se scrivero castronerie ma sono dal cellulare e non ho possibilità di fare delle prove.
    Nel mio codice prova a dichiare Forma come "Object" invece di "Shape" e dopo la riga con "Intersect" aggiungi la condizione:

    If Forma.Type = msoPicture then
    Forma.Delete
    End If

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  8. #8
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2076
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117
    grazie
    tutto perfetto:176:
    ho anche capito perché non riuscivo nell'intento:22:_
    nel file originale ci sono due righe nascoste che sfalsano i risultati
    ora è tutto ok
    grazie ancora

Discussioni Simili

  1. eliminare una parte di una riga
    Di stefanofusco nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 15/03/17, 19:26
  2. [Risolto] eliminare righe doppie
    Di Chiarpato nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 19/01/17, 15:59
  3. [Risolto] valori uguali da eliminare
    Di replay66 nel forum Domande su Excel in generale
    Risposte: 20
    Ultimo Messaggio: 08/10/16, 17:26
  4. Togliere il Segno di Spunta dagli Oggetti Shapes
    Di A.Maurizio nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 06/12/15, 15:15
  5. Cambiare Nome alle Shapes
    Di A.Maurizio nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 14/11/15, 11:16

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
  •