Microsoft Office Tutorials and References
In Depth Information
7.9 SmartArt
Nachfolgend ein Programm, das die Position der einzelnen Blöcke aus-
gibt:
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
Zur Erläuterung:
Die Collection GroupItems umfasst alle Elemente der Gruppe.
GroupItems
Ein einzelnes Element der Gruppe kann über einen Index angespro-
chen werden.
Die Eigenschaften Top und Left der einzelnen Blöcke werden gesam-
melt und ausgegeben, siehe Abbildung 7.32.
Abbildung 7.32
Ausgabe der Positionen
Search JabSto ::




Custom Search