Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
212to216
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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


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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige