Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeich.Objekt autom. einfügen ?

Forumthread: Zeich.Objekt autom. einfügen ?

Zeich.Objekt autom. einfügen ?
23.04.2003 08:47:28
Andre

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

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zeich.Objekt autom. einfügen ?
24.04.2003 15:49:19
Alfred

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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige