Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

[Excel 2007] Istruz. per Cancellare una forma Opzioni
aetio
Inviato: Wednesday, May 04, 2011 10:24:55 PM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
In un file in cui importo dei fogli da altri files vorrei inserire nella macro-regista l'istruzione di cancellare in un foglio importato una forma, quella dell'immagine, ma non sono riuscito a trovare nulla di utile che mi possa risolvere il problema...




Che codice bisogna inserire per toglire gli oggetti dal foglio ?
Grazie, buona serata
eZio
Sponsor
Inviato: Wednesday, May 04, 2011 10:24:55 PM

 
a10n11
Inviato: Thursday, May 05, 2011 12:57:19 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
dall'immagine che mostri, dovresti cancellare i pulsanti sul foglio.
ora non so se sono pulsanti creati con la barra menù Moduli oppure dalla Casella degli strumenti.

se fossero Pulsanti
Sub CancShps()
Dim SHp As Excel.Shape
For Each SHp In ActiveSheet.Shapes
If (Left(SHp.Name, 3) = "But") Then
SHp.Delete
End If
Next
End Sub

oppure se CommandButton

Sub CancShps()
Dim SHp As Excel.Shape
For Each SHp In ActiveSheet.Shapes
If (Left(SHp.Name, 3) = "Com") Then
SHp.Delete
End If
Next
End Sub

l'una o l'altra macro cancellano tutte le forme che cominciano con "But" (Button) oppure "Com" (CommandButton)

saluti
Giap

aetio
Inviato: Thursday, May 05, 2011 4:12:36 PM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
Grazie.... come al solito hai la soluzione migliore!!
Buon pomeriggio
eZio
aetio
Inviato: Friday, May 06, 2011 9:32:30 AM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
sto studiando queste macro, però non ho capito che coordinate dai all'istruzione
If (Left(SHp.Name, 3) = "But") Then
Porta pazienza con questo povero ignorante.... :))
Grazie, buona giornata
eZio

Nota:
per crearli (Excel 2007), dal menù della barra: Inserisci > Illustrazioni > Forme > Forme
a10n11
Inviato: Friday, May 06, 2011 11:43:32 AM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
aetio ha scritto:
Ciao,
sto studiando queste macro, però non ho capito che coordinate dai all'istruzione
If (Left(SHp.Name, 3) = "But") Then
Porta pazienza con questo povero ignorante.... :))
Grazie, buona giornata
eZio

Nota:
per crearli (Excel 2007), dal menù della barra: Inserisci > Illustrazioni > Forme > Forme

salve
ogni forma inserita nel foglio assume un suo nome particolare.
Se vuoi cancellare solo alcune forme e non tutte, bisogna che ne conosci il nome
nella riga che menzioni, vengono cancellatte tutte le forme il cui nome nei primi 3 carateri a sinistra iniziano con
"But" che starebbe per Button(pulsante)

se non ti interessa avere nessuna forma sul foglio, quindi tutte da eliminare, basta scrivere queste istruzioni:

Sub CancShps()
Dim SHp As Excel.Shape
For Each SHp In ActiveSheet.Shapes
SHp.Delete
Next
End Sub

saluti
Giap

Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.