Ausrichten "left, top"

Tag zusammen,
mal eine kurze Frage:
Wenn ich ein shape-Objekt(Reckteck) erzeuge wird laut der Hilfe die left und top Angabe benötigt, damit es ausgerichtet wird.
Ich hab ein Diagramm, welches ein eigenes Sheet ist. Wenn ich die Top/left Werte der PlotArea auslese und diese dann zur Erstellung des Rechtecks benutze, dachte ich eigenltich dass das Rechteck in der linken oberen Ecke der PlotArea erscheinen muss.
Das macht es allerdings nicht, sondern ist etwas entfernt davon..
Weiss jemand woran das liegt. Beide Werte werden in 'Punkt' ausgegeben daher müsste das ja eigentlich stimmen.


Public Sub Rechteck ()
L = Sheets(1).PlotArea.Left
T = Sheets(1).PlotArea.Top
ActiveChart.Shapes.AddShape(msoShapeRectangle, L, T, 100, 100).Select
Selection.ShapeRange.Fill.Visible = msoFalse
End Sub

Gruss Dennis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub test() wert_L = Application.Left wert_T = Application.Top L1 = Sheets(1).ChartArea.Left L = (Sheets(1).PlotArea.Left) T1 = Sheets(1).ChartArea.Top T = (Sheets(1).PlotArea.Top) Left_1 = L + L1 + Abs(wert_L) Top_1 = T + T1 + Abs(wert_T) ActiveChart.Shapes.AddShape(msoShapeRectangle, Left_1, Top_1, 100, 100).Select Selection.ShapeRange.Fill.Visible = msoFalse End Sub

Public Sub Rechteck() With Charts("Diagramm1") Set pa = .PlotArea With .Shapes.AddShape(msoShapeRectangle, _ pa.InsideLeft, pa.InsideTop, 100, 100) .Fill.Transparency = 1 .Line.DashStyle = msoLineDashDot End With End With End Sub

Hi Renee,
also damit funktionierts ganz genau.
Nur ich hab irgendwie gehofft, das ich damit später irgendwie die Mausposition in eine Left/Top Koordinate umwandel kann.
wie du schon richitg vermutest geht es immer noch um das Zoom-Tool. Ich versuche den Zoom-Bereich durch ein Rechteck darzustellen. Und diesen Bereich dann zu zoomen. Prinzipiel funktioniert das auch. Hab eine Variante hinbekommen die hier bei mir auf dem Rechner läuft. Allerdings nur dann wenn keine andere Bildschirmauflösung, der excel-Zoom auf 130% und und und eingestellt ist.
Ist also sehr unflexibel das ganze.
Das ganze Probelm ist eben die MausKoordinaten sind in Pixel, die Left Top Werte in Punkte. dann bezieht sich die Left, Top Koordinate je nach Objekt auf einen anderen Rand. Das macht es alles sehr schwer.
Ich würd ja auf Nepumuk hören, aber hat ja prinzipiel nur gesagt das es mit VBA nicht geht. Da ich aber nur VBA kann. Ist es für mich nur damit möglich :)
Gruss Dennis

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausrichten "left, top"

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread