Magari mi dici che non si può fare da subito come poi vorrei il risultato finale.
Purtroppo si puo' fare, ma se preferisci ti dico che non si puo'....
Partiamo dalle domande da te fatte
-devi rinominare l' immagine del foglio excel, usando quella parte dell' intestazione che si chiama "Casella nome" (in genere e' a sx della barra dela formula):
--in quel momento l' immagine e' gia' selezionata, e nella Casella nome leggi il nome arbitrariamente assegnatagli da excel; leggerai qualcosa come "Immagine xyz".
Uploaded with
ImageShack.usCliccando sulla freccina a dx del nome potrai assegnare il nuovo nome con la convenzione che ti ho detto.
-poi devi eliminare anche la prima immagine.
Questa prima fase serve per avere il codice macro con cui excel esegue quelle operazioni.
Per avere una descrizione della Worksheet_Change guarda l' help on line del vba alla voce "Eventi dell'oggetto Worksheet". Per scriverne una:
-tasto dx sul tab col nome del foglio su cui lavori, scegli Visualizza codice: ti si aprira' l' editor delle macro. Nel frame di dx scrivi
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Sara' aggiunta anche una line
End SubTra queste due righe dovrai scrivere le istruzioni di cui al post precedente, con le seguenti variazioni:
-il nome dell' immagine da cancellare va calcolata con
"ZC_" & Target.Offset(1,0).Address(0,0) '<<L' immagine e' sulla cella SOTTOSTANTE-il range da selezionare PRIMA di inserire l' immagine deve essere
Target.Offset(1,0).Select '<<Seleziona cella sottostanteInfine, vista l' irregolarita' con cui sono posizionate le tue N celle a cui vuoi associare l' immagine:
-sul tuo foglio, creati un "intervallo" che contiene tutte (e solo) queste N celle a cui assegni il nome "pippo":
--selezioni la prima cella; premi Contr e col mouse selezioni la seconda cella; ripeti per tutte le altre N-2 celle sempre premendo Contr prima del click
--quando hai tutte le N celle selezionate, vai nella famosa "Casella nome" e usando la freccina assegni il nome "pippo"
-torna nell' editor delle macro e come prima riga (sotto la Private Sub Worksheet_Change) metti
If Application.Intersect(Target, Range("pippo")) Is Nothing Then Exit SubQuesto servira' per abortire la macro se non hai selezionato una delle N celle contenute nell' intervallo "pippo"
Direi che hai tutto quel che serve per fare un buon lavoro...
Ciao, fai sapere.