Добавление datalabels в Bar Chart в MS Access с VBA

Question

Я пытаюсь добавить метки данных в свои сводные диаграммы программно через VBA, но я не могу понять это. Я смотрел всюду в Интернете, но ничего не работает для моего конкретного случая.

Dim myForm As Form 
Set myForm = Forms("My Form") 

Это может быть довольно просто, но как мне получить доступ к свойству HasDataLabels? Мне нужно добавить его в две серии.

Answer 1

-этна,

Вот немного VBA, который может быть использован для добавления меток данных в форме рассматриваются как сводная диаграмма круговой диаграммы. Обратите внимание, что этот код может вызывать ошибки, если форма не рассматривается как сводная диаграмма, поскольку ChartSpace может быть недоступна.

Private Sub Form_Load() 
    Dim FormChartSpace As owc10.ChartSpace 

    Set FormChartSpace = Me.Form.ChartSpace 
    FormChartSpace.Charts(0).SeriesCollection(0).DataLabelsCollection.Add 
    FormChartSpace.Charts(0).SeriesCollection(0).DataLabelsCollection(0).HasValue = True 
    Set FormChartSpace = Nothing 
End Sub 

Вы можете найти эту ссылку полезно, а также: Programming PivotTable Reports in Microsoft Access 2002

Есть много способов форматирования диаграмм в Access VBA. Он оказался более надежным для моих пользователей, когда я создаю весь график программно, это позволяет избежать проблем с пользователями, случайно «развращающими» диаграммы, неосознанно перетаскивая элементы управления, потому что диаграмма воссоздается с нуля каждый раз, когда форма загружается.

---

Используя приведенный выше код требует ссылки на OWC10 (Microsoft Office XP Web Components)

1. В меню Сервис выберите команду Ссылки.
2. Нажмите кнопку «Обзор».
3. Перейти к файлу C: \ Program Files \ Microsoft Office \ Office12 \ OFFOWC.DLL. (Место может измениться в зависимости от версии вашего офиса)
4. Щелкните по файлу и выберите команду Открыть. Это добавляет ссылку на библиотеку Microsoft Office XP Web Components.
5. Нажмите «ОК», чтобы закрыть диалоговое окно «Ссылки».