Hallo,
ich habe in Visio verschiedene Shapes, die bisher mit Verbindern (ohne Pfeilenden) verbunden sind. Jetzt möchte ich gerne per VBA allen Verbindern ein Pfeilende geben.
Ich habe es bisher so versucht:
Sub Chancearrows ()
Dim j As Integer
j = Application.ActiveWindow.Page.Shapes.Count
Do
Application.ActiveWindow.Page.Shapes.ItemFromID(j).CellsSRC(visSectionObject, visRowLine, visLineEndArrow).FormulaU = "13"
j = j - 1
Loop Until j = 1
End Sub
Leider funktioniert das nicht, da ich den Fehler "ungültiger Blatt Kennziffer" erhalte.
Ich weiß gleichzeitig auch nicht genau, ob Shapes.Count überhaupt der richtige Befehl ist, oder ob es einen Befehl gibt, mit dem ich nur die Verbinder zähle.
Oder habt ihr andere Ideen?
Vielen Dank schon einmal im Voraus! Ihr seid immer eine super Hilfe :)
LG Dino
|