Ausgabe von Werten auf der Sekundärachse eines Excel-Graphe

WICHTIG: Der Betrieb von goMatlab.de wird privat finanziert fortgesetzt. - Mehr Infos...

Partner:

Forum

Option

[Erweitert]

• Diese Seite per Mail weiterempfehlen

Gehe zu:

goro

Forum-Newbie


	Beiträge: 1

	Anmeldedatum: 25.01.15

	Wohnort: ---

	Version: ---

Verfasst am: 25.01.2015, 23:41 Titel: Ausgabe von Werten auf der Sekundärachse eines Excel-Graphe

Hallo liebe Community,

in der Programmierwelt bin ich noch neu und versuche mithilfe von Matlab den Umgang mit vielen Excel-Files zu erleichtern. Meine Aufgabe ist es viele Dateien in einem Ordner zu öffnen und in jede von ihnen einen Graphen zu erstellen. Mit einer Schleife und dem folgenden Code klappt es wunderbar:

Code:

Excel = actxserver('Excel.Application');
ResultFile = [pwd '\ResultFile.xls'];
Workbook = invoke(Excel.Workbooks,'Open', ResultFile);
set(Excel,'Visible',1);
Chart = Excel.ActiveSheet.Shapes.AddChart;
%Let us Rename this chart to 'ExperimentChart'
Chart.Name = 'ExperimentChart';
%% Delete Default Entries
% Let us delete all the entries in the chart generated by defalut

ExpChart = Excel.ActiveSheet.ChartObjects('ExperimentChart');
ExpChart.Activate;
try
Series = invoke(Excel.ActiveChart,'SeriesCollection',1);
invoke(Series,'Delete');
Series = invoke(Excel.ActiveChart,'SeriesCollection',1);
invoke(Series,'Delete');
Series = invoke(Excel.ActiveChart,'SeriesCollection',1);
invoke(Series,'Delete');
catch e
end

%We are left with an empty chart now.
%Insert a Chart for Column B
NewSeries = invoke(Excel.ActiveChart.SeriesCollection,'NewSeries');
NewSeries.XValues = ['=' resultsheet '!A' int2str(2) ':A' int2str(16)];
NewSeries.Values = ['=' resultsheet '!B' int2str(2) ':B' int2str(16)];
NewSeries.Name = ['=' resultsheet '!B' int2str(1) ];

%Insert a Chart for Column C
NewSeries = invoke(Excel.ActiveChart.SeriesCollection,'NewSeries');
NewSeries.XValues = ['=' resultsheet '!A' int2str(2) ':A' int2str(16)];
NewSeries.Values = ['=' resultsheet '!C' int2str(2) ':C' int2str(16)];
NewSeries.Name = ['=' resultsheet '!C' int2str(1) ];

Excel.ActiveChart.ChartType = 'xlXYScatterLinesNoMarkers';

% Set the x-axis
Axes = invoke(Excel.ActiveChart,'Axes',1);
set(Axes,'HasTitle',1);
set(Axes.AxisTitle,'Caption','Experiment')

% Set the y-axis
Axes = invoke(Excel.ActiveChart,'Axes',2);
set(Axes,'HasTitle',1);
set(Axes.AxisTitle,'Caption','Results')

%Give the Chart a title
Excel.ActiveChart.HasTitle = 1;
Excel.ActiveChart.ChartTitle.Characters.Text = 'Result vs Experiment';

%% Chart Placement
Location = [ xlcolumn(2) int2str(20) ];
GetPlacement = get(Excel.ActiveSheet,'Range', Location);

% Resize the Chart

ExpChart.Width = 400;
ExpChart.Height= 250;
ExpChart.Left = GetPlacement.Left;
ExpChart.Top = GetPlacement.Top;

invoke(Excel.ActiveWorkbook,'Save');
Excel.Quit;
Excel.delete;
clear Excel;

Funktion ohne Link?

Leider bekomme ich es nicht hin, die Werte in der Spalte C auf der sekundären Achse auszugeben.
Ich hoffe ihr könnt mir dabei helfen Smile


Einstellungen und Berechtigungen
Beiträge der letzten Zeit anzeigen:	Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum posten Du kannst Dateien in diesem Forum herunterladen

Impressum | Nutzungsbedingungen | Datenschutz | FAQ |

RSS

Hosted by:

Copyright © 2007 - 2025 goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks

MATLAB, Simulink, Stateflow, Handle Graphics, Real-Time Workshop, SimBiology, SimHydraulics, SimEvents, and xPC TargetBox are registered trademarks and The MathWorks, the L-shaped membrane logo, and Embedded MATLAB are trademarks of The MathWorks, Inc.