title: Changing font size and style
body: <p>I have code for changing fonts but it's not working as it should :( I want to loop thrue all presentation and change font size and style by InputBox. Anyone can help me with this? Thanks so much!</p>
  
  <pre><code>Sub FormatTextBoxes()
  
  Dim intSlide As Integer
  Dim strNotes As String
  Dim nts As TextRange
  Dim strFont, intSize
  
  intSize = InputBox("Please enter font size", "fontsize", "12")
  strFont = InputBox("Please enter font", "font type", "Calibri")
  
      With ActivePresentation
  
          For intSlide = 1 To .Slides.Count
          Set nts = ActivePresentation.Slides(intSlide).NotesPage. _
          Shapes.Placeholders(2).TextFrame.TextRange
          With nts
              If intSize = "" Then intSize = 12
              .Paragraphs.Font.Size = intSize
              .Paragraphs.Font.Name = strFont
  
      End With
  
          Next intSlide
    End With
    MsgBox ("FormatNotes uitgevoerd")
  
  End Sub
  </code></pre>