Cambiare Nome ad Oggetti Shapes

Question

Buon Giorno a Tutti mi chiamo Maurizio e il mio problema e questo :

Su di un foglio di excel con Microsoft office 2007 , Su svariate celle del Foglio ho Inserito degli oggetti Simbolo del tipo : Ovale ; Quadrato ; Rettangolare wcc..!

Ora però avrei il desiderio di Cambiarle il Nome , come ad esempio : Anziche sapere che quel Oggetto si chiami Ovale 1 oppure Quadrato 5 ; Io vorrei poterlo chiamare N1 oppure N2 ecc...!

Io non vi nego di averci provato più volte senza mai riuscirci ; L'unica cosa che sono riuscito ad ottenere e che Sè li chiamo Semplicemente N oppure R ecc...! posso farlo senza problema.

Mentre al contrario se scrivo N1 ; N2 ecc...! quando premo il tasto Enter da Tastiera , ottengo solo che lo stato attivo della Shapes passa alla coordinata della lettera scritta , come ad esempio se chiamo una shape N1 e premo Enter ; Mi viene evidenziata la cella N1 del Foglio di lavoro .

E la Shapes torna a chiamarsi Ovale 1.

Come posso risolvere questo problema; Non nego inoltre che lo già visto fare in svariati giochi Scaricati da internet .

Grazie per tutto l'aiuto che riuscirete a darmi in merito Sinceri saluti da Maurizio

Answer 1

ALT+F11 e sei nell'editor del vb di Excel.

Copia/incolla questa macro in un modulo standard:

Public Sub m()

    Dim v As Variant

    Dim lRisposta As Long

    v = Application.InputBox("Inserire il nuovo nome", _

        "Attenzione")

    If v <> "" Then

        lRisposta = MsgBox(Prompt:="Modificare il nome da: " & Selection.Name & " in: " & v, _

            Title:="Attenzione", _

            Buttons:=vbYesNo + vbQuestion)

        If lRisposta = vbYes Then

            Selection.Name = v

        End If

    End If

End Sub

Assegna un tasto di scelta rapida alla macro.

Se non hai mai utilizzato il vb di Excel, vedi qui:

• http://answers.microsoft.com/it-it/office/wiki/office_2013_release-excel/excel-dove-e-come-inserire-il-codice-visual-basic/ed29ee63-a537-4e5d-8631-76766cf40503

Torna in Excel,  seleziona la tua shape, lancia la macro e modifica o meno il nome.

E' anche possibile modificare TUTTI i nomi in una sola volta tramite macro. Dipende dal nome che vuoi assegnare.