Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Diagramm positionieren

Forumthread: Diagramm positionieren

Diagramm positionieren
03.06.2007 21:23:20
Susanne
Hallo zusammen,
ich habe folgendes Diagramm und möchte das die linke obere Ecke auf B8 Tabelle1 positioniert wird
Ich bekomme das jedoch leider nicht hin.
Vielleicht könnt ihr mir ja helfen!
Code sieht so aus:

Sub kennfeld_erstellen()
Dim chkennfeld As Chart
Dim Letzte As Long
Dim Zeile As Long
Dim Zaehler As Long
Application.ScreenUpdating = False
Worksheets("kennwerte").ChartObjects.Delete
Set chkennfeld = Charts.Add
chkennfeld.ChartType = xlXYScatterLinesNoMarkers
chkennfeld.Location Where:=xlLocationAsObject, Name:="kennwerte"
Set chkennfeld = ActiveSheet.ChartObjects(1).Chart
Zaehler = 1............
End Sub


Gruß
Susanne

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Diagramm positionieren
03.06.2007 22:16:00
Dan
Hallo,
nach dem der neue Chart zugegeben wurde, hat sich die Anzahl der Shapes um Eins erhoeht. Man zeight also in die Shapes-Collection und veraendert die Top und Left Eigenschaft vom letzten Shape:
Dim chartAsShapeIndex As Integer
chartAsShapeIndex = Worksheets("kennwerte").Shapes.Count
Worksheets("kennwerte").Shapes(chartAsShapeIndex).Top = Range("b8").Top
Worksheets("kennwerte").Shapes(chartAsShapeIndex).Left = Range("b8").Left
Dein kompletter Code sieht dann so aus :
Option Explicit

Sub kennfeld_erstellen()
Dim chkennfeld As Chart
Dim Letzte As Long
Dim Zeile As Long
Dim Zaehler As Long
Application.ScreenUpdating = False
Worksheets("kennwerte").ChartObjects.Delete
Set chkennfeld = Charts.Add
chkennfeld.ChartType = xlXYScatterLinesNoMarkers
chkennfeld.Location Where:=xlLocationAsObject, Name:="kennwerte"
Set chkennfeld = ActiveSheet.ChartObjects(1).Chart
Dim chartAsShapeIndex As Integer
chartAsShapeIndex = Worksheets("kennwerte").Shapes.Count
Worksheets("kennwerte").Shapes(chartAsShapeIndex).Top = Range("b8").Top
Worksheets("kennwerte").Shapes(chartAsShapeIndex).Left = Range("b8").Left
'Zaehler = 1............
End Sub


Gruss Dan. cz

Anzeige
AW: Dankeschön
03.06.2007 22:49:00
Susanne
Hallo Dan,
danke für deine Hilfe, funktioniert einwandfrei!
Gruß
Susanne
;

Beliebteste Forumthreads (12 Monate)

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