StillHammer
0442c8f995
Excel KPI Dashboard for freelance activity tracking. Features: - Revenue, time and client tracking - Dynamic KPIs and pivot tables - Interactive charts and slicers - VBA automation macros - Professional design
77 lines
2.1 KiB
QBasic
77 lines
2.1 KiB
QBasic
Attribute VB_Name = "mod_Charts"
|
|
Option Explicit
|
|
|
|
' =============================================================================
|
|
' Module: mod_Charts
|
|
' Description: Creates Charts for the Freelance Dashboard
|
|
' =============================================================================
|
|
|
|
Sub CreateCharts()
|
|
Dim wsDash As Worksheet
|
|
Dim wsTCD As Worksheet
|
|
Dim cht As ChartObject
|
|
|
|
On Error GoTo ErrorHandler
|
|
|
|
Set wsDash = ThisWorkbook.Sheets("Dashboard")
|
|
Set wsTCD = ThisWorkbook.Sheets("TCD_Data")
|
|
|
|
' Delete existing charts
|
|
On Error Resume Next
|
|
For Each cht In wsDash.ChartObjects
|
|
cht.Delete
|
|
Next cht
|
|
On Error GoTo ErrorHandler
|
|
|
|
' Chart 1: Pie Chart - Revenue by Client
|
|
Set cht = wsDash.ChartObjects.Add( _
|
|
Left:=wsDash.Range("D3").Left, _
|
|
Top:=wsDash.Range("D3").Top, _
|
|
Width:=250, _
|
|
Height:=200)
|
|
|
|
With cht.Chart
|
|
.SetSourceData Source:=wsTCD.PivotTables("TCD_CA_Client").TableRange1
|
|
.ChartType = xlPie
|
|
.HasTitle = True
|
|
.ChartTitle.Text = "CA par Client"
|
|
.HasLegend = True
|
|
.Legend.Position = xlLegendPositionRight
|
|
End With
|
|
|
|
' Chart 2: Column Chart - Revenue by Month
|
|
Set cht = wsDash.ChartObjects.Add( _
|
|
Left:=wsDash.Range("D12").Left, _
|
|
Top:=wsDash.Range("D12").Top, _
|
|
Width:=250, _
|
|
Height:=200)
|
|
|
|
With cht.Chart
|
|
.SetSourceData Source:=wsTCD.PivotTables("TCD_CA_Mois").TableRange1
|
|
.ChartType = xlColumnClustered
|
|
.HasTitle = True
|
|
.ChartTitle.Text = "CA par Mois"
|
|
.HasLegend = False
|
|
End With
|
|
|
|
' Chart 3: Bar Chart - Hours by Project
|
|
Set cht = wsDash.ChartObjects.Add( _
|
|
Left:=wsDash.Range("H3").Left, _
|
|
Top:=wsDash.Range("H3").Top, _
|
|
Width:=250, _
|
|
Height:=200)
|
|
|
|
With cht.Chart
|
|
.SetSourceData Source:=wsTCD.PivotTables("TCD_Heures_Projet").TableRange1
|
|
.ChartType = xlBarClustered
|
|
.HasTitle = True
|
|
.ChartTitle.Text = "Heures par Projet"
|
|
.HasLegend = False
|
|
End With
|
|
|
|
Exit Sub
|
|
|
|
ErrorHandler:
|
|
MsgBox "Error creating charts: " & Err.Description, vbCritical, "Error"
|
|
End Sub
|