PowerShell - Charting

Published: 30 March 2021
on channel: Mr Automation

617

(How to create reports based on CSV file with powershell and .NET libraries)
In this video I demonstrate how you can create reports based on excel input. This video s an extension on another video about creating beautifull reports with powershell.

*powershell
*learn powershell
*create reports
*pyramid chart
*doughnut chart

Code :

#region normal functions
#function for save to PNG file, not needed, only if you click the save button its called
Function Invoke-SaveDialog {
$FileTypes = [enum]::GetNames('System.Windows.Forms.DataVisualization.Charting.ChartImageFormat')| ForEach {
$_.Insert(0,'*.')
}
$SaveFileDlg = New-Object System.Windows.Forms.SaveFileDialog
$SaveFileDlg.DefaultExt='PNG'
$SaveFileDlg.Filter=";Image Files ($($FileTypes))|$($FileTypes)|All Files (*.*)|*.*";
$return = $SaveFileDlg.ShowDialog()
If ($Return -eq 'OK') {
[pscustomobject]@{
FileName = $SaveFileDlg.FileName
Extension = $SaveFileDlg.FileName -replace '.*\.(.*)','$1'
}

}
}

function ItemsToHash($items){
$hash = @{}
foreach ($item in $items){
$hash.Add([string]($item.name), $item.Count)
}
return $hash
}
#endregion

#region special functions
function displaychart {
param(
[Parameter(Mandatory)][hashtable]$items,
[Parameter(Mandatory)][string]$title,
[Parameter(Mandatory)][ValidateSet("doughnut","pyramid")][string]$chart_type
)

#we need keys and values here
$Chart = New-object System.Windows.Forms.DataVisualization.Charting.Chart
$ChartArea = New-Object System.Windows.Forms.DataVisualization.Charting.ChartArea
$Series = New-Object -TypeName System.Windows.Forms.DataVisualization.Charting.Series
$ChartTypes = [System.Windows.Forms.DataVisualization.Charting.SeriesChartType]

$Series.ChartType = $ChartTypes::$chart_type #play with this value to change the looks
$Chart.Series.Add($Series)
$Chart.ChartAreas.Add($ChartArea)

#HERE YOU ADD YOUR DATA TO THE CHART!!!!!!!!!!!!!!!
$Chart.Series['Series1'].Points.DataBindXY($items.Keys, $items.Values)
#$Chart.Series['Series1'].Points.DataBindXY($Processes.Name, $Processes.WS)

$Chart.Width = 700
$Chart.Height = 400
$Chart.Left = 10
$Chart.Top = 10
$Chart.BackColor = [System.Drawing.Color]::LightGray
$Chart.BorderColor = [System.Drawing.Color]::BlueViolet
#$Chart.BorderColor = 'Blue'
$Chart.BorderWidth = 3
$Chart.BorderDashStyle = 'Solid'
$ChartTitle = New-Object System.Windows.Forms.DataVisualization.Charting.Title
$ChartTitle.Text = $title
$Font = New-Object System.Drawing.Font @('Microsoft Sans Serif','12', [System.Drawing.FontStyle]::Italic)
$ChartTitle.Font = $Font
$ChartTitle.ForeColor = [System.Drawing.Color]::Black
$Chart.Titles.Add($ChartTitle)
$Legend = New-Object System.Windows.Forms.DataVisualization.Charting.Legend
$Legend.IsEquallySpacedItems = $True
$Legend.BorderColor = 'Green'
$Legend.BorderWidth = 2

$Chart.Legends.Add($Legend)

$Chart.Series['Series1']['PieLineColor'] = 'Black'
$Chart.Series['Series1']['PieLabelStyle'] = 'Outside'
$Chart.Series['Series1'].Label = "#VALX (#VALY)"

#region Windows Form to Display Chart
$AnchorAll = [System.Windows.Forms.AnchorStyles]::Bottom -bor [System.Windows.Forms.AnchorStyles]::Right -bor
[System.Windows.Forms.AnchorStyles]::Top -bor [System.Windows.Forms.AnchorStyles]::Left
$Form = New-Object Windows.Forms.Form
$Form.Width = 740
$Form.Height = 490

$Form.controls.add($Chart)
$Chart.Anchor = $AnchorAll
#endregion

#region save button
$SaveButton = New-Object Windows.Forms.Button
$SaveButton.Text = "Save"
$SaveButton.Top = 420
$SaveButton.Left = 600
$SaveButton.Anchor = [System.Windows.Forms.AnchorStyles]::Bottom -bor [System.Windows.Forms.AnchorStyles]::Right
[enum]::GetNames('System.Windows.Forms.DataVisualization.Charting.ChartImageFormat')
$SaveButton.add_click({
$Result = Invoke-SaveDialog
If ($Result) {
$Chart.SaveImage($Result.FileName, $Result.Extension)
}
})
#endregion

#region display form and add save button to form control
$Form.controls.add($SaveButton)
$Form.Add_Shown({$Form.Activate()})

[void]$Form.ShowDialog()

#endregion
}
#endregion

Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Windows.Forms.DataVisualization

$CWD = Split-Path $MyInvocation.MyCommand.Definition

$countries = import-csv "$CWD\testest.csv"

#Doughnut based on CSV
$title = "Country Dougnut"
$newvalues2 = ItemsToHash -items $countries
displaychart -items $newvalues2 -title $title -chart_type doughnut

#Pyramid based on CSV
$title = "Country Pyramid"
$newvalues3 = ItemsToHash -items $countries
displaychart -items $newvalues3 -title $title -chart_type pyramid

Watch video PowerShell - Charting online, duration hours minute second in high quality that is uploaded to the channel Mr Automation 30 March 2021. Share the link to the video on social media so that your subscribers and friends will also watch this video. This video clip has been viewed 617 times and liked it 15 visitors.

354