title: How do you create a yellow text box?
body: <p>How do you create a yellow text box?</p>
  
  <p>I tried the below but i cannot do it such that 
  a) it does it in the active slide,
  b) it is done yellow (potentially with some formatting as shadow)
  thanks</p>
  
  <pre><code>Sub sticky()
  Set myDocument = ActivePresentation.Slides(1)
  myDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
  Left:=100, Top:=100, Width:=200, Height:=50).TextFrame _
  .TextRange.Text = "Test Box"
  End Sub
  </code></pre>