Selezionare shapes

Hai un problema con Excel?

Nuova discussione

Selezionare shapes
di Bading (utente non iscritto) data: 18/11/2013 19:52:08
Ho creato una macro che mi disegna, alla fine dei calcoli, una struttura che assomiglia ad un albero composta da linee, cerchi e text box.
Al termine del disegno vorrei raggruppare questi oggetti.

Se uso il seguente l'istruzione ActiveSheet.Shapes.SelectAll seleziono anche dei Command Button che non voglio che vengano inserite nella selezione.
Come posso selezionare solo gli oggetti che ho disegnato?

Inoltre ogni volta che inserisco uno di questi oggetti l'identificativo è un numero che cresce con l'utilizzo della macro stessa (sono arrivato a quasi 4100!). Non c'è pericolo che va in overflow?
Grazie

di Mister_x (utente non iscritto) data: 19/11/2013 09:57:16
ciao

mi sono ricordato che un simile argomento era stato trattato,
questi consisteva nel creare uno shapes di attesa, dato che la sub nella sua elaborazione era molto lunga, alla fine veniva eliminato,
nom mi ricordo con chi abbiamo trattato questo argomento, ma il concetto e stato di dare un nome ad ogni shapes che veniva creato cosi alla fine eliminare solo quello interessato e non gli altri installati nel foglio come utilizzo di esso
ti posto il piccolo esempio che ho ritrovato nel file di prova fatto allora,in collaborazione con altri del forum che collaborano

ciao Mister_x

Sub Attesa()
  Dim s As Shape  ''nome dello shapes
  DoEvents
    Set s = ActiveSheet.Shapes.AddTextEffect(msoTextEffect28, "Attendere Prego", "Impact", _
                                           80#, msoFalse, msoFalse, 100#, 100#)
  'qui la tua procedura di sub al posto di MsgBox
  MsgBox "prova"
  Range("a1").Select
  '''''
  s.Delete
  Set s = Nothing
End Sub

Vuoi Approfondire?