Hi Walter

Yes we are creating the code on the fly and it has to work for Office
XP/2003.
On a pc with Office 2007 it works perfect. we cant see what we are doing
wrong for office xp and 2003...

Thanks for looking into it!

jahrens

Here is our code (C#):

using System;
using System.Collections;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using Microsoft.Office.Interop.Excel;
using Microsoft.Office.Core;
using System.Reflection;

namespace WindowsApplication2
{
   public partial class Form1 : Form
   {
       private ApplicationClass excelApp;
       private Workbook wBook;
       private Worksheet wSheetPDC;
       private System.Globalization.CultureInfo originalCulture;
       private System.Globalization.CultureInfo englishCulture = new
System.Globalization.CultureInfo("en-US");

       public Form1()
       {
           InitializeComponent();
       }

       private void button1_Click(object sender, EventArgs e)
       {
           originalCulture =
System.Threading.Thread.CurrentThread.CurrentCulture;
           System.Threading.Thread.CurrentThread.CurrentCulture =
englishCulture;
           excelApp = new
Microsoft.Office.Interop.Excel.ApplicationClass();
           excelApp.IgnoreRemoteRequests = true;
           excelApp.WindowState = XlWindowState.xlMinimized;
           excelApp.Visible = false;
           excelApp.UserControl = false;

           wBook = excelApp.Workbooks.Add(System.Reflection.Missing.Value);
           wSheetPDC = (Worksheet)wBook.Sheets[1];

           //Get ranges
           Range range = wSheetPDC.get_Range(wSheetPDC.Cells[1, 1],
wSheetPDC.Cells[100, 3]);

           //Get value objects
           Object[,] values = (Object[,])range.Value2;

           Random r = new Random((int)DateTime.Now.Ticks);

           for (int i = 0; i < 100; i++)
           {

               values[i + 1, 1] = i;
               values[i + 1, 2] = r.Next();
               values[i + 1, 3] = r.Next();
           }

           range.Value2 = values;

           //Create chart
           ChartObjects charts =
(ChartObjects)wSheetPDC.ChartObjects(Type.Missing);
           ChartObject chartObj = charts.Add(100, 100, 700, 500);
           Chart chart = chartObj.Chart;
           chart.ChartArea.AutoScaleFont = false;

           //Get series 1
           Series series =
((SeriesCollection)chart.SeriesCollection(Missing.Value)).NewSeries();

           //Set chart type
           series.ChartType = XlChartType.xlXYScatterLines;

           //Set Values
           series.XValues = range.get_Range(range[1, 1], range[100, 1]);
           series.Values = range.get_Range(range[1, 2], range[100, 2]);
           series.Name = "Some data";
           series.Border.ColorIndex = 45;
           series.Border.Weight = XlBorderWeight.xlThin;
           series.Border.LineStyle = XlLineStyle.xlContinuous;
           if (series.Border.Color is double)
           {
               series.MarkerBackgroundColor =
(int)(double)series.Border.Color;
               series.MarkerForegroundColor =
(int)(double)series.Border.Color;
           }
           else
           {
               series.MarkerBackgroundColor = (int)series.Border.Color;
               series.MarkerForegroundColor = (int)series.Border.Color;
           }
           series.MarkerStyle = XlMarkerStyle.xlMarkerStyleDiamond;

           //Get series 2
           series =
((SeriesCollection)chart.SeriesCollection(Missing.Value)).NewSeries();

           //Set chart type
           series.ChartType = XlChartType.xlXYScatterLines;

           //Set Values
           series.XValues = range.get_Range(range[1, 1], range[100, 1]);
           series.Values = range.get_Range(range[1, 3], range[100, 3]);
           series.Name = "Some data";
           series.Border.ColorIndex = 23;
           series.Border.Weight = XlBorderWeight.xlThin;
           series.Border.LineStyle = XlLineStyle.xlContinuous;
           if (series.Border.Color is double)
           {
               series.MarkerBackgroundColor =
(int)(double)series.Border.Color;
               series.MarkerForegroundColor =
(int)(double)series.Border.Color;
           }
           else
           {
               series.MarkerBackgroundColor = (int)series.Border.Color;
               series.MarkerForegroundColor = (int)series.Border.Color;
           }
           series.MarkerStyle = XlMarkerStyle.xlMarkerStyleDiamond;

           //Set Title
           chart.HasTitle = true;
           chart.ChartTitle.Font.Size = 10.0;
           chart.ChartTitle.Text = "Chart Title";

           //Set Legend to false
           chart.HasLegend = false;

           //Set Axis and other stuff

           //Set xAxis
           Axis xAxis = (Axis)chart.Axes(XlAxisType.xlCategory,
XlAxisGroup.xlPrimary);
           xAxis.HasTitle = true;
           xAxis.AxisTitle.Text = "Some x Axis";
           xAxis.AxisTitle.Font.Size = 8;
           xAxis.TickLabels.Font.Size = 8;
           xAxis.MaximumScale = 100;
           xAxis.MinimumScale = 0.0;
           xAxis.HasMajorGridlines = true;

           //Set yAxis
           Axis yAxis = (Axis)chart.Axes(XlAxisType.xlValue,
XlAxisGroup.xlPrimary);
           yAxis.HasTitle = true;
           yAxis.AxisTitle.Text = "Some y Axis";
           yAxis.AxisTitle.Font.Size = 9;
           yAxis.TickLabels.Font.Size = 8;

           chart.CopyPicture(XlPictureAppearance.xlScreen,
XlCopyPictureFormat.xlBitmap, XlPictureAppearance.xlScreen);

           ReleaseComObject(series);
           series = null;

           ReleaseComObject(xAxis);
           xAxis = null;

           ReleaseComObject(yAxis);
           yAxis = null;

           ReleaseComObject(charts);
           charts = null;

           ReleaseComObject(chartObj);
           chartObj = null;

           ReleaseComObject(wSheetPDC);
           wSheetPDC = null;

           wBook.Close(false, Missing.Value, Missing.Value);
           ReleaseComObject(wBook);
           wBook = null;

           excelApp.IgnoreRemoteRequests = false;
           excelApp.UserControl = true;
           excelApp.Quit();
           ReleaseComObject(excelApp);
           excelApp = null;

           System.Threading.Thread.CurrentThread.CurrentCulture =
originalCulture;
       }

       private void ReleaseComObject(Object o)
       {
           if (o == null)
               return;

           try
           {
               while
(System.Runtime.InteropServices.Marshal.ReleaseComObject(o) != 0) ;
           }
           catch (Exception ex)
           {
               System.Diagnostics.Debug.WriteLine(ex.ToString());
           }
       }
   }
}