Middels Delphi dump ik een hoeveelheid data in een Excelsheet.
Hierin zitten een aantal tabbladen die aan de hand van de gedumpte data een grafiek tonen
Deze grafieken wordt daarna 1 voor 1 geselecteerd en via het klembord ineen Word document geplakt.
Sinds wij over zijn gegaan naar office365 werkt echter het TexcelApplication object niet meer.
Zodra je een office bestand opent krijg ik de error "Interface not supported".
Als oplossing hiervoor maken we nu gebruik van de onderstaand aanroep voor onze Excelapplicatie
Excel_app := CreateOleObject('Excel.Application');
Hierbij is Excel_app een OleVariant
Inmiddels is het grootste gedeelte van mijn code omgezet naar deze nieuwe methode
Echter bij het werken met grafiektabbladen gaat het mis.
Wel kan via Delphi de gewone tabbladen selecteren.
Het gaat dus om de volgende code die omgezet moet worden naar het OleObject
Code:
var graph : Texcelchart;
NameofChart:string;
for i := 1 to aantal do
begin
graph.ConnectTo(app.workbooks[1].charts[NameofChart] as _chart);
graph.select;
app.activechart.ChartArea[0].copy;
end;
Bookmarks