Condividi:        

eliminare pulsanti

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

eliminare pulsanti

Postdi raimea » 10/05/23 13:52

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
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1414
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: eliminare pulsanti

Postdi Anthony47 » 10/05/23 14:44

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
Avatar utente
Anthony47
Moderatore
 
Post: 19218
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: eliminare pulsanti

Postdi raimea » 10/05/23 14:56

ciao
tutto ok

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

grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1414
Iscritto il: 11/02/10 07:33
Località: lago

Re: eliminare pulsanti

Postdi Anthony47 » 10/05/23 15:09

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...
Avatar utente
Anthony47
Moderatore
 
Post: 19218
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "eliminare pulsanti":


Chi c’è in linea

Visitano il forum: Nessuno e 42 ospiti