Diagramme positionieren
24.09.2004 17:41:53
Reinhard
ich mache jetzt schon seit Stunden an der Beantwortung vom Thread: https://www.herber.de/forum/messages/489559.html herum.
Aktuell geht es mir um die Datei https://www.herber.de/bbs/user/11281.xls
Mehrere Diagramme solllen in ein Diagrammblatt.
Der nachstehende Code bricht an der markierten Stelle bei
.HasTitle = True
mit Laufzeitfehler&mystischerZahlenreihe, Automatiserungsfehler ab.
Zeichne ich aber an der Abbruchstelle ein Makro auf, so klappt dort der Befehl .HasTitle = True.
Sub Makro12()
With ActiveChart
.HasTitle = True 'Keine Probleme
.ChartTitle.Characters.Text = "test"
End With
ActiveChart.ChartArea.Select
End Sub
Wer kann mal bitte über den Code sehen und ihn mal anschubsen.
Wahrscheinlich treten später noch Probleme mit Height usw auf *seuz*
Dankeschön
Reinhard
Sub verteilung()
Dim vorh As Boolean
Dim n As Integer
Application.DisplayAlerts = False
For n = Sheets.Count To 1 Step -1
If Sheets(n).Name = "Verteilung" Or Sheets(n).Name Like "Dia*" Then Sheets(n).Delete
Next n
Application.DisplayAlerts = True
Charts.Add
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Verteilung"
Call vert("A50:G50,A52:G52", "Statusverteilung in %", 260, 300, 35, 600)
'Call vert("A50:G50,A51:G51", "Statusverteilung", 260, 300, 35, 240)
'Call vert("A45:E45,A47:E47", "Prioritätsverteilung in %", 255, 300, 324, 600)
'Call vert("A45:E45,A46:E46", "Prioritätsverteilung", 255, 300, 324, 240)
End Sub
Sub vert(rang As String, tex As String, h As Integer, w As Integer, t As Integer, l As Integer)
Charts.Add
With ActiveChart
.Name = "dia"
.ChartType = xlCylinderColClustered
.SetSourceData Source:=Worksheets("Tabelle1").Range(rang), PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:="Verteilung"
.HasTitle = True '###################laufzeitfehler, Automatisierungsfehler
.ChartTitle.Characters.Text = "Statusverteilung in %"
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
.HasAxis(xlCategory) = False
.HasAxis(xlSeries) = False
.HasAxis(xlValue) = True
.Axes(xlCategory).CategoryType = xlAutomatic
.HasDataTable = False
End With
With ActiveSheet
.ChartObjects(dia).Height = h
.ChartObjects(dia).Width = w
.ChartObjects(dia).Top = t
.ChartObjects(dia).Left = l
End With
End Sub
Sub Makro12()
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "test"
End With
ActiveChart.ChartArea.Select
End Sub