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