title: Insert annotation in PDF
body: <p>I am looking for solution for interface between Excel+VBA and PDF. I am using VBA to insert an annotation in a PDF file.</p>
  
  <p>As of now I am able to create the Freetext Box and add the text. But I have failed to use desired font type, font colour and font size.</p>
  
  <p>Here is the complete code.</p>
  
  <pre><code>Function text_annotation(FileName, path, Proj_No, Dept_no, New_tag, sizex, sizey)
  
  Dim pdDoc As Acrobat.CAcroPDDoc 
  Dim page As Acrobat.CAcroPDPage
  
  Dim jso As Object 
  Dim point(2) As Integer
  Dim popupRect(3) As Integer
  Dim rect(3) As Integer
  Dim pageRect As Object
  Dim annot As Object
  Dim props As Object
  Dim text As Object
  
  Set pdDoc = Nothing
  Set app = CreateObject("AcroExch.App")
  Set pdDoc = CreateObject("AcroExch.PDDoc")
  
  fullpath = path &amp; FileName
  pdDoc.Open (fullpath)
  
  Set jso = pdDoc.GetJSObject
  If Not jso Is Nothing Then
  
  Set page = pdDoc.AcquirePage(0)
  
  Set pageRect = page.GetSize
  
  Set annot = jso.AddAnnot
  
  Set props = annot.getprops
      props.page = 0
      props.Name = "Entry_Stamp"
      props.Type = "FreeText"
      props.rect = popupRect
      props.Author = "user"
      props.Width = 1#
      props.strokeColor = jso.color.blue
      props.contents = "text mesg"
  
  annot.setProps props
  </code></pre>
  
  <p><em>These following line doesnot result properly.</em></p>
  
  <pre><code>Set props = annot.getprops
  With props
      'props.text = jso.color.blue
      'props.Fontcolor = jso.color.black
      'props.textFont = Font.Helv
      'props.textSize = 24
  
  End With
  
  annot.setProps props
  
  End Function
  </code></pre>
  
  <p>I hope to use the VB script so that I can use my Excel template as well as do the annotation. Please suggest me the correction in the above code.</p>