Risolto text box nascoste

User deleted 20022

Utente abituale
6 Dicembre 2015
531
18
57
2003 / 2007
3
Ciao,
nel workbook allegato controllando
home > trova e seleziona > riquadro di selezione
trovo tantissime textbox 295 che non so dove sono.
Penso che siano rimaste nascoste da vari copia incolla modifiche precedenti.
Come posso fare per eliminarle?
Ho provato con:
Visual Basic:
Sub DeleteTextBoxes()

    Dim shp As Shape

    For Each shp In Foglio3.Shapes
        shp.Delete
    Next shp

End Sub
ma dopo un pò si blocca tutto.
Un aiuto?
max
 

Allegati

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
18.208
113
Como
2011MAC 2016WIN
324
Non dovrebbe cambiare nulla prova a mettere così lasciando il foglio dove ci sono i textbox attivo

Visual Basic:
Application.screenupdating = false

For Each shp In ActiveSheet.Shapes
.....
Application.screenupdating = true
 

User deleted 20022

Utente abituale
6 Dicembre 2015
531
18
57
2003 / 2007
3
Grazie a tutti,
era un mio errore.
Nel workbook nella colonna interessata c'era una macro per scrivere sempre in maiuscolo che rallentava tantissimo la macro
per eliminare le textbox.
Ora in pochi secondi si sono tutte eliminate.
max
 

User deleted 20022

Utente abituale
6 Dicembre 2015
531
18
57
2003 / 2007
3
Ciao,
una curiosità.
La macro:
Visual Basic:
Sub DeleteTextBoxes()

    Dim shp As Shape

    For Each shp In Foglio3.Shapes
        shp.Delete
    Next shp

End Sub
cancella tutte le shape presenti nel foglio3.
Ma se io volessi eliminare solo determinate shape tipo:
TextBoX 295
è possibile modificare?
Grazie
max
 

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
17.645
113
65
Napoli
2013
300
Si può sfruttare la proprietà Name dell’oggetto Shape in modo da discriminare con un If quali sono da cancellare e quali no.
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!