Cancellazione forme

[aggittoriu]

Ciao.

Questo codice

Codice: Seleziona tutto

Sub Cancella_Forme_Range()

' Cancella tutte le forme in un certo intervallo di celle

Dim Sh As Shape
With Worksheets("Calcio_Partite")
   For Each Sh In .Shapes
       If Not Application.Intersect(Sh.TopLeftCell, .Range("B:BZ")) Is Nothing Then
          Sh.Delete
       End If
    Next Sh
End With
End Sub

mi cancella tutte le forme presenti nel range di colonne B:BZ. Solo che a volte funziona, mentre altre volte funziona ma mi da errore. E non capisco perchè.

La riga incriminata è:

Codice: Seleziona tutto

  If Not Application.Intersect(Sh.TopLeftCell, .Range("B:BZ")) Is Nothing Then

Mi dite esattamente cosa significa questa parte di codice?

[Anthony47]

Per la funzione Intersect, vedi https://learn.microsoft.com/en-us/offic ... .intersect
Per la proprieta' TopLeftCell, vedi https://learn.microsoft.com/it-it/offic ... opleftcell

Quindi quella istruzione dice: se il "topleft" della forma capita all'interno del range allora...

Il problema del codice e' che non tutte le Shapes hanno la proprieta' TopLeftCell; quindi se parli di immagini, aggiungi questo If /End If nel tuo codice:

Codice: Seleziona tutto

   For Each Sh In .Shapes
    If Sh.Type = msoPicture Then                 '<< If /End If aggiunti
        If Not Application.Intersect(Sh.TopLeftCell, .Range("B:BZ")) Is Nothing Then
           Sh.Delete
        End If
     End If
    Next Sh


Per l'elenco dei possibili valori di Sh.Type, vedi https://learn.microsoft.com/it-it/offic ... oshapetype

[aggittoriu]

Ok. Grazie.
Inutile che guardi tutto, tanto non ci capisco niente. Userò direttamente il tuo codice. Al limite, se non va qualcosa, mi rifarò vivo.