Código central del círculo de ajuste multipunto VBA

Antes de ejecutar el código, ingresa las coordenadas de cada 8 puntos del radio en la ubicación correspondiente.

Sub yuan()

Dim i Como doble, j Como doble, x0 Como doble, y0 Como doble, difr Como entero, r Como doble, arr(-20 A 20, -20 a 20) Como Doble

x1 = Rango("b3").Valor

x2 = Rango("b4").Valor

x3 = Rango("b5").Valor

x4 = Rango("b6").Valor

x5 = Rango("b7").Valor

x6 = Rango("b6").Valor

x6 = Rango("b7").Valor