A volte capita di avere a che fare con molti oggetti su un oglio di Excel quali linee, rettangoli, cerchi, frecce e volerli manipolare.

Il metodo semplice è di assegnare ad ogni oggetto un nome e successivamente manipolarlo in VBA attraverso le proprietà dell’oggetto.

In VBA per “indirizzare” un oggetto di un foglio di lavoro si usa il costrutto:

ActiveSheet.Shapes.Range(Array("NOME_OGGETTO")).Select
 With Selection.ShapeRange.Fill
 .Visible = msoTrue
 .ForeColor.ObjectThemeColor = msoThemeColorAccent2
 .ForeColor.TintAndShade = 0
 .ForeColor.Brightness = 0
 .Transparency = 0
 .Solid
 End With

In questo caso si cambia il colore dell’oggetto che ha per nome “NOME_OGGETTO“.

Questo procedimento funziona bene se si conoscono i nomi degli oggetti sul foglio di lavoro.

Ciò non è possibile in modo banale e sopratutto non è semplice esportare in un foglio excel i nomi per utilizzarli ad esempio nella macro che ne deve cambiare il colore. Ciò rende il tutto molto complicato perchè la macro dovrebbe conoscere tutti i nomi di tutti gli oggiettiprsenti sul foglio di lavoro senza leggerne i nomi..

Questa semplice macro crea un foglio di lavoro e inserisce la lista di tutti i nomi di tutti gli oggetti presenti in un foglio di lavoro “sorgente”.

Sub ListWorkSheetNamesNewWs()

Dim xWs As Worksheet
Dim Current As Worksheet

Dim i As Long

On Error Resume Next

Application.DisplayAlerts = False
xTitleId = "OFFICE-GURU List NAMES"
Application.Sheets(xTitleId).Delete
Set Current = ActiveSheet
Application.Sheets.Add Application.Sheets(1)
Set xWs = Application.ActiveSheet
xWs.Name = xTitleId
Current.Activate

i = 1
For i = 1 To ActiveSheet.Shapes.Count
 xWs.Range("A1").Offset(i, 0).Value = ActiveSheet.Shapes.Range(Array(i)).Name
Next i

Application.DisplayAlerts = True

End Sub

Per usarla è molto semplice:

1. Importate la macro nel vostro ambiente excel
2. andate sul foglio di lavoro per cui volete creare la lista degli oggetti
3. premete ALT F11
4. Eseguite la macro

un nuovo foglio di lavoro viene creato con l’elenco dei nomi degli oggetti presenti sul foglio di lavoro su cui si è eseguita la macro alla colonna A.

Per concludere l’articolo alcuni consigli di manuali sulla manipolazione degli oggetti in Excel:

Attenzione solo che se si ragguppano gli oggetti attraverso il comando “Raggruppa” o “Group” in inglese, la macro riporterà il nome del “gruppo” senza aprirlo nelle sue parti costituenti (il che non avrebbe senso perchè l’utente ha appunto creato un gruppo e quindi ci si aspetta che lo voglia manipolare come gruppo appunto)

Scarica File di Esempio: List Objects in Excel

La macro è stata adattata da una simile del sito ExtendOffice

This work by Andrea is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International