我们再在Sheet1表格里面将A~K列的列宽大致调成跟行高一样，让它大致称为一个正方形的区域：

我们点击Visual Basic菜单，打开编写代码界面，我们插入首先插入一个代码模块，用于编写我们自己的代码：

插入代码块

由于方块有7中形状，为了让程序绘制方便，我用一个三维数组存储所有形状的坐标，每种形状都有一个中心坐标(0,0)，其余三个方框的坐标按照中心坐标来计算相对坐标，例如丁字形状的方块：