Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Eliminare Oggetti (Shape) dalla cella attuale

Ultimo Aggiornamento: 15/03/2017 16:36
Post: 3
Registrato il: 14/03/2017
Età: 44
Utente Junior
2010
OFFLINE
15/03/2017 15:35

Eliminare Oggetti (Shape) dalla cella attuale
salve a tutti,
ho creato un foglio con una tabella di gradimento, dove per ogni nome di persona c'è il relativo interesse (su argomento, decisioni ecc...)
selezionabile da un elenco a discesa, e la relativa emoticon che appare in base all'interesse scelto e che si adatta all'altezza della riga.

Per crearlo mi sono basato sul foglio excel del thread "associare immagine ad una cella" risolto da Alfredo.


ma veniamo al dunque....
Se elimino il tipo di interesse, vorrei che si eliminasse anche la relativa emoticon, tenendo conto che gli stati di interesse (e le relative icone) possono essere ripetuti nella stessa lista.

Riassumendo, quello che mi servirebbe è sapere come eliminare un immagine shape da una cella target:

1 - Seleziono lo stato d'interesse
2 - Appare l'emoticon nella cella a sx dello stato
3 - Se elimino lo stato, evidenzio la cella a sinistra dello stato
4 - Elimino lo shape contenuto nella cella selezionata.

una specie di "Cells.ClearContents" ma che mi vada ad aliminare anche gli oggetti shape.

allego l'esempio:

[Modificato da ant4r3s 15/03/2017 15:38]
Post: 2.935
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
15/03/2017 15:51

Ant4r3s la questione non è per nulla semplice e, al momento, non ho neanche un barlume di idea di come si possa tentare di procedere.

Il problema è che le shapes sono oggetti totalmente "avulsi" dal foglio per cui se vado a cancellare il valore in B1 come faccio a dire ad Excel di cancellare la sola shape che è posizionata (ma non "ancorata/collegata") alla cella A1?

Ed in più se ci sono due icone uguali come faccio a dirgli di cancellarne una e non l'altra visto che si chiamano alla stessa maniera?

Non so se mi sono spiegato.
[Modificato da alfrimpa 15/03/2017 15:52]

Alfredo
Post: 4
Registrato il: 14/03/2017
Età: 44
Utente Junior
2010
OFFLINE
15/03/2017 15:58

azzarola....anch'io pensavo che gli shape fossero complicati e quasi estranei al foglio....ma poi mi son detto:
se son riuscito ad adattare lo shape incollato all'altezza della cella (quindi cella e shape sono in comunicazione), ci dev'essere anche il modo di dire allo shape: guarda,anzichè adattarti devi dissolverti. [SM=x423024]
Post: 2.936
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
15/03/2017 16:18

Re:
ant4r3s, 15/03/2017 15.58:

azzarola....anch'io pensavo che gli shape fossero complicati e quasi estranei al foglio....ma poi mi son detto:
se son riuscito ad adattare lo shape incollato all'altezza della cella (quindi cella e shape sono in comunicazione), ci dev'essere anche il modo di dire allo shape: guarda,anzichè adattarti devi dissolverti. [SM=x423024]



E no perché la posizione dello shape (Left e Top ossia distanza dal margine sinistro e dal bordo superiore del foglio) gliela diciamo noi con queste istruzioni

vb
Selection.Left = ActiveCell.Left + ActiveCell.Width / 2 - Selection.Width / 2
    Selection.Top = ActiveCell.Top + ActiveCell.Height / 2 - Selection.Height / 2


Inoltre come fai ad individuare univocamente uno shape quando ce ne possono essere diversi uguali?
[Modificato da alfrimpa 15/03/2017 16:19]

Alfredo
Post: 5
Registrato il: 14/03/2017
Età: 44
Utente Junior
2010
OFFLINE
15/03/2017 16:23

non vado alla ricerca degli shape nel foglio, ma solo nella cella in cui sono posizionato(quindi possono esserci infiniti duplicati, non è importante).
posizionato nella cella,attivo tabula rasa degli shape.



ho trovato questo per la rete ma non riesco a farlo funzionare....




tutto ok, avevo dimenticato di dichiarare le variabili (i, x, y) xD
[Modificato da ant4r3s 15/03/2017 16:41]
Post: 2.940
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
15/03/2017 16:32

Devo studiarmi un po' la cosa.

Ti faccio sapere.

Alfredo
Post: 6
Registrato il: 14/03/2017
Età: 44
Utente Junior
2010
OFFLINE
15/03/2017 16:36

RISOLTO!
funziona tutto egregiamente!!!

allego il file, dovesse essere utile a qualcuno.

(alla fine gli shape hanno perso la partita [SM=x423038] )

grazie comunque per il supporto, ottimo forum.



[Modificato da ant4r3s 15/03/2017 16:56]
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 04:05. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com