Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
872to876
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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige