1、首先在在images目录下存放54张扑克牌的图片。如图所示，每张图片的格式为jpg。
2、在excel的Sheet上设置一个“随机发牌”按钮以及显示20张扑克牌的空图片。
3、点击“随机发牌”按钮后，下方空图片会随机显示扑克牌图像。
4、需要的VBA代码主要有以下几个，第一个是指定每次显示几张扑克牌以及总扑克牌数量。作者这里分别设置的是20和54.
5、第二个代码是随机发牌顺序和斗地主的牌序到文件序号。
6、第三个代码是指定控件显示指定图片，这也是本系统最为核心的代码。
7、第四个代码是产生1~imagsCount的随机数,并保存起来转换为斗地主的牌序再保存。
8、第五个代码是自动检测是否已产生了上一个排布顺序。
9、自此，整个发牌系统就可以运行了。