eliminare pulsanti

[raimea]

ciao
tramite pulsante reset
parte la macro cancellagenerale
che mi pulisce il fgl generale
( tranne la riga 8 su mia necessita)

solo che.....

mi rimangono i pulsanti inseriti come oggetti esterni
nella colonna C8:C

e' possibile tramite macro eliminare anche tali puls ?

e ovviamente SOLO questi , perche' nel fgl ci sono altri puls. sparsi

vi allego il file

https://www.dropbox.com/scl/fi/atbfwds8cz20l49fnb41a/cancella-pulsanti.xlsm?dl=0&rlkey=hq264ym4e18jyqs7rugjsxqgz

ciao

[Anthony47]

Prova se questa macro fa il lavoro che serve:

Codice: Seleziona tutto

Sub RemPulsanti()
Dim Shp As Shape
'
For Each Shp In ActiveSheet.Shapes
'    Debug.Print Shp.Type, Shp.Name, Shp.TopLeftCell.Address(0, 0)
    If Shp.Type = msoPicture Then
        If Shp.TopLeftCell.Column = 3 And Shp.TopLeftCell.Row > 7 Then
            Shp.Delete
        End If
    End If
Next Shp
End Sub


Se funziona, allora inserisci una Call RemPulsanti in coda alla tua macro attuale
Ciao

[raimea]

ciao
tutto ok

non immaginavo che tramite vba
si potessero cancellare anche solo determinati oggetti-esterni

grazie

[Anthony47]

Il vba consente di fare molte piu' cose di quelle che immaginiamo...
Se si puo' identificare un "oggetto" tramite le sue "proprietà" (TopLeftCell, nel nostro caso) allora lo si può manipolare usando uno dei suoi "metodi" (Delete); il ciclo For Each /Next, che cicla tra gli item della Collezione di Shapes, completa la logica di lavoro...