Управление заголовком сводных диаграмм в Access 2003

Сравнительно недавно пришлось решать такую задачу - программно формировать заголовки сводных диаграмм. Вся проблема в том, что при вводе текста программы свойство ChartSpace формы "не разворачивается". Изучение хэлпа показало, что нужны Microsoft Office Web Components, которые поставляются хоть и бесплатно, но весят 18 мегабайт. Мдя. Делать нечего, скачал эти самые веб-компоненты, установил. Естественно, в списке Reference они автоматом не появились, пришлось добавлять вручную (Program Files\Common Files\Micosoft Shared\Web Components\11\OWC11.dll). Благодаря этому таки стали доступны свойства этой самой ChartSpace.

Итак, за заголовок у нас отвечает свойство ChartSpaceTitle, а проверить его наличие можно свойством HasChartSpaceTitle. У свойства ChartSpaceTitle диаграммы есть ряд вложенных свойств, непосредственно за текст заголовка отвечает свойство Caption. Так что для программной установки заголовка (желательно, конечно, его изначально создать визуально) достаточно воспользоваться конструкцией вида:

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
  ChartSpace.ChartSpaceTitle.Caption = "Заголовок диаграммы, заданный программно"
End Sub

Разумеется, пример очень грубый, но ведь его нетрудно доработать, не так ли? Например проверить, действительно ли форма открылась в режиме сводной диаграммы, имеется ли у диаграммы заголовок и т.д.

А теперь хорошие новости! Для работоспособности данной конструкции совершенно необязательно наличие этой самой OWC11.DLL в References, и, по видимому, даже эти самые Web Components не нужны! Так что если ничего, кроме формирования заголовка, вам от диаграммы не нужно, то можно просто написать подобный код и все будет работать!

Разумеется, если вам необходимо глубокое управление сводной диаграммой, то без веб-компонентов не обойтись, так как только с их наличием "разворачиваются" свойства и методы данного объекта.

Вот, пожалуй, и все, что я хотел сказать в рамках этой заметки. Успехов!