Изменение пользовательских цветов в MS Access с помощью VBA - PullRequest
Новая
       19

Изменение пользовательских цветов в MS Access с помощью VBA

1 голос
/ 20 сентября 2011

Я пытаюсь изменить цветовую тему в доступе, и для всех графиков (гистограмма, круговая диаграмма, поля, область и т. Д.) Я хочу добавить новую цветовую схему. Я использую MS Access 2000, я нашел способ изменить каждый цвет вручную, нажав на график, а затем инструменты -> параметры -> Цвет -> диаграмма заполняет, но 2 проблемы с этим подходом:

1. Ограничивает количество цветов до 8
2. Мне нужно вручную изменить для каждого графика у меня более 100 графиков

любая помощь приветствуется

1 Ответ

0 голосов
/ 03 октября 2011

Я однажды редактировал цвета столбцов в диаграммах программно. Я не уверен больше для какой версии доступа, хотя. Он больше не работает в access2003, поэтому, вероятно, работает в access 2000.

Допустим, ваш график называется "OLEObject".

Вы можете редактировать фон следующим образом: 

    Me.OLEObject.Object.ActiveChart.PlotArea.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=2, Degree:=0.8

чтобы редактировать цвет, текст и т. Д. Столбцов / круговых диаграмм, вы можете получить доступ к коллекции серий. 

   With Me.OLEObject.Object.ActiveChart.SeriesCollection(i)
       .Name = "name"
       .Values = "={" & 10 & "}"
       .Interior.color = 2
       .ApplyDataLabels ShowSeriesName:=True

       With .DataLabels

           .Font.Size = 10 
           .Orientation = xlUpward
       End With

       With .Fill
            .OneColorGradient Style:=msoGradientHorizontal, Variant:=1, Degree:=0.4
            .ForeColor.SchemeColor = 3
       End With

   End With

Вы также можете добавлять / удалять столбцы программно: 

      .SeriesCollection(3).delete

      .SeriesCollection.NewSeries
...