I want to export some WL-data together with a graphics generated from that data to MS-Excel (.XLSX). Unfortunately I cannot find the proper syntax for exporting the graphics.
aTable = Table[{x, x^2}, {x, 10}];
aGraphics = ListPlot[aTable];
Export["exported_tmp.xlsx", {{
"Data" -> Join[{{"The Data"}}, {{"x", "y"}}, aTable],
"Plot1" -> Join[{{"The Plot Directly From aGraphics"}}, {{aGraphics}}],
"Plot3" -> Join[{{"The Plot From ExportForm PDF"}}, {{ExportForm[aGraphics, "PDF"]}}],
"Plot4" -> Join[{{"The Plot From ExportForm JPEG"}}, {{ExportForm[aGraphics,"JPEG"]}}]
}}, {{"Sheets"}}
];
In all cases the graphics does not appear as an image within Excel, but just as a string.
If I export as an Image like "Plot2" -> Join[{{"The Plot From Image"}}, {{Image[aGraphics]}}] the Excel-File gets even corrupted.
I know, it should be easy to solve that issue, but I was not able for a day or two to get it right.
Attachments: