vba - elementi - grafici (shape)

con VBA é possibile inserire e manipolare i vari oggetti grafici shape (ex. frecce, TextTable, ecc...) nei fogli
esistono 183 tipi di shape da 1 a 183 (non il 138 non supportato)

sintassi:

inserire

Dim shp As Shape

Set shp = ActiveSheet.Shapes.AddShape(tipo, distanza dall'alto in px, distanza sinistra in px, larghezza, altezza)

modifico propietà/metodo

ActiveSheet.Shapes("nome").propietà

ActiveSheet.Shapes("nome").metodo

scorri tutti i shape

For Each

For Each shp In ActiveSheet.Shapes

shp.metodo

Next shp

esempio: inserisco shape 1
Set shp = ActiveSheet.Shapes.AddShape(1, 100, 10, 60, 60)

propietà/metodi:

.TextFrame.Characters.Text = ""

inserisco un testo all'interno

shp.TextFrame.Characters.Text = "ciao"

.IncrementLeft (x)

modifico la posizione da sinistra

shp.IncrementLeft (5)

.ControlFormat.Enabled = true/false (non funziona con i bottoni usa .Visible)

abilita e disabilità il shape

.Visible = true/false

visualizza o nasconde il shape

.Count

restutisce quanti shape ci sono nel foglio

esempio: se nella scheda SchedaTest ci sono shape
If Sheets("SchedaTest").Shapes.Count > 0 Then

.Delete

cancella l'oggetto shape

shp.Delete

document.write(document.title.substr(0,document.title.indexOf("-")).trim().toUpperCase() + " - " + document.title.substr(document.title.indexOf("-")+1).trim().toLowerCase())