Advanced Excel Sparklines (Win/Loss) Chart VBA, C#, VB.Net example Win Loss Chart

Sparklines

are tiny charts inside single worksheet cells that can be used to visually represent and show a trend in your data. Sparklines can be used to show trends in your worksheet data which can be useful, especially when you’re sharing your data with other people.

Consider below data as source to create Win/Loss chart:

Select first row data as shown below figure 1.1
Click on Win/Loss button on Insert tab under Sparklines group as shown below figure 1.2
Select Location range where you want to see Win/Loss result as shown in figure 1.3

Finally the win/loss result is populated as below, same can be dragged down or copy pasted through below to get win/loss charts.

Lets put code around to automate the same. In this article we are using VSTO (Visual Studio Tools for office) in both flavors (C#, VB.Net) and VBA (Visual Basic for Applications) hence following prerequisites are recommended:

Prerequisites

Visual Studio 2015 or above having Microsoft Office for Developer Tool installed
Create Excel Addin in C# or VB code style (Visual Studio Tools for Office)
Excel 2010 or above
Create a ribbon designer and put button

C# code example

private void btnTrendLine_Click(object sender, RibbonControlEventArgs e)
{
    //Retain user selection
    excel.Range oRange = Globals.ThisAddIn.Application.Selection;

    if (oRange != null)
    {
        //Capture user response
        var userRange = Globals.ThisAddIn.Application.InputBox("Select range to create Sparkline:",
            "VBAOVERALL Range Selector", string.Empty, System.Reflection.Missing.Value,
            System.Reflection.Missing.Value, System.Reflection.Missing.Value, System.Reflection.Missing.Value, 8);
        
        //Cast user range
        if (userRange != null)
        {
            //Cast user response into valid Range object
            excel.Range sourceRange = (excel.Range) userRange;

            //Add Sparkline group
            excel.SparklineGroup oSparklineGroup=oRange.SparklineGroups.Add(excel.XlSparkType.xlSparkColumnStacked100, sourceRange.Address);
            //Add various property
            oSparklineGroup.SeriesColor.Color = 9592887;
            oSparklineGroup.SeriesColor.TintAndShade = 0;
            oSparklineGroup.Points.Negative.Color.Color = 208;
            oSparklineGroup.Points.Negative.Color.TintAndShade = 0;
            oSparklineGroup.Points.Markers.Color.Color = 208;
            oSparklineGroup.Points.Markers.Color.TintAndShade = 0;
            oSparklineGroup.Points.Highpoint.Color.Color = 208;
            oSparklineGroup.Points.Highpoint.Color.TintAndShade = 0;
            oSparklineGroup.Points.Lowpoint.Color.Color = 208;
            oSparklineGroup.Points.Lowpoint.Color.TintAndShade = 0;
            oSparklineGroup.Points.Firstpoint.Color.Color = 208;
            oSparklineGroup.Points.Firstpoint.Color.TintAndShade = 0;
            oSparklineGroup.Points.Lastpoint.Color.Color = 208;
            oSparklineGroup.Points.Lastpoint.Color.TintAndShade = 0;

            //Visible all points
            oSparklineGroup.Points.Highpoint.Visible = true;
            oSparklineGroup.Points.Lowpoint.Visible = true;
            oSparklineGroup.Points.Negative.Visible = true;
            oSparklineGroup.Points.Firstpoint.Visible = true;
            oSparklineGroup.Points.Lastpoint.Visible = true;
            oSparklineGroup.Points.Markers.Visible = true;
        }
    }
    else
    {
        MessageBox.Show(@"Select a valid range");
    }
}

VB.Net code example

Private Sub btnSparkLines_Click(sender As Object, e As RibbonControlEventArgs) Handles btnSparkLines.Click
    'Retain user selection
    Dim oRange As excel.Range
    oRange = Globals.ThisAddIn.Application.Selection

    'Capture user response
    dim userRange as Object
    userRange = Globals.ThisAddIn.Application.InputBox("Select range to create Sparkline:",
        "VBAOVERALL Range Selector", string.Empty, System.Reflection.Missing.Value,
        System.Reflection.Missing.Value, System.Reflection.Missing.Value, System.Reflection.Missing.Value, 8)

    If Not oRange Is Nothing Then
        'Cast user response into valid Range object
        Dim sourceRange As excel.Range
        sourceRange=CType(userRange,excel.Range)

        'Add Sparkline group
        Dim oSparklineGroup as excel.SparklineGroup
        oSparklineGroup=oRange.SparklineGroups.Add(excel.XlSparkType.xlSparkColumnStacked100, sourceRange.Address)

        'Add various property
        oSparklineGroup.SeriesColor.Color = 9592887
        oSparklineGroup.SeriesColor.TintAndShade = 0
        oSparklineGroup.Points.Negative.Color.Color = 208
        oSparklineGroup.Points.Negative.Color.TintAndShade = 0
        oSparklineGroup.Points.Markers.Color.Color = 208
        oSparklineGroup.Points.Markers.Color.TintAndShade = 0
        oSparklineGroup.Points.Highpoint.Color.Color = 208
        oSparklineGroup.Points.Highpoint.Color.TintAndShade = 0
        oSparklineGroup.Points.Lowpoint.Color.Color = 208
        oSparklineGroup.Points.Lowpoint.Color.TintAndShade = 0
        oSparklineGroup.Points.Firstpoint.Color.Color = 208
        oSparklineGroup.Points.Firstpoint.Color.TintAndShade = 0
        oSparklineGroup.Points.Lastpoint.Color.Color = 208
        oSparklineGroup.Points.Lastpoint.Color.TintAndShade = 0

        'Visible all points
        oSparklineGroup.Points.Highpoint.Visible = True
        oSparklineGroup.Points.Lowpoint.Visible = True
        oSparklineGroup.Points.Negative.Visible = True
        oSparklineGroup.Points.Firstpoint.Visible = True
        oSparklineGroup.Points.Lastpoint.Visible = True
        oSparklineGroup.Points.Markers.Visible = True
    Else
        MsgBox("Select a valid range") 
    End If
End Sub

VBA code example

Private Sub SparkLines()
    'Retain user selection
    Dim oRange As Range
    Set oRange = Selection

    'Capture user response
    Dim userRange As Range
    Set userRange = Application.InputBox(prompt:="Select Range", Title:="VBAOVERALL Range Selector", Type:=8)

    If Not oRange Is Nothing Then
        'Cast user response into valid Range object
        Dim sourceRange As Range
        Set sourceRange = userRange

        'Add Sparkline group
        Dim oSparklineGroup As SparklineGroup
        Set oSparklineGroup = oRange.SparklineGroups.Add(Excel.XlSparkType.xlSparkColumnStacked100, sourceRange.Address)

        'Add various property
        oSparklineGroup.SeriesColor.Color = 9592887
        oSparklineGroup.SeriesColor.TintAndShade = 0
        oSparklineGroup.Points.Negative.Color.Color = 208
        oSparklineGroup.Points.Negative.Color.TintAndShade = 0
        oSparklineGroup.Points.Markers.Color.Color = 208
        oSparklineGroup.Points.Markers.Color.TintAndShade = 0
        oSparklineGroup.Points.Highpoint.Color.Color = 208
        oSparklineGroup.Points.Highpoint.Color.TintAndShade = 0
        oSparklineGroup.Points.Lowpoint.Color.Color = 208
        oSparklineGroup.Points.Lowpoint.Color.TintAndShade = 0
        oSparklineGroup.Points.Firstpoint.Color.Color = 208
        oSparklineGroup.Points.Firstpoint.Color.TintAndShade = 0
        oSparklineGroup.Points.Lastpoint.Color.Color = 208
        oSparklineGroup.Points.Lastpoint.Color.TintAndShade = 0

        'Visible all points
        oSparklineGroup.Points.Highpoint.Visible = True
        oSparklineGroup.Points.Lowpoint.Visible = True
        oSparklineGroup.Points.Negative.Visible = True
        oSparklineGroup.Points.Firstpoint.Visible = True
        oSparklineGroup.Points.Lastpoint.Visible = True
        oSparklineGroup.Points.Markers.Visible = True
    Else
        MsgBox ("Select a valid range")
    End If
End Sub

Please leave your comments or queries under comment section also please do subscribe to out blogs to keep your self upto date.

Share on Facebook

VBA Basic and Advanced Questions and Answers

Basic Q&A Q. VBA stands for? Ans: Visual Basic for Applications Q. What is VBA? Ans: VBA (Visual Basic for Applications) is a scripting language. It can be used to automate most of the Microsoft Office Applications like Excel, Word, PowerPoint, MS Access, Outlook etc. Q. Types of available modules in VBA VBA contains four […]

Export Generic Collection to PDF ASP.Net Core MVC

PDF Sometime you may in need to export data in PDF. Following code will use Syncfusion Package and give you ready made Table pushed from Generic collection. Put below code in Repository Put below code in Controller JavaScript Code Finally you can attach id to an element in html and in JavaScript on Document ready […]

Export Excel ASP.Net Core MVC

Excel Export Following Example helps you to export excel from database in a generic way using EPPlus library. Requirement EPPlus Nuget Package Code to Repository Supporting Method Code to Controller Code to JavaScript JavaScript Supporting Method You can hit ExportToExcel() call in document ready method in JavaScript document by pointing any id written in HTML […]

Save/Retrieve Session ASP.Net Core MVC

Session Plays a vital role while dealing with caching in your browser. ASP.Net Core offers Session caching fast and reliable way. Here is the practical example. Put following code anywhere in common class or Repository, it has two methods Generic in nature Add/Get. Add Method will allow you to cache object in Browser memory and […]

Number List in Word Document using C# code example

Number List Microsoft Word offers feature by which you can auto number your list in various formats. In this article we will write code to dynamically generate a numbered list in a document using C#. C# Code example Note: You have to add Microsoft Word Interop library as reference to enable Using statement or create […]

Sorting in Microsoft Word using VBA (Visual Basic for Applications)

Sorting Do you know, Microsoft Word has capability to perform sorting over a document. In this article we will write code to sort paragraphs in Alphabetical order using visual basic for applications code. Before code Code example Put above code in a module, Select number of paragraphs that you would like to sort in A-Z […]

EPPlus Open Office Xml Office solution using C#

EPPlus Is an open Office XML solution, highly useful library capable to manipulate Microsoft Excel similar to Introp APIs. Why EPPlus? As per Microsoft the solutions (Excel, Word, PowerPoint, Outlook etc) built for client architecture but what about Servers? Let’s take an example that I have recently faced and EPPlus helped me a lot here. […]

String vs StringBuilder C#.Net with code example

String C# class which offers capability to store any type of string data into a variable. Strings are immutable (non-modifiable) cause performance overhead because each time we modify a string it creates a copy of modified instance into the memory, hence, as a practice string should be avoided for large string operations. Following is the […]

Var vs. Dynamic C# with code example

Var vs. Dynamic C# offers variety with flavors to accomplish the task to the developers. var keyword defines a static nature which gets resolve at compile-time introduced in C# 3.0 where dynamic gets resolved at runtime introduced in C# 4.0. Var is a statically type variable, which means values of these variables gets decoded at […]

Multi-threading in C#.Net with step by step code example

Multi-threading Is a concept to execute multiple tasks or process simultaneously. Basically multi-threading enables paths to your application to execute multiple processes. Multi-threading can be achieved in C# using System.Threading name space which provides complete control over threading. Let’s write example code where we will execute two different methods to print numbers using loop and […]

Advanced Excel Sparklines (Win/Loss) Chart VBA, C#, VB.Net example

Sparklines

Prerequisites

C# code example

VB.Net code example

VBA code example

Leave a Reply Cancel reply

Create a progress bar in Excel using VBA (Visual Basic for Applications)

Get Count of Cells based on Color Excel Add-in using VBA

Create your own salary slip in Excel with free Template

TRUNC Function or TRUNC Formula in Excel with example

Rank Function or Rank Formula in Excel with example

RSS feed

Subscribe to our articles