rinominare casella di testo

[matzap]

Ciao, eccomi di nuovo qui dopo un pò di tempo....

ho una macro che ogni volta che viene lanciata crea una casella di testo e vorrei scrivere una istruzione da inserire in un'altra macro che la cancelli.
il problema è che ogni volta la casella creata ha un nome diverso. Vorrei assegnarli sempre lo stesso nome in modo da poterla sempre individuare.

sapete dirmi come fare?

Poiche devo inserire il codice di cancellazione in una macro ben più complessa, se la casella di testo non è presente, come posso individuare se la casella esiste o no, e in questo secondo caso saltare l'istruzione di cancellazione?

ciao e grazie

[Flash30005]

Per denominare una casella testo puoi usare questo codice (codice che crea una casella testo, inserisce il testo, alla fine cancella la casella testo)

Codice: Seleziona tutto

Sub CreacancellaTB()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 134.25, 61.5, 95.25, 46.5).Name = "Prova"
ActiveSheet.Shapes("Prova").Select
    Selection.Characters.Text = "Testo della TextBox"
    With Selection.Characters(Start:=1, Length:=4).Font
        .Name = "Arial"
        .FontStyle = "Normale"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("E13").Select
    ActiveSheet.Shapes("Prova").Delete
End Sub

Ma se non hai altre caselle testo ma solo una non è necessario assegnare un nome quindi avrai una macro così

Codice: Seleziona tutto

Sub CreacancellaTB2()

    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 134.25, 61.5, 95.25, 46.5).Select
    Selection.Characters.Text = "Testo della TextBox"
    With Selection.Characters(Start:=1, Length:=4).Font
        .Name = "Arial"
        .FontStyle = "Normale"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("E13").Select
    ActiveSheet.Shapes(1).Delete
End Sub

Ciao

[matzap]

Grazie Flash,
ma se provo a cancellarla , prima di averla creata, come posso fargli saltare l'istruzione cancella e andare oltre?

[Flash30005]

come puoi cancellarla prima di averla creata?

[Anthony47]

Io invece di creare /cancellare /ricreare /ricancellare /etc lavorerei con un textbox fisso, con un nome convenzionale e fisso (es myTextbox) e non quello di default variabile, e poi all' occorrenza fare
Sheets("Foglio1").myTextbox.Visible = False oppure Sheets("Foglio1").myTextbox.Visible = True

Se invece vuoi rimanere su AddTextbox /Delete allora usa On Error per ignorare l' eventuale assenza del controllo:

Codice: Seleziona tutto

On Error Resume Next    '<< Add
ActiveSheet.Shapes("Prova").Delete
On Error GoTo 0     '<< Add


Ciao

[matzap]

Ciao Anthony
la soluzione:
Sheets("Foglio1").myTextbox.Visible = False oppure Sheets("Foglio1").myTextbox.Visible = True
è perfetta, è quello che cercavo.

tuttavia il comando On Error mi sarebbe molto utile, ma, scusa la mia ignoranza, non ne capisco la sintassi.... puoi aiutarmi?
Grazie

[Anthony47]

La sintassi di On Error la trovi nell' help on line del vba, alla voce "Istruzione On Error": trovi la sintassi, la descrizione, le osservazioni, qualche esempio.
Non mi candido per sostituire la miniera di informazioni che quello strumento (l' help on line) rappresenta...
Nel codice che ti avevo suggerito (vedi viewtopic.php?f=26&t=99573#p573949) viene usato On Error Resume Next per evitare di generare eventualmente un errore sull' istruzione ActiveSheet.Shapes("Prova").Delete successiva, potendo cosi' inserire l' istruzione ".Delete" per cancellare la shape indirizzata, se presente, o non fare niente (se non presente).

Ciao

[matzap]

Grazie