Нельзя установить MaximumScale (постороение диаграммы из скрипта)

@kirvad · Регистрация: 18.05.2010

Студворк — интернет-сервис помощи студентам

Люди, чо за беда, дает ошибку:

Нельзя установить свойство MaximumScale класса Axis.
в строчке кода:
.Axes(xlValue, xlPrimary).MaximumScale = dblMaxScale

код здесь:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub AddChart(objActiveSheet As Object, dblMaxScale As Double, dblMinScale As Double, ByRef objChart As Chart)
    Dim nSerCount As Integer
    
    Charts.Add After:=objActiveSheet
    Charts(Charts.Count).Name = 'Test'
    Set objChart = Charts('Test')
    On Error Resume Next
    With objChart
        '.HasTitle = True
        '.ChartTitle.Text = 'Áþäæåò'
        .ChartType = xlColumnClustered
        .Axes(xlValue, xlPrimary).MaximumScale = dblMaxScale
        '.Axes(xlValue, xlPrimary).MinimumScale = dblMinScale
        .HasLegend = True
    End With
    
    If Err.Number <> 0 Then
        MsgBox Err.Description
        Err.Clear
    End If
 
    nSerCount = objChart.SeriesCollection.Count
    If nSerCount > 0 Then
        objChart.SeriesCollection.Item(1).Delete
    End If
End Sub

на закомментированные строки тоже дает ошибку...

(

@SlavaRus · 21.06.2010, 18:04

А где у тебя присвоение значений для построения графика?

@SlavaRus · 21.06.2010, 18:05

А где у тебя присвоение значений для построения графика?

@SlavaRus · 21.06.2010, 18:06

А где присвоение значений для построения диаграммы?

@SlavaRus · 22.06.2010, 09:14

Explorer выдавал ошибку, я думал что ничего не посылает. Проблема с графиком решилась?

@SlavaRus · 22.06.2010, 13:13

С xlColumnClustered рулить нужно примерно так:

Sub AddChart(ByVal dblMinScale As Double, ByVal dblMaxScale As Double, VarArray As Variant)
Charts.Add After:=ActiveSheet
With ActiveChart
.Name = 'Test'
.SeriesCollection.NewSeries
.HasTitle = True
.ChartTitle.Text = 'Проба графика'
.ChartType = xlColumnClustered
.SeriesCollection(1).Values = VarArray
.Axes(xlValue).MinimumScale = dblMinScale
.Axes(xlValue).MaximumScale = dblMaxScale
.HasLegend = True
End With
End Sub

Public Sub TestChart()
AddChart 4, 10, Array(5, 6, 7, 8, 9)
End Sub

И еще исправь обработчик ошибок.
Удачи!!! :-))

@kirvad · 23.06.2010, 11:03 **[ТС]**

короче эта ошибка то есть то нет и я просто не понимаю от чего это зависит!!!
такое ощущение, что ChartObject просто лочится чем-то и некоторые св-ва нельзя поменять.

весь код слишком большой(там создание графиков для нескольких Sheets, копирование в новую книгу без макросов, отсылка новой по мылу и т.д.), может мыло дашь я те пошлю, глянешь для интереса %)

еще одна проблема появилась, даже 2:

1. при копировании в новую книгу листов, на которых есть графики, они копируются криво, т.е. например вместо месяцев по оси Х пишутся просто цифры от 1 до 12, или появляются по 1-ой лишней серии на графике.

2. создаются какие-то связи. До копирования без графиков этого не было. можно ли при копировании как-то связи удалять?
я так понимаю 1-ый и 2-ой вопросы связаны, то бишь кривизна копирования зависит от этих связей видимо...
не хочется сначала копировать, потом вырезать график, потом копировать отдельно график...

@SlavaRus · 23.06.2010, 12:41

Намыль книгу, я гляну. Но не обещаю, чт быстро-работы много.
RussVP@inbox.ru

@kirvad · 23.06.2010, 17:57 **[ТС]**

To: SlavaRus

вроде намылил, будет время, глянь плиз, может чо придет в голову???

@SlavaRus · 24.06.2010, 14:39

Файл пришел битый, в нем нет VBA проекта.Намыль еще раз.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	21.06.2010, 18:04
	А где у тебя присвоение значений для построения графика? 0

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	21.06.2010, 18:05
	А где у тебя присвоение значений для построения графика? 0

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	21.06.2010, 18:06
	А где присвоение значений для построения диаграммы? 0

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	22.06.2010, 09:14
	Explorer выдавал ошибку, я думал что ничего не посылает. Проблема с графиком решилась? 0

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	22.06.2010, 13:13
	С xlColumnClustered рулить нужно примерно так: Sub AddChart(ByVal dblMinScale As Double, ByVal dblMaxScale As Double, VarArray As Variant) Charts.Add After:=ActiveSheet With ActiveChart .Name = 'Test' .SeriesCollection.NewSeries .HasTitle = True .ChartTitle.Text = 'Проба графика' .ChartType = xlColumnClustered .SeriesCollection(1).Values = VarArray .Axes(xlValue).MinimumScale = dblMinScale .Axes(xlValue).MaximumScale = dblMaxScale .HasLegend = True End With End Sub Public Sub TestChart() AddChart 4, 10, Array(5, 6, 7, 8, 9) End Sub И еще исправь обработчик ошибок. Удачи!!! :-)) 0

@kirvad 0 / 0 / 0 Регистрация: 18.05.2010 Сообщений: 17
	23.06.2010, 11:03 [ТС]
	короче эта ошибка то есть то нет и я просто не понимаю от чего это зависит!!! такое ощущение, что ChartObject просто лочится чем-то и некоторые св-ва нельзя поменять. весь код слишком большой(там создание графиков для нескольких Sheets, копирование в новую книгу без макросов, отсылка новой по мылу и т.д.), может мыло дашь я те пошлю, глянешь для интереса %) еще одна проблема появилась, даже 2: 1. при копировании в новую книгу листов, на которых есть графики, они копируются криво, т.е. например вместо месяцев по оси Х пишутся просто цифры от 1 до 12, или появляются по 1-ой лишней серии на графике. 2. создаются какие-то связи. До копирования без графиков этого не было. можно ли при копировании как-то связи удалять? я так понимаю 1-ый и 2-ой вопросы связаны, то бишь кривизна копирования зависит от этих связей видимо... не хочется сначала копировать, потом вырезать график, потом копировать отдельно график... 0

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	23.06.2010, 12:41
	Намыль книгу, я гляну. Но не обещаю, чт быстро-работы много. RussVP@inbox.ru 0

@kirvad 0 / 0 / 0 Регистрация: 18.05.2010 Сообщений: 17
	23.06.2010, 17:57 [ТС]
	To: SlavaRus вроде намылил, будет время, глянь плиз, может чо придет в голову??? 0

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	24.06.2010, 14:39
	Файл пришел битый, в нем нет VBA проекта.Намыль еще раз. 0