Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/48: Рейтинг темы: голосов - 48, средняя оценка - 4.63
90 / 20 / 2
Регистрация: 28.02.2011
Сообщений: 54
1

Программное изменение параметров шкалы оси

23.01.2013, 17:12. Показов 9545. Ответов 5
Метки нет (Все метки)

Подскажите, как программно указать минимальное, максимальное значение и цену деления для оси "Y"?
Задача стоит так: вводятся исходные значения, по которым рассчитываются 2 показателя (a, X). В итоге в графике максимальным значением по оси Y должно быть X+3*a; минимальным - X-3*a, цена деления - a.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.01.2013, 17:12
Ответы с готовыми решениями:

Программное изменение параметров шрифта текста
как программно изменить такие параметры текста в textBox'е: Name, Bold, Italic, Size?

Вывод шкалы оси X в увеличенном масштабе
как вывести на шкале по оси X символы 1,2,3,4,5,6 если за единицу принимается 68 точек. у меня...

программа должна переводить температуру в другие шкалы и шкалы выбирает юзер но что то не работает
#include <stdio.h> int main() { char inputType; double vveditechislo; double...

Изменение положения подписей шкалы точек в обычной диаграмме
Здравствуйте! Есть следующая задача: отобразить две диаграммы - одна с положительными, другая с...

__________________
5
15018 / 6346 / 1725
Регистрация: 24.09.2011
Сообщений: 9,976
23.01.2013, 19:59 2
Постройте какой-нибудь график. Включите запись макроса, поменяйте параметры оси, остановите запись, посмотрите, что получилось.
1
90 / 20 / 2
Регистрация: 28.02.2011
Сообщений: 54
24.01.2013, 09:34  [ТС] 3
Я записала макрос, но, к сожалению, он не запускается. Выдает ошибку на первой же строчке кода:
ActiveSheet.ChartObjects("Диагр. 1").Activate - Невозможно получить свойство ChartObjects класса Worksheet
0
1250 / 408 / 52
Регистрация: 14.06.2009
Сообщений: 629
24.01.2013, 15:25 4
Такой вариант.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Sub test()
Dim chrtObj As ChartObject, a, X
    
a = ActiveSheet.Range("F2").Value
X = ActiveSheet.Range("F3").Value
    
For Each chrtObj In ActiveSheet.ChartObjects
    If chrtObj.Name = "MyChart" Then chrtObj.Delete
Next
    
Set chrtObj = ActiveSheet.ChartObjects.Add(250, 140, 400, 250)
chrtObj.Name = "MyChart"
chrtObj.Chart.ChartType = xlLine
chrtObj.Chart.SeriesCollection.Add (ActiveSheet.Range("B2:B6"))
 
chrtObj.Chart.Axes(xlValue).MajorUnit = a
chrtObj.Chart.Axes(xlValue).MinimumScale = X - 3 * a
chrtObj.Chart.Axes(xlValue).MaximumScale = X + 3 * a
 
End Sub
1
Вложения
Тип файла: xls Программное изменение параметров шкалы оси.xls (38.0 Кб, 99 просмотров)
0 / 0 / 0
Регистрация: 04.04.2016
Сообщений: 1
06.04.2016, 12:10 5
Может не совсем в тему, но может подскажете...

А как сделать тоже, но с осью "Х"?

Т.е. как настроить для оси "Х" шаг и включить для каждого значения линию сетки (вертикальные линии)?
0
1250 / 408 / 52
Регистрация: 14.06.2009
Сообщений: 629
09.04.2016, 02:40 6
Цитата Сообщение от konung1980 Посмотреть сообщение
А как сделать тоже, но с осью "Х"?
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
Dim chrtObj As ChartObject, a, X
    
a = ActiveSheet.Range("F2").Value
X = ActiveSheet.Range("F3").Value
    
For Each chrtObj In ActiveSheet.ChartObjects
    If chrtObj.Name = "MyChart" Then chrtObj.Delete
Next
    
Set chrtObj = ActiveSheet.ChartObjects.Add(250, 140, 400, 250)
chrtObj.Name = "MyChart"
chrtObj.Chart.ChartType = xlXYScatterLinesNoMarkers
chrtObj.Chart.SeriesCollection.Add (ActiveSheet.Range("B2:B6"))
 
chrtObj.Chart.Axes(xlCategory).MajorUnit = a
chrtObj.Chart.Axes(xlCategory).MinimumScale = X - 3 * a
chrtObj.Chart.Axes(xlCategory).MaximumScale = X + 3 * a
 
 
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2016, 02:40

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Программное получение параметров процедуры
Есть ли какой-то способ программно получить список параметров конкретной процедуры? Как-то из...

Программное объявление параметров ADOQuery
Компилятор ругается на банальный код все перепробовал, раньше не было проблем с параметрами. Выдает...

TableLayoutPanel программное задание параметров
Подскажите почему не меняются первая строка и столбец по ширине и длине? ...

Программное определение параметров ADO-соединения
Какими средствами можно в приложении работающем с БД через ADO сделать гибкую настройку на источник...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.