title: Excel Keep Circle Shapes Centred
body: <p>I have googled this to death now.</p>
  <p>I have 2 circles in Excel centred (Align Center)(Align Middle)
  I have my VB code written to refer to Cell A1 in order to get the size. Circle 1 is 30% greater than Circle2. Circle 2 size I get from A2.</p>
  <p>Every time I change the values in A1, A2 will change &quot;A1*1.3&quot;. My problem is that when the circles change size they are no longer aligned on the centre/ middle.</p>
  <p>Is there a way to lock the centers so they dont shift when the shap size changes.</p>
  <p>Code</p>
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  With ActiveSheet.Shapes.Range(Array(&quot;Circle1&quot;))
      .Width = Range(&quot;A1&quot;).Value * 30
      .Height = Range(&quot;A1&quot;).Value * 30
  
  End With
      With ActiveSheet.Shapes.Range(Array(&quot;Circle2&quot;))
      .Width = Range(&quot;A2&quot;).Value * 30
      .Height = Range(&quot;A2&quot;).Value * 30
  End With
      
  </code></pre>
  <p>End Sub</p>