title: Shape doesn't show all text
body: <p>I need to create shapes labelled with a number but the shape doesn't display the whole number.</p>
  
  <p>For example, where the number is 1 to 9 it displays, but for 10 to 19 it shows just 1.</p>
  
  <p>I don't want to change the radius it have to be the same.</p>
  
  <pre><code>Sheets(xRiS).Select
  Dim textRectangles As Shape
  Dim radius As Integer
  radius = 15
  
  Set textRectangles = ActiveSheet.Shapes.AddShape(msoShapeOval, (Range("D13").Left - radius / 2), _
      Range("D13").Top - radius / 2, radius, radius)
  
  textRectangles.Name = "Groups " &amp; i
  textRectangles.TextFrame.Characters.Text = i
  textRectangles.TextFrame.VerticalAlignment = xlVAlignCenter
  textRectangles.TextFrame.HorizontalAlignment = xlHAlignCenter
  textRectangles.TextFrame.Characters.Font.Size = 9
  textRectangles.TextFrame.Characters.Font.Name = "Georgia"
  textRectangles.Fill.ForeColor.RGB = RGB(220, 105, 0)
  textRectangles.Fill.Transparency = 0.5
  </code></pre>
  
  <p>This is the current result:</p>
  
  <p><a href="https://i.stack.imgur.com/MDjVk.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/MDjVk.png" alt="enter image description here"></a></p>
  
  <p>This is the result I want:</p>
  
  <p><a href="https://i.stack.imgur.com/CZC8V.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/CZC8V.png" alt="enter image description here"></a></p>
  
  <p>How can I configure the shape to display the number where the number is 10-19?</p>