AW: Diagramme position
03.06.2008 13:49:00
denis
danke erstmal tobias.
jetzt habe ich es in meine makro eingefügt und er zeigt mir irgendein fehler an...
so sieht mein makro aus
Sub trendanalyis()
Dim iDiagramm As Long
Dim Top As Double
Dim sht As Worksheet
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData source:=bigRange, PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Trend"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Sheets("Administration").Cells(z, 16).Value
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
Sub trendanalyis()
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Interior.ColorIndex = xlNone
ActiveChart.ChartArea.Select
ActiveChart.HasLegend = False
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=False, _
ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
With sht
iDiagramm = .ChartObjects.Count
With .ChartObjects(iDiagramm - 1) 'hier zeigt er mir ein fehler an und sagt das obect _
nicht zur Worksheets passt.
Top = .Top + .Height
End With
.ChartObjects(iDiagramm).Top = Top
End With
End Sub