Formatierdialog per VBA
12.07.2004 09:16:50
MiNo
untenstehender Code markiert eine bestimmte Datenreihe (von 4 Datenreihen) in einem bestimmten Diagramm (die Bezeichnung setzt sich hier aus "sor" und Sheetname zusammen) und öffnet den Formatierdialog per SendKeys-Anweisung.
Leider habe ich keine andere Lösung (bisher) gefunden.
Diese Lösung läuft an sich eh recht gut, aber offensichtlich wird die Datenreihe nicht immer erkannt und markiert, da öfters statt dem Datenreihen-Formatierdialog der Zeichenfläche-Formatierdialog erscheint.
Wer weiß Rat?
Der nächste Schritt soll nämlich statt dem Aufrufen des Formatierdialogs gleich die selektierte Datenreihe definiert formatieren.
Gruß, MiNo
Sub Select1()
Dim ActChart As ChartObject
On Error Resume Next
With ActiveSheet
Set ActChart = .ChartObjects("sor" & ActiveSheet.Name)
ActChart.Activate
With ActiveChart
.SeriesCollection(1).Select
'Öffnet Formatierdialog (Tastenkombination: str + 1)
SendKeys "^{1}"
End With
End With
End Sub