Mit Hilfe von SmartArt-Grafiken lassen sich Beziehungen, Prozessabläufe oder Hierarchien schnell und übersichtlich darstellen. Für VBA ist eine SmartArt-Grafik eine Gruppe von Shapes. Die Eigen- schaften der Shapes können allerdings nur gelesen, nicht verändert wer- den. Diese Möglichkeit gibt es erst seit Excel 2007. Nachfolgend ein Programm, das die Position der einzelnen Blöcke ausgibt. Die Collection GroupItems umfasst alle Elemente der Gruppe. Ein einzelnes Element der Gruppe kann über einen Index angesprochen werden. Die Eigenschaften Top und Left der einzelnen Blöcke werden gesammelt und ausgegeben.
Sub SmartArtLesen()
Dim i As Integer
Dim s As String
Dim sh As Shape
' Erstes SmartArt-Objekt auswählen
Set sh = ThisWorkbook.Worksheets("Tabelle9").Shapes(1)
' Ort aller Elemente des SmartArt-Objekts
Fori=1Tosh.GroupItems.Count
s = s & Int(sh.GroupItems(i).Top) & _
" " & Int(sh.GroupItems(i).Left) & vbCrLf
Next i
MsgBox s
End Sub
SmartArt mit VBA in Microsoft Excel
War die Erklärung zu "SmartArt mit VBA in Microsoft Excel" hilfreich? Jetzt bewerten:
Weitere Erklärungen zu Skriptsprachen
- Dateien suchen und auflisten mit VBA in Microsoft Excel
- Zellen löschen mit VBA in Microsoft Excel
- Zeitintervall addieren mit VBA in Microsoft Excel
- Zellen zählen mit VBA in Microsoft Excel
- Datei speichern unter mit VBA in Microsoft Excel
- SmartArt mit VBA in Microsoft Excel
- Zeitdifferenz berechnen mit VBA in Microsoft Excel
- Export von Datensätzen mit VBA in Microsoft Excel
- Versenden einer Arbeitsmappe mit VBA in Microsoft Excel
- Einheitenumrechnung mit VBA in Microsoft Excel
- Dreifarbige Farbskala mit VBA in Microsoft Excel
- Erstellen einer Serien-E-Mail mit VBA in Microsoft Excel
- Methode Application.InputBox mit VBA in Microsoft Excel
- VBA-Makro per Schaltfläche ausführen
- Import von Datensätzen mit VBA in Microsoft Excel