Risultati da 1 a 9 di 9

Discussione: Cambiare Nome alle Shapes



  1. #1
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Cambiare Nome alle Shapes

    Ciao a Tutti , 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 ecc..!

    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

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao Maurizio,
    al momento ho solo il cellulare, comunque mi ero imbattuto anche io in questo "problema" e avevo risolto solo tramite VBA.
    es.
    Sheets(1).Shapes("Ovale 1").Name = "R1"

    e magari con un ciclo appropriato puoi individuare e modificare il nome a tutti gli Shapes.
    Ma credo che a questa soluzione tu ci fossi già arrivato.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. #3
    L'avatar di zio_tom
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Veneto
    Messaggi
    526
    Versione Office
    2010 - Win10
    Likes ricevuti
    64
    Likes dati
    17
    probabilmente come altre volte in VBA ed Excel
    quando i nomi sono uguali anche di oggetti diversi
    non viene accettata questa ambiguità
    forsa basta nominarli: N_1, N_2

    PS: Ho provato ma non riesco a trovare il nome delle forme inerite in un foglio
    mi compare una finestra con tante proprietà ma non il nome
    in vecchie versioni di Excel 2000 so di averlo fatto
    ora sul 2010 non so come fare, mi puoi mostrare i passaggi.... Grazie
    :111: ___________ :999:

    PPS: quello che scrive cromagno è chiaro, il problema è sapere di ognuna il relativo nome
    con il classico click tasto destro non ho l'informazione del nome
    con doppio click sinistro mi si apre una Tab della Ribbon ma nemmeno da qui si risale al nome
    n°3 - Win10pro + Office 2010 ----- n°1 - Win7pro + Office 2010 ----- n°1 - WinXPpro + Office 2010

  4. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao zio_tom,
    una volta selezionato l'oggetto, il nome dovresti vederlo in una casella apposita sulla sinistra della "barra delle formule".
    Non ho il pc al momento, ma credo che la posizione non sia cambiata con le varie versioni.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  5. #5
    L'avatar di zio_tom
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Veneto
    Messaggi
    526
    Versione Office
    2010 - Win10
    Likes ricevuti
    64
    Likes dati
    17
    Hai ragione son proprio ccccccecato
    :111: cromagno
    _____________ :999:
    N_1 lo prende
    N1 non lo prende
    quindi è un problema visto come ambiguità
    n°3 - Win10pro + Office 2010 ----- n°1 - Win7pro + Office 2010 ----- n°1 - WinXPpro + Office 2010

  6. #6
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3207
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Buona serata a tutti
    Con l'utilizzo di VBA si potrebbe usare la macro seguente:
    Codice: 
    Sub rinomina() 'rinomina l'immagine
    Dim n As Integer, x As String
    x = ActiveSheet.Shapes.Count
    For n = 1 To x
        ActiveSheet.Shapes(n).Name = "C " & n
    Next
    End Sub
    Ovviamente rinomina TUTTE le immagini presenti sul Foglio ed assegnando come come nome una lettera ed un progressivo, cioè la "C " (notare lo spazio dopo la lettera) seguita da un numero (che può risultare molto utile in qualche ciclo).

    Ciao,
    Mario

  7. #7
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Grazie a Tutti voi , per il Vostri Interventi in merito al mio problema.
    Devo dire anche un Grazie a cromagno e a Marius , per il loro listato anche se a dire il vero non conoscevo affatto questo tipo di tecnica .
    Per qui mi sorge Spontanea un Ulteriore Domanda : Tutti questi vostri interventi possono essere Riutilizzati quando si hanno a disposizione più di una shape .
    Anche perché per dirla tutta il mio gioco e la riuscita del gioco della Dama ; per qui dovrei rinominare e a sua volta trovare con facilità ben 24 Pedine ; 12 per Parte.
    Premetto che una volta finita vi renderò un Omaggio.
    Logicamente senza pretese ! io valgo la metà della Metà di tutti voi in Programmazione.
    Però visto che e un gioco che mi ero ripromesso di Fare dagli anni 80 ad oggi.
    In quanto con il Mio Spectrum Sinclaire XZ ero riuscito già a farne una Analoga a questa; però poi cambiando Linguaggi ; metodi ecc...!
    Il mio sono e andato via via svanendo, Però la volontà c'è sempre stata dettata anche dal fatto che su internet non mi risulta che c'è ne sia una scritta in vba.
    Per qui anche con il Vostro Aiuto provo a crearne una io.
    Saluti e Ciao a tutti - Grazie da A.Maurizio

  8. #8

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao a tutti,
    @Maurizio
    supponiamo che tu abbia già colorato le 24 pedine di bianco e di nero (io al posto del bianco ho utilizzato il giallo)...
    Nel file che allego, utilizzo le celle "L4" e "L7" per dichiarare il nome che voglio assegnare (naturalmente si può evitare questo passaggio, l'ho usato solo per fare delle prove).
    Il codice che potresti usare è questo:

    Codice: 
    Option Explicit
    
    
    Sub assegna_nomi()
    Dim i As Integer, bianco As Integer, nero As Integer
    
    
    bianco = 1
    nero = 1
    'assegno i nomi agli shapes con colore giallo
    For i = 1 To 24
        If ActiveSheet.Shapes(i).Fill.ForeColor.RGB = RGB(255, 255, 0) Then
            ActiveSheet.Shapes(i).Name = Range("L4").Value & bianco
            bianco = bianco + 1
        End If
    Next i
    'assegno i nomi agli shapes con colore nero
    For i = 1 To 24
        If ActiveSheet.Shapes(i).Fill.ForeColor.RGB = RGB(0, 0, 0) Then
            ActiveSheet.Shapes(i).Name = Range("L7").Value & nero
            nero = nero + 1
        End If
    Next i
    
    
    MsgBox "Fatto!"
    
    
    End Sub

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  9. #9
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Ciao CroMagno Anche tu a Genialità non scherzi mica ; bellissimo questo tuo Intervento ; non la conoscevo proprio questa tecnica .
    Bellissimo la terrò con molta cura Grazie Infinite

Discussioni Simili

  1. [Risolto] Evidenziare con formattazione diversa in base alle percentuali
    Di SpezzaKorna nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 24/12/16, 13:04
  2. Chi è abilitato alle Sottoscrizioni e notifiche via email
    Di Gerardo Zuccalà nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 13
    Ultimo Messaggio: 28/06/16, 13:31
  3. eliminare shapes
    Di Gianfranco55 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 20/12/15, 21:33
  4. Togliere il Segno di Spunta dagli Oggetti Shapes
    Di A.Maurizio nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 06/12/15, 15:15
  5. Nomi alle formule, molto comlesse.
    Di RiccardoDengo nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 04/09/15, 10:58

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •