title: Addshape in cell corner
body: <p>Hi I need to add shape dynamically to cell corner D12 (left, down) 
  here's my code</p>
  
  <pre><code>  Set textRectangle = ActiveSheet.Shapes.AddShape(msoShapeOval, Range("D13").Left, Range("D13").Top, 20, 20)
  
  textRectangle.name = "test shape"
  ' add your text
  textRectangle.TextFrame.Characters.Text = "Your"
  
  ' fill the shape with the rgb color of your choice
  textRectangle.Fill.ForeColor.RGB = RGB(220, 105, 0)
  </code></pre>
  
  <p>with this result : <a href="https://i.stack.imgur.com/lMssG.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/lMssG.png" alt="enter image description here"></a></p>
  
  <p>and here's the result I want to have
  <a href="https://i.stack.imgur.com/hI5Rb.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/hI5Rb.png" alt="enter image description here"></a></p>
  
  <p>I am reshapping the circle after creating it</p>