eine frage ,gibt es eine Möglichkeit oder ein Befehl in vba,beim ausführen eines Makros, dass er die Diagramme untereinander positioniert, anstadt er sie aufeinander positioniert?
MFG
Sub DiagrammUntereinander()
Dim iDiagramm As Long
Dim Top As Double
Dim sht As Worksheet
Set sht = Sheets("Tabelle2")
With sht
iDiagramm = .ChartObjects.Count
With .ChartObjects(iDiagramm - 1)
Top = .Top + .Height
End With
.ChartObjects(iDiagramm).Top = Top
End With
End Sub
Schönen Gruß, Tobi
www.tobiasschmid.de
Sub DiagrammUntereinander()
Dim iDiagramm As Long
Dim Top As Double
Dim sht As Worksheet
Set sht = Sheets("Tabelle2")
With sht
iDiagramm = .ChartObjects.Count
If iDiagramm = 1 Then Exit Sub
With .ChartObjects(iDiagramm - 1)
Top = .Top + .Height
End With
.ChartObjects(iDiagramm).Top = Top
End With
End Sub
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