If you use the pen pointer to add annotations during a PowerPoint slide show, you might be disappointed with the default width which many people find too thin when projected.

This simple macro provides an easy way to repeatedly increment the ink line weight during a slide show.

Here’s How

Follow these steps to add the macro to your presentation and use it during a slide show.

The Macro

' Macro by youpresent.co.uk
' Copyright (c) YOUpresent Ltd.
Public Sub IncreaseInkWeight()
  Dim oSld As Slide
  Dim oShp As Shape
  ' Need to temporarily exit the show as ink shapes aren't in the shapes collection!
  RefreshShow
  For Each oSld In ActivePresentation.Slides
    For Each oShp In oSld.Shapes
      With oShp
        If .Type = msoInkComment Or .Type = msoInk Then
          .Line.Weight = .Line.Weight + 0.5
        End If
      End With
    Next
  Next
End Sub

Private Sub RefreshShow()
  Dim mySlide As Integer
  mySlide = SlideShowWindows(1).View.Slide.SlideIndex
  SlideShowWindows(1).View.Exit
  ActivePresentation.SlideShowSettings.Run
  SlideShowWindows(1).View.GotoSlide (mySlide)
End Sub