Добавление меток данных в гистограмму в MS Access с VBA - PullRequest
Новая
       10

Добавление меток данных в гистограмму в MS Access с VBA

0 голосов
/ 29 января 2012

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

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

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

1 Ответ

1 голос
/ 28 мая 2012

-этен,

Вот небольшой 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

Эта ссылка также может оказаться полезной: Программирование отчетов сводных таблиц в Microsoft Access 2002

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

Для использования приведенного выше кода требуется ссылка на OWC10 (веб-компоненты Microsoft Office XP)

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