Personal Website
VBA Efficiency Toolkit
Currently expanding a library of useful macros to increase efficiency of Excel-based work.
Resize Charts
Use this code to resize all charts in the sheet with a specified dimension, to armonize data visualization with one click. Change "X" and "Y" with the desired dimensions.
Sub Resize()
For Each objChart In ActiveSheet.ChartObjects
With objChart
.Width = X
.Height = Y
End With
Next objChart
End Sub
Format Charts
Use the following to automatically beautify newly inserted charts. Standard format selected: (1) remove title, (2) remove chart gridlines, (3) remove outside chart border, (4) black text font, (5) main axis black.
Sub ChartFormat()
For Each ChartObject In ActiveSheet.ChartObjects
Set Chart = ChartObject.Chart
If Chart.HasTitle Then
Chart.ChartTitle.Delete
End If
On Error Resume Next
Chart.Axes(xlValue).MajorGridlines.Delete
Chart.Axes(xlCategory).MajorGridlines.Delete
On Error GoTo 0
Chart.ChartArea.Format.Line.Visible = msoFalse
With Chart.ChartArea.Format.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Transparency = 0
.Solid
End With
With Chart.Axes(xlCategory).Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Transparency = 0
End With
Next ChartObject
End Sub
Spellcheck
Highlight in yellow cells where spelling errors are present. Click once to mark typos and click a second time once errors have been corrected to double check and remove yellow marks.
Sub Spellcheck()
For Each cl In ActiveSheet.UsedRange
If Not Application.CheckSpelling(Word:=cl.Text) Then
cl.Interior.ColorIndex = 27
Else
cl.Interior.ColorIndex = xlNone
End If
Next cl
End Sub
Save PDF
Save to PDF the active sheet with one click, by choosing a path to save and file name (.pdf).
Sub SavePDF()
Dim saveLocation As String
saveLocation = "C:\Users\...[path to save]...\...[Choose a name].pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation
End Sub
Financial Times Talent Challenge [London, 2020]
Artificial Intelligence Team for Global Digital Transformation Competition. Participated in the prestigious global competition on digital transformation, organized by the Financial Times and Bocconi University. This program included hands-on workshops, collaborative entrepreneurial teamwork, expert mentoring sessions, and culminated in a pitching day where innovative start-up ideas were presented.
Supply Chain Management Association [Amsterdam, 2020]
Represented Italy as part of the winning team at the European round of the ASCM competition, organized by the Association for Supply Chain Management and Deloitte. Our team excelled in solving complex supply chain case studies and delivered compelling presentations to a panel of international judges.