Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige