Diagramm Größe
04.06.2008 15:04:00
denis
So noch eine letzte Frage.
wie kann ich die größe der Diagramme dem Inhalt anpassen, also wenn mehr daten dazukommen, das sich das diagramm automaitsch vergrößert?
So unten ist meine makro,.Bevor er sie positioniert muss er sie vergrößern...
Falls so was nicht geht, wie kann ich dann fixe größe für meine Diagramme (mehrere) bestimmen?
kann mir da einer helfen?
danke
Sub trendanalyis()
Dim iDiagramm As Long
Dim Top As Double
Dim sht As Worksheet
Dim inDiagramm As Integer
Worksheets("Trend").Select
ActiveSheet.ChartObjects.Delete
Worksheets("Administration").Select
nrreihenanalyse = Worksheets("Administration").Range("P1000").End(xlUp).Row
nrreihen = Worksheets("Administration").Range("A4").End(xlToRight).Column
For z = 5 To nrreihenanalyse
Worksheets("Administration").Activate
Set bigRange = Application.Union(Range(Cells(z, 17), Cells(z, nrreihen - 3)), Range(Cells(3, 17) _
_
, Cells(4, nrreihen - 3)))
bigRange.Select
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.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=False, _
ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
Next
Set sht = Sheets("Trend")
With ActiveSheet
For inDiagramm = 1 To .ChartObjects.Count
If inDiagramm = 1 Then
.ChartObjects(inDiagramm).ShapeRange.Top = 100
Else
.ChartObjects(inDiagramm).ShapeRange.Top = .ChartObjects(inDiagramm - 1). _
ShapeRange.Top + .ChartObjects(inDiagramm - 1).ShapeRange.Height
End If
Next inDiagramm
End With
End Sub