Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Position einer Linie (Grafik)

Forumthread: Position einer Linie (Grafik)

Position einer Linie (Grafik)
05.02.2003 22:14:49
Wolfgang
Hallo Helferlein, (Daniel Düsentrieb - wie lang ist´s her - jaja)

bei Aufzeichnung eines Makros mit einem Grafikelement wird
die Positon festgelegt.
Diese soll aber abhängig von der Zelle sein.
Wie geht das bzw. welcher Archivbeitrag hilft ?
(hab leider selbst nichts gefunden)

z. B. Bei Makroausführung immer Linie entsprechend dem rechten
Rand der aktuellen (aktiven) Zelle

Freue mich über jeden Fingerzeig in die richtige Richtung

Viele Grüße - Wolfgang

P. S. Frage war im November oder so schon da - ich weiß -
brachte aber kein Ergebnis


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Position einer Linie (Grafik)
05.02.2003 22:24:19
MRR

Hi Wolfgang,
ich erzeuge neben der aktiven Zelle ein Rechteck, dessen Oben-, Links-, Breite- und Höhe-Eigenschaft von der rechts liegenden Zelle abhängen. In dieses schreibe ich dann noch den formatierten Text "Wolfgang" hinein:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
ActiveCell.Offset(0, 1).Left, _
ActiveCell.Offset(0, 1).Top, _
ActiveCell.Offset(0, 1).Width, _
ActiveCell.Offset(0, 1).Height).Select
Selection.Characters.Text = "Wolfgang"
With Selection.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
End With

Soweit alles klar?
LG, Matthias

Anzeige
Re: Position einer Linie (Grafik)
05.02.2003 22:31:41
L.Vira

Option Explicit
Sub Einfuegen()
Dim R As Shape
With ActiveCell.Offset(0, 1)
Set R = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
.Left, .Top, .Width, .Height)
End With
End Sub

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige