AW: Nummern zurücksetzen
18.07.2008 12:56:00
fcs
Hallo Tobias,
den automatischen Zähler kann man meines Wissen nicht zurücksetzen.
Du kannst den Diagrammen aber einen eigenen Namen geben.
Hier ein Beispiel, Vorgabewert ist immer die Anzahl der eingebetteten Diagramme.
Gruß
Franz
Sub Diagramm()
Dim wks As Worksheet, objObject As Object, strName As String, strMsg As String
Set wks = ActiveSheet
'Diagramm einfügen
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A1:A10,D1:D10"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Feld 04"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
'Diagramm benennen
With wks
Set objObject = .ChartObjects(.ChartObjects.Count)
If .ChartObjects.Count > 1 Then
strMsg = "Vorhandene Diagrammnamen:"
For i = 1 To .ChartObjects.Count - 1
strMsg = strMsg & vbLf & .ChartObjects(i).Name
Next
End If
strMsg = strMsg & vbLf & "Diagrammname?" & vbLf & "aktueller Name: " _
& .ChartObjects(.ChartObjects.Count).Chart.Name & vbLf _
& "Objekt-Name: " & objObject.Name
strName = InputBox(strMsg, "Diagramm benennnen", _
"Diagramm " & Format(.ChartObjects.Count, "0"))
If strName "" Then objObject.Name = strName
End With
End Sub