bitte bitte bitte VB hilfe

ich würde gerne abhängigkeiten zwischen feldern mit pfeilen dynamisch verbinden lassen.
ausgehend von einer zeitleisten wo ich verschiedene arbeitsschritte einer maschine eintrage, diese einträge stehen in verbindung zu einander, zur besseren veranschaulichung will ich diese grafisch mit pfeilen verbinden. da aber die pfeile nur mit Koordinaten arbeiten, wird dies schwierig
ActiveSheet.Shapes.AddLine(BeginnX, BeginnY, EndeX, EndeY).Select
so in etwa, kann man die Pfeile nicht auf Zellen fixieren oder muss man das so blöd umständlich mit koordinaten machen?
mit den koordinaten komme ich nie so richtig hin bzw es wird einfach total viel programmieraufwand
warum kann ich im mainthread kein bild anhängen?
mfg stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,
vielleicht hilft Dir folgendes Makro:


Private Sub lineDraw(zelle1 As Range, pos1 As Integer, zelle2 As Range, pos2 As Integer)
'zieht eine Linie zwischen zwei Zellen
'pos1 und pos2 sind Positionen, relativ zur Zelle
'1...oben links         2...oben mitte          3...oben rechts
'4...mitte links        5...zentrum             6...mitte rechts
'7...unten links        8...unten mitte         9...unten rechts
Dim zX1 As Single, zY1 As Single
Dim zX2 As Single, zY2 As Single
Select Case pos1
Case 1
zX1 = 0: zY1 = 0
Case 2
zX1 = zelle1.Width / 2: zY1 = 0
Case 3
zX1 = zelle1.Width: zY1 = 0
Case 4
zX1 = 0: zY1 = zelle1.Height / 2
Case 5
zX1 = zelle1.Width / 2: zY1 = zelle1.Height / 2
Case 6
zX1 = zelle1.Width: zY1 = zelle1.Height / 2
Case 7
zX1 = 0: zY1 = zelle1.Height
Case 8
zX1 = zelle1.Width / 2: zY1 = zelle1.Height
Case 9
zX1 = zelle1.Width: zY1 = zelle1.Height
Case Else
Exit Sub    'falscher Wert für Posistion
End Select
Select Case pos2
Case 1
zX2 = 0: zY2 = 0
Case 2
zX2 = zelle2.Width / 2: zY2 = 0
Case 3
zX2 = zelle2.Width: zY2 = 0
Case 4
zX2 = 0: zY2 = zelle2.Height / 2
Case 5
zX2 = zelle2.Width / 2: zY2 = zelle2.Height / 2
Case 6
zX2 = zelle2.Width: zY2 = zelle2.Height / 2
Case 7
zX2 = 0: zY2 = zelle2.Height
Case 8
zX2 = zelle2.Width / 2: zY2 = zelle2.Height
Case 9
zX2 = zelle2.Width: zY2 = zelle2.Height
Case Else
Exit Sub    'falscher Wert für Posistion
End Select
ActiveSheet.Shapes.AddLine( _
zelle1.Left + zX1, zelle1.Top + zY1, _
zelle2.Left + zX2, zelle2.Top + zY2).Select
End Sub

Steffan.

Sub testline() 'Linie von A1 oben links nach A30 unten rechts: Call lineDraw(Cells(1, 1), 1, Cells(30, 1), 9) 'Linie von A30 zentrum nach J30 unten links: Call lineDraw(Cells(30, 1), 4, Cells(30, 10), 7) End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread