using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using Microsoft.Office.Tools.Ribbon;
using Microsoft.Office.Interop.Excel;
namespace ExcelAddIn1
{
public partial class Ribbon1
{
private void Ribbon1_Load(object sender, RibbonUIEventArgs e)
{
}
private void button1_Click(object sender, RibbonControlEventArgs e)
{
Worksheet currentSheet = Globals.ThisAddIn.Application.ActiveSheet;
var activeApp = Globals.ThisAddIn.Application;
int sRowCount = currentSheet.UsedRange.Rows.Count;
Range serialNumbers = currentSheet.Range["A2:A" + sRowCount];
Range dataCells = currentSheet.Range["B2:B" + sRowCount];
//Put the datacells into array
object[,] originalData;
originalData = dataCells.Value2;
int elementCount = 0;
double[] originalDataArr = new double[sRowCount - 1];
string[] serialNumberArr = new string[sRowCount - 1];
foreach (object element in originalData)
{
originalDataArr[elementCount] = Convert.ToDouble(element.ToString());
elementCount++;
}
elementCount = 0;
foreach (object element in serialNumbers)
{
serialNumberArr[elementCount] = Convert.ToString(element.ToString());
elementCount++;
}
double standardDev = (double)activeApp.WorksheetFunction.StDevP(dataCells.Cells);
double averageA = originalDataArr.Average();
double threeStd = 3 * standardDev;
//Put average and stddev into worksheet
string[] columnTitles = new[] { "Mean", "StdDev", "35tDev" };
string[] columnResults = new[] { averageA.ToString(), standardDev.ToString(), threeStd.ToString() };
for (int n = 0; n < columnTitles.Length; n++)
{
Range titleRange = currentSheet.Range["D" + (n + 3)];
titleRange.Value = columnTitles[n];
Range valueRange = currentSheet.Range["E" + (n + 3)];
valueRange.Value = columnResults[n];
}
Range borderStats = currentSheet.Range["D3:E" + (columnTitles.Length + 2)];
borderStats.BorderAround2(XlLineStyle.xlDouble, XlBorderWeight.xlMedium, XlColorIndex.xlColorIndexNone, XlThemeColor.xlThemeColorLight2);
//******************************************************
//add chart
Shape myChart = (Shape)currentSheet.Shapes.AddChart(XlChartType.xlLineMarkers, 275, 50, 400, 300);
myChart.Chart.SetSourceData(dataCells, Type.Missing);
var seriesOrig = (Series)myChart.Chart.SeriesCollection(1);
seriesOrig.XValues = serialNumbers;
seriesOrig.Name = "bogus number";
//change Title
myChart.Chart.HasTitle = true;
myChart.Chart.ChartTitle.Text = "Bogus cHART";
double diffMaxmin = originalDataArr.Max() - originalDataArr.Min();
Axis yAxis = (Axis)myChart.Chart.Axes(XlAxisType.xlValue, XlAxisGroup.xlPrimary);
yAxis.MinimumScale = originalDataArr.Min() - (.05 * diffMaxmin);
//Avergae
double[] meanArr = Enumerable.Repeat(averageA, sRowCount - 1).ToArray();
var extraSeries = (SeriesCollection)myChart.Chart.SeriesCollection();
var xbarSeries = extraSeries.NewSeries();
var threePosStd = extraSeries.NewSeries();
xbarSeries.MarkerStyle = XlMarkerStyle.xlMarkerStyleNone;
xbarSeries.Name = "average";
xbarSeries.Format.Line.Weight = 2.5F;
xbarSeries.Values = meanArr;
}
}
}