AW: Diagramme erstellen
21.09.2006 22:56:44
fcs
Hallo Peter,
Mit der Gruppen-Nummer ist folgendes: Ich hatte es so eingerichtte, dass wenn die Nummer in Spalte AB zu jedem Maschinen-Teil eingetragen wird, dann wird sie auch im vom Makro im Diagramm-Titel eingetragen. Man könnte es auch so machem, dass die Gruppennummer nur einmal für die Maschine eingetragen wird oder in einer Tabelle eine Liste der Maschinen mit den zugehörigen Gruppennummer, die man dann im Makro auswertet.
Ich hab hier einen Code-Abschnitt der im Diagramm ein Textfeld anlegt, in dem die Bezeichnung der Maschine eingetragen wird. Mit dem Code wird die Maschine unter dem Diagrammtitel eingetragen. Du kannst das Textfeld aber noch beliebig plazieren. Die Variable "Bereich" mit der Maschinen-Bezeichnung wird schon zu Begnn des Makros mit dem Wert gefüllt, um den Namen des Diagramm-Registers festzulegen.
With DiagNeu
.HasTitle = True
.ChartTitle.Characters.Text = "Störzeiten 2006 Gruppe 7621 " _
& " " & wksEingabe.Cells(iZ, 1)
End With
DiagNeu.ChartTitle.Select
Selection.AutoScaleFont = False
With Selection.Font
.Name = "Arial"
.Size = 20 ' Schriftgröße für Diagrammtitel
End With
'Position Diagrammtitel
Selection.Left = 30
Selection.Top = 5
'Maschinenname in Textfeld schreiben
DiagNeu.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 30, 200, 30).Select
' Zahlen in vorheriger Zeile geben Position und Größe der Box an (Links, Oben, Breite, Höhe)
Selection.Characters.Text = "Maschine: " & Bereich
'Textausrichtung in Box
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.Orientation = xlHorizontal
.AutoSize = False
End With
'Schriftformatierung Box
With Selection.Font
.Name = "Arial"
.Size = 20
.Bold = True
.ColorIndex = xlAutomatic
.Background = xlTransparent
End With
ActiveChart.PlotArea.Select
Alternativ kannst du natürlich auch die Bezeichnung einfach am Ende des Diagrammtitels anfügen:
.ChartTitle.Characters.Text = "Störzeiten 2006 Gruppe 7621 " _
& " " & wksEingabe.Cells(iZ, 1) & " " & Bereich
Die Zeile in der du die Fontgröße des Diagrammitels einstellen kannst findest du oben im Code.
Gruss
Franz