Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.03.2013, 17:17   #1
Nicolas_46
Пользователь
 
Регистрация: 13.09.2012
Сообщений: 53
По умолчанию Атоматическая корректировка осей диаграммы

Доброго времени суток, уважаеммые коллеги.

Не могу справится со следующей задачей:

У меня на листе, по табличным данным постоено 23 диаграммы. Диапозоны, в которых лежат значения для построения могут меняться. Как сделать чтобы Min и Max параметры осей автоматически менялись в соответствии с диапозонами значений для построения.

пробовал реализовать вот таким способом:

Код:
Sub Korectirovka_D()

      Dim ValuesArray(), SeriesValues As Variant
      Dim Ctr As Integer, TotCtr As Integer
      
      With ActiveSheet.ChartObjects(1).Chart
      
         For Each X In .SeriesCollection
            SeriesValues = X.Values
            ReDim Preserve ValuesArray(1 To TotCtr + UBound(SeriesValues))
            For Ctr = 1 To UBound(SeriesValues)
               ValuesArray(Ctr + TotCtr) = SeriesValues(Ctr)
               
            Next
            TotCtr = TotCtr + UBound(SeriesValues)
         Next
         
         .Axes(xlValue).MinimumScaleIsAuto = True
         .Axes(xlValue).MaximumScaleIsAuto = True
         .Axes(xlValue).MinimumScale = Application.Min(ValuesArray)
         .Axes(xlValue).MaximumScale = Application.Max(ValuesArray)
      End With
End Sub
но форматируется, как надо, только ось У первой диаграммы. Как сделать чтобы ось X тоже форматировалась и макрос действовал на все диаграммы листа.

Помогите исправить макрос пожалуйста, заранее спасибо!

Последний раз редактировалось Nicolas_46; 04.03.2013 в 17:22.
Nicolas_46 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Несколько осей ординат в TChart. A-IX-2 Общие вопросы Delphi 2 12.05.2011 18:49
Сдвиг осей в chart delphi2007 Koller Помощь студентам 2 01.04.2011 11:34
Построение осей координат lordseko Помощь студентам 4 21.12.2010 06:12
TeeChart Pro 8 : Надписи для осей Mikhail-66 Компоненты Delphi 1 15.01.2010 15:07
Разметка координатных осей LLIypLLIyH Помощь студентам 1 20.06.2008 22:19