Diagramm per VBA
04.10.2003 12:01:09
martin
ich möchte per VBA Diagramme in verschiedene Blätter einfügen. Dazu dient folgender Code von Hans Herber:
Sub CreateAndDelete()
Dim cht As Chart
On Error Resume Next
ActiveSheet.ChartObjects(1).Delete
On Error GoTo 0
Set cht = Charts.Add
cht.ChartType = xlColumnClustered
cht.SetSourceData Source:=Sheets("Tabelle1").Range("A1").CurrentRegion
cht.Location Where:=xlLocationAsObject, Name:="Tabelle1"
Range("A1").Select
End Sub
Alles schön und gut, aber gibt es auch eine Möglichkeit, wie man die Position eines Diagramms festlegen kann ?
z.B: linke, obere Ecke = A15 ... oder so ähnlich
Mit Bildern funktioniert das ja folgendermaßen:
Set Shp = Tabelle.Pictures.Insert("D:\Test.jpg")
Shp.Top = Range("C3").Top
Shp.Left = Range("C3").Left
Hat jemand einen Tipp, ob oder wie man das mit Diagrammen macht??
Danke im Voraus
Martin