Microsoft Excel

Herbers Excel/VBA-Archiv

Zeich.Objekt autom. einfügen ?

Betrifft: Zeich.Objekt autom. einfügen ?
von: Andre
Geschrieben am: 23.04.2003 - 08:47:28


Hallo,
eine Frage zum einfügen von Zeichnungs-Objekten.
Ich möchte bei bestimmten Werten in einer Zelle,
einen Pfeil in die Tabelle automatisch einfügen, so dass der Pfeil direkt die Zelle überlagert.
Gibt es eine Möglichkeit ?
danke

Gruss
Andre

  

Re: Zeich.Objekt autom. einfügen ?
von: Alfred
Geschrieben am: 24.04.2003 - 15:49:19

Hallo Andre!
nimm mal als Anregung folgendes Beispiel:

Sub Makro1()

Dim x1 As Single
Dim y As Single
Dim x2 As Single

x1 = ActiveCell.Left
y = ActiveCell.Top + ActiveCell.Height / 2
x2 = ActiveCell.Left + ActiveCell.Width

ActiveSheet.Shapes.AddLine(x1, y, x2, y).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
End Sub

Gruß
Alfred