anfangs- und endposition eines connectors
27.09.2007 16:12:00
schnierle
mit welchem befehl bekomme ich denn die anfangs- und die endposition eines connectors? hab es mit folgendem code versucht, aber das funktioniert nicht. gibt es nicht sowas wie "anfangspositionx" = .... "anfangsposy" =... _
"endpositionx "= ...
sub Position()
dim sh as shape
for each sh in activesheet.shape
If Left(sh.name, 9) = "AutoShape" Or Left(sh.name, 5) = "Linie" Then
liniennummer = liniennummer + 1
sh.name = "Linie" & liniennummer
x = sh.Top
y = sh.Left
end if
next
hat jemand ne idee? wäre euch sehr dankbar