3D Circle in Excel

 Create a Rotating 3D Circle in Excel

 

Step 1: Go to Insert Tab, look for "Shapes" then choose "Oval".

Step 2: Insert the "Oval" at a desired place then at Format Tab, under "Shape Outline" choose "No Outline".

Step 3: Right click the "Oval" and then look for "Format Shape". Then at 3-D Format, adjust all the components under "Bevel" accordingly. For example, for a circle with size 10 cm  height and 10 cm width, we can adjust all the components to 143 pt. Of course, we can adjust its surface to a desired mode.

Step 4: If want to animate the sphere (3D circle), we can create two command buttons so that appropriate VB codes can be inserted.

Step 5: Design the buttons (BackColor to change colors) if needed and change the captions of the buttons to "Start" and "Pause" respectively. 

Step 6: Go to Developer Tab and click on "Visual Basic" then type the following codes to the sheet where those buttons located.

Private Sub CommandButton1_Click()

a = True

Do While a

DoEvents

Sheet1.Shapes.Range(Array("Oval 1")).ThreeD.RotationX = Sheet1.Shapes.Range(Array("Oval 1")).ThreeD.RotationX - 1

Loop

End Sub

Private Sub CommandButton2_Click()

End

End Sub

*Remarks:

a.    "Do While ... Loop" is to create an infinite repeating task where the 3D circle (sphere) can stay rotating as wish.

b.    "RotationX" is to allow the 3D circle (sphere) to rotate horizontally.  

Step 7: Back to Excel view, at Developer Tab, unclick the "Design Mode". Click the "Start" button to rotate the sphere (3D circle) and "Pause" button to pause/stop. 

If you need visual or audio aid, kindly watch the below video. Hope it helps.