„Irren ist männlich“, sprach der Igel und stieg von der Drahtbürste

Warum macht Microsoft das nicht einheitlich?

Ich erhalte eine Mail mit der Frage, wie man in einem ACCESS-Diagramm einen Datenpunkt mit VBA formatiert.

Da Access keinen Makrorekorder hat und da ich nicht genau weiß, wie der Datenpunkt in VBA heißt und mit welchen Eigenschaften man die Farbe ändern kann, erstelle ich in Excel ein Diagramm, verwende den Makrorekorder und baue den Code ein wenig um:

Der neue Code sieht folgendermaßen aus:

Dim s As Worksheet
Dim c As ChartObject
Dim cc As Chart
Dim f As FullSeriesCollection
Dim p As Point

Set s = ActiveSheet
Set c = s.ChartObjects(1)
Set cc = c.Chart
Set f = cc.FullSeriesCollection
Set p = f(1).Points(1)

p.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)

In Access empfiehlt es sich einen Verweis auf die Objektbibliothek „Microsoft Graph“ einzubinden:

Ich kopiere den Excel-VBA-Code nach Access und bin verblüfft, wie viel ich in Access ändern muss, um zu dem gleichen Ergebnis zu gelangen:

Dim rep As Report

Dim c As Graph.Chart
Dim f As Graph.SeriesCollection
Dim p As Graph.Point

Set rep = Reports(„repDiagramm“)
Set c = rep.Controls(„Diagramm1“).Object
Set f = c.SeriesCollection
Set p = f(1).Points(3)

p.Interior.Color = RGB(255, 0, 0)

Hätte man nicht die gleichen Befehle und Eigenschaften verwenden können? Hätte man sicherlich …