SmartArt mit VBA in Microsoft Excel

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

War die Erklärung zu "SmartArt mit VBA in Microsoft Excel" hilfreich? Jetzt bewerten:
(5,00 Punkte aus bisher 1 Bewertungen)
Loading...

Danach haben Besucher gesucht

  • https://yandex ru/clck/jsredir?from=yandex ru;search;web;;&text=&etext=1829 Zkjfi6rPYN3xHXScdKnlENne_vbR00hWjje4rx_RvTLpOvyJO-6rEbeJsMcQF_IzabeGp5O5NQ4_okX7NfEtXg c91165795234c93729e6a7afe9c7d39b804a7dee&uuid=&state=_BLhILn4SxNIvvL0W45KSic
  • https://yandex ru/clck/jsredir?from=yandex ru;search;web;;&text=&etext=1834 y4gobNAenDFS-cfQF7veHYl8dQozY4_do-lJMDec0lvbLRvSzUdm_okUo0GG2U8m5QwgWi09TSNGwivMNCxlZA 8d5e1c40321ac93d0a525ea270429a687d23c81b&uuid=&state=_BLhILn4SxNIvvL0W45KSic

Weitere Erklärungen zu Skriptsprachen