Leser: 1
3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Makro6()
'
' Makro6 Makro
' Makro am 19.08.2007 von Holger Großeloh aufgezeichnet
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets("Diagramm").Range("D8")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Diagramm!R3C4:R6C4"
ActiveChart.SeriesCollection(1).Values = "=Diagramm!R3C5:R6C5"
ActiveChart.SeriesCollection(1).Name = "=""Dreieck"""
ActiveChart.SeriesCollection(2).XValues = "=Diagramm!R2C4"
ActiveChart.SeriesCollection(2).Values = "=Diagramm!R2C5"
ActiveChart.SeriesCollection(2).Name = "=""Punkt"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Diagramm"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
$excel->Run("Makro6");
3 Einträge, 1 Seite |