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"