Disegnare linee

Disegno di due linee di Enzo

Cari ragazzi ho un problema di questo tipo
all'interno di un foglio excel ho inserito una casella di testo e tramite una macro con questo comando -
activesheet.shapes.addline(261#, 342.75, 362.25, 361.5).select
activesheet.shapes.addline(262.5, 343.5, 362.25, 360#).select
selection.shaperange.flip msoflipvertical
disegno due linee(una x per intenderci) al di sopra della casella di testo
il problema nasce nel momento con un altra istruzione dovrei cancellare queste due linee
infatti registrando una macro dove le cancello e andando a vedere il codice lui le individua con un numero progressivo line 56.delete etc..
se successivamente la macro iniziale riparte le linee si posizionano come ho descritto prima ma nel momento in cui le vuole cancellare va in progressione e vuole le linee 57 etc
c'e' un modo per segnare con una x tramite una macro una textbox e poi successivamente cancellarle.
grazie

di Enzo

Naturalmente la textbox contiene gia' un testo
io vorrei solo barrarla con una x(per questo ho pensato a due linee) e poi successivamente quando si verifica un vento si cancellano lasciando la textbox intatta.

di Mauro

Ciao enzo, devi salvarti il numero in una variabile al momento della creazione e cancellarla successivamente

Private Linea1 As Integer
Sub prova()
ActiveSheet.Shapes.AddLine(261#, 342.75, 362.25, 361.5).Select
Linea1 = Selection.Index
End Sub

Sub cancella()
ActiveSheet.Shapes.Item(Linea1).Select
Selection.Delete
End Sub

di Enzo

Grazie mauro ho provato ma mi restiuisce un errore nel momento in cui la cancello
errore di run time
"limiti esauriti per l'indice della collezione specificata"
che vuol dire???

di Enzo

Mi spiego meglio ed ho capito
le tue macro funzionano nel momento in cui con la prima genero la linea e subito dopo con l'altra la cancello
ma se genero la linea, eseguo altre istruzioni e subito dopo voglio selezionarla lui mi da' quell'errore "activesheet.shapes.item(linea1).select"