Форум программистов, компьютерный форум, киберфорум
C++/CLI
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
1 / 1 / 2
Регистрация: 27.11.2014
Сообщений: 13
1

Программно поменять местами значения абсцисс X графика в Excel на ординаты Y

02.02.2015, 11:39. Показов 2322. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Есть график в Excel, построенный программой с помощью Interop::Excel::_Chart::ChartWizard. Построение происходит по этому коду:
C++
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
27
28
29
30
31
32
33
34
35
36
Worksheet^wsOblDopPolet = static_cast<Worksheet^>(xlApp->Sheets->Add(t, posledniyList, t, t));
                //создаём новый лист в книге Excel
                ChartObjects^ chObjs = static_cast<ChartObjects^>(wsOblDopPolet->ChartObjects(t));
                ChartObject^chObj = chObjs->Add(3 * columnWidth, rowHeight, 9 * columnWidth, 
27 * rowHeight);
                Chart ^ graphOblDopPolet = chObj->Chart;
                //создаём график
                wsOblDopPolet->Name = "Область допустимых полётов";
                //меняем имя листа
 
                for (i = 0, j = 0, k = 0, p=0, wsOblDopPolet->Cells[1, 1] = "H", wsOblDopPolet->
Cells[1, 2] = "V_min", 
                    wsOblDopPolet->Cells[1, 3] = "V_max", wsOblDopPolet->Cells[1, 4] = "V_наив.";
                    //называем столбцы A, B, C, D именами значений, которые будут в них находиться
                    i < razmerMasOblDopPolet; i++, j++, k++, p++)
                {
                    wsOblDopPolet->Cells[i + 2, 1] = H_OblDopPolet[i] / 1000;
                    wsOblDopPolet->Cells[j + 2, 2] = V_min_OblDopPolet[i] * 3600 / 1000;
                    wsOblDopPolet->Cells[k + 2, 3] = V_max_OblDopPolet[i] * 3600 / 1000;    
                    wsOblDopPolet->Cells[p + 2, 4] = V_naiv_OblDopPolet[i] * 3600 / 1000;
                    //заполняем столбцы V_min, V_max, V_наив., H соответствующими значениями
                    stopp = i;
                    if (V_max_OblDopPolet[i] == V_min_OblDopPolet[i]) break;
                };
                
                graphOblDopPolet->ChartWizard(wsOblDopPolet->Range["A1", "D" + (stopp + 2)],
XlChartType::xlXYScatterSmoothNoMarkers, t, XlRowCol::xlColumns, 1, 1, true, 
"Область допустимых полётов самолёта", "V, км/ч", "H, км", t);
                //создаём график с областью построения A1::D(stopp+2); тип графика - точечная 
//с гладкими кривыми, значения для графика 
                //расположены в столбцах, а не строках; показываем легенду в графике; 
//называем его "Область допустимых полётов самолёта";
                //Называем горизонтальную ось "V, км/ч", вертикальную - "H, км"
                graphOblDopPolet->Location(XlChartLocation::xlLocationAsObject, 
"Область допустимых полётов");
                //размещаем график на созданном листе
в результате получается график с 3-мя кривыми (результат во вложенном файле Excel). Как мне программно поменять местами значения абсцисс X графика в Excel на ординаты Y? Т.е. чтобы строилась функции не Y(X), а X(Y)? "Руками" в Excele это делается просто: Кликаем на диаграмму->Фильтры диаграммы->Выбрать данные->Выбираем нужный график->Изменить...->И выделяем столбцы значений в книге, какие хотим, для X и Y. А как это сделать программно?
Вложения
Тип файла: xlsx Книга1.xlsx (12.6 Кб, 5 просмотров)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.02.2015, 11:39
Ответы с готовыми решениями:

Вычисление абсциссы, ординаты и графика параболы
Здравствуйте, у меня есть программа, в которой рисуется график параболы. Помогите, пожалуйста, в...

Программно поменять местами гнёзда на звуковой карте ноутбука (вход и выход)
Что-то в гнезде для наушников разболталось и, вследствие, перестало работать стерео. Звук- только в...

Можно ли создать в Excel новый, свой Тип графика программно или както еще?
Можно ли создать в Excel новый, свой Тип графика программно или как-то еще? Не всегда все можно...

Поменять местами строки в таблице Excel
Здравствуйте! Подскажите, пожалуйста, как можно поменят местами строки?

1
1 / 1 / 2
Регистрация: 27.11.2014
Сообщений: 13
09.10.2015, 22:08  [ТС] 2
Лучший ответ Сообщение было отмечено tezaurismosis как решение

Решение

Решение - это можно сделать через позднее связывание. Добавляем вначале
C++
1
using namespace System::Reflection;
И затем пишем функцию, делающую желаемое. Она принимает аргументы: "Range^Xrange", "Range^Yrange" (соответственно области с ячейками для X и Y) и "Object^seriesCollection" - его можно получить, вызвав метод "SeriesCollection(n)" (где n - порядковый номер кривой на графике, т.е. в моём случаем n может быть равен 1,2 или 3) у объекта типа "Chart^", т.е. вот так:
C++
1
2
Chart^graph;
graph->SeriesCollection(1);
Далее решение видно из листинга:
C++
1
2
3
4
5
6
7
8
static void choozeGraphValues(Object^seriesCollection, Range^Xrange, Range^Yrange)
{
    seriesCollection->GetType()->
        InvokeMember("XValues", BindingFlags::SetProperty, nullptr, seriesCollection, gcnew array<Object^>(1){ Xrange });
    
    seriesCollection->GetType()->
        InvokeMember("Values", BindingFlags::SetProperty, nullptr, seriesCollection, gcnew array<Object^>(1){ Yrange });
}
1
09.10.2015, 22:08
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.10.2015, 22:08
Помогаю со студенческими работами здесь

Поменять местами значения x, y, z
у МЕНЯ такой вопрос Поменять местами значения x,y,z чтоб x принял значение y y принял значение z...

Точка пересечения графика с осью абсцисс
Как вывести точку пересечения графика с осью абсцисс. Или значение при нуле. Заранее спасибо.

Поменять местами строки или столбцы в Excel
Я написал программу по обмену значений по строке, по столбцу и по диагонали Нужно написать другую...

Значения переменных X,Y,Z поменять местами
Значения переменных X,Y,Z поменять местами так, что бы они оказались упорядоченными по возрастанию


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru