Ændre farver på graf

Du kan lave individuel farvning ved at markere een søjle og højreklikke på denne. Herefter får du mulighed for at ændre layout/farve m.v.

I dag vises grafen korrekt i access 2003, men når databasen åbnes i 2007 har den glemt farveindstillingerne, derfor vil jeg sikre mig dem ved at sætte dem i forbindelse men åbningen af rapporten. Så det du beskriver er ikke en mulighed jeg kan bruge.

Fandt selv en løsning, dog driller farverne :-(

Dim objGraph As Object
Dim objDataSeries As Object
Dim objDataSheet As Object  'The underlying data
Dim intCntValues As Integer
Dim sngValue As Single
Dim i As Integer
Dim X As Long
Dim p As Graph.Point

Set objGraph = Me!G1.Object
Set objDataSheet = objGraph.Application.DataSheet
For X = 1 To objGraph.SeriesCollection.Count
    Set objDataSeries = objGraph.SeriesCollection(X)
    intCntValues = objDataSeries.Points.Count
   
    If X Mod 2 = 0 Then
        For i = 1 To intCntValues
            objDataSeries.Points(i).Interior.Color = 12053171
        Next
    Else
        For i = 1 To intCntValues
            objDataSeries.Points(i).Interior.Color = RGB(51, 102, 153)
        Next
    End If
Next

Så men mindre nogen kan hjælpe mig med farverne så trækker jeg mine point igen. Hvis jeg bruger:
RGB(0, 255, 0)

Så skulle den gerne blive grøn men den bliver brun :-(

Hvis du i 2007 benytter effekter - graduering og så vælger tofarver, hvor du vælger den samme farve i begge farver kan 2007 huske farven du har valgt. Ikke særligt smart men det virker :)

hej jens,

Den har jeg også selv lavet, men det er ikke godt nok, den skal gøre det i koden og ikke manuelt.