Excel VBAで図形を描画するプログラムを作成しました。

Sub DrawCircle()
  ' ** 選択範囲の中央に位置する最大の真円を描画する **
  Dim L, T, W, H As Single
  Dim L2, T2, W2, H2 As Single
    
  ' **選択範囲の基礎情報を取得
  With Selection
    L = .left
    T = .top
    W = .width
    H = .height
  End With

  ' **描画開始位置の設定
  If W > H Then
    L2 = L + (W - H) / 2
    T2 = T
  Else
    L2 = L
    T2 = T + (H - W) / 2
  End If

  ' **幅と高さの設定
  If W > H Then
    W2 = H
    H2 = H
  Else
    W2 = W
    H2 = W
  End If

  With ActiveSheet.Shapes.AddShape(msoShapeOval, L2, T2, W2, H2)
    With .Line
      .ForeColor.RGB = RGB(0, 0, 0)     ' 枠線の色「黒」。
      .Weight = 1                       ' 線の太さ「1」。
    End With
    With .Fill
      .ForeColor.RGB = RGB(255, 0, 0)               ' 塗り潰しの色「赤」。
      .Patterned (msoPatternLightUpwardDiagonal)    ' 塗り潰しパターン。
    End With
  End With
End Sub