Draw a cube on Excel Worksheet

A cube is Composed of two squares and two parallelograms:

 

Sub DrawCube() ActiveSheet.Shapes.AddShape(msoShapeParallelogram, [b2].Left, [b2].Top, 4 * [b2].Width, 4 * [b2].Height).Fill.Transparency = 1 ActiveSheet.Shapes.AddShape(msoShapeParallelogram, [b12].Left, [b12].Top, 4 * [b2].Width, 4 * [b2].Height).Fill.Transparency = 1 ActiveSheet.Shapes.AddShape(msoShapeRectangle, [c2].Left, [c2].Top, 3 * [b2].Width, 10 * [b2].Height).Fill.Transparency = 1 ActiveSheet.Shapes.AddShape(msoShapeRectangle, [b6].Left, [b6].Top, 3 * [b2].Width, 10 * [b2].Height).Fill.Transparency = 1 End Sub

 

It returns:

 

 

Is it  interesting？