Draw a cube on Excel Worksheet

A cubeis Composed of two squares andtwo parallelograms: Sub DrawCube() ActiveSheet.Shapes.AddShape(msoShapeParallelogram, [b2].Left, [b2].Top, 4 * [b2].Width, 4 * [b2].Height).Fill.Transparency = 1 Ac

>>阅读原文<<