Originariamente inviato da NonCeLaFaccio+
Ciao,
credo che excel non sia lo strumento più adatto per disegnare cerchi visto che le caselle sono quadrate

però, accontentandosi ...
Io ho provato così:
codice:
Private Sub CommandButton1_Click()
centro_row = 125
centro_col = 200
raggio = 100
For i = 0 To 89
seno = Sin(i * 4 / 180 * WorksheetFunction.Pi)
coseno = Cos(i * 4 / 180 * WorksheetFunction.Pi)
hor_offset = coseno * raggio
ver_offset = seno * raggio
Cells(centro_row, centro_col).Offset(ver_offset, hor_offset).Interior.Color = RGB(0, 0, 0)
Next
End Sub
dopo aver rimpicciolito a 3x3 pixel tutte le celle del foglio e il risultato non è cattivo, il cerchio che si ottiene è (quasi) perfetto.
Peccato però che non ci sono i numeri ma, semplicemente, le caselle colorate di nero.
Volendo mettere i numeri bisogna ingrandire le celle e così il cerchio diventa tutto storto.
Questa prova l'ho fatta con celle da 12x12 e carattere Calibri da 5:
codice:
Private Sub CommandButton1_Click()
centro_row = 32
centro_col = 50
raggio = 30
For i = 0 To 89
seno = Sin((i * 4 / 180 * WorksheetFunction.Pi) - WorksheetFunction.Pi / 2)
coseno = Cos((i * 4 / 180 * WorksheetFunction.Pi) - WorksheetFunction.Pi / 2)
hor_offset = Round(coseno * raggio, 0)
ver_offset = Round(seno * raggio, 0)
Cells(centro_row, centro_col).Offset(ver_offset, hor_offset) = i + 1
Next
End Sub
Devo dire che non è un risultato entusiasmante ma non saprei come altro fare.