实木折叠象棋棋盘的制作（实木折叠棋盘，创新演绎传统象棋之美）

本篇介绍， 如何用excel制作一个象棋棋盘并可以实现下棋功能

关于这个功能，其实道理也十分简单，无非就是一些图形加几个车马将帅。

通过对棋盘的了解，用直线画出棋盘，然后添加棋子，最后就开始厮杀了。

话不多说，先睹为快

红方棋局，开局就如上图，车马相士将炮兵，各就各位。

背景有点黑，马上开打。

蓝方棋局，同样也排好队型，不能乱，乱了方寸就败近矣。

车(这个字念ju)马象士帅

为了更直观看到下棋的场景，做了一个动态效果图，仔细看，一定不会失望。

功能介绍

设置了三个按钮，一个绘制棋盘，一个绘制棋子，一个清除棋局。

感觉已经可以完成一盘棋的功能了，当然了，为了公平合理，不设置悔棋。

棋盘的样子四平八稳，没有一点特色，几百年来就是这样。

看上去十分冷漠，战争嘛，没有温柔的，流血和失去生命的过程，没有人喜欢。

代码放送

主要代码:

ws.shapes.addshape(msoshapeoval, x, y, w, h)画圆形

ws.shapes.addline(x,y, xend, yend)画线条

绘制棋盘

sub addline() dim ws as worksheet set ws = activesheet dim r as integer, g as integer, b as integer r = 255 g = 250 b = 250 dim t as long, l as long, w as long, h as long t = 150 l = 100 w = 640 h = 720 dim linew as integer linew = 6 dim ls as shape dim ri as integer ri = 90 dim lw as integer lw = linew / 2 dim i as integer for i = 0 to 9棋盘横线 set ls = ws.shapes.addline(l, t + ri * i, w + l + ri - 10, t + ri * i) with ls with .line .style = msolinesingle .forecolor.rgb = rgb(r, g, b) if i = 5 or i = 4 then .weight = 30 .forecolor.rgb = rgb(200, 211, 0) .style = msolinesingle else .weight = 2 end if end with end with next i for i = 0 to 8棋盘竖线 set ls = ws.shapes.addline(l + ri * i, t, l + ri * i, h + t + ri) with ls with .line .style = msolinesingle .forecolor.rgb = rgb(r, g, b) .weight = 2 end with end with next iend sub

绘制棋子

sub addovalfont(sarr, n, irow, f) dim ws as worksheet set ws = activesheet dim o as shape dim x as long, y as long, w as long, h as long dim r as integer, g as integer, b as integer if f then r = 255 g = 25 b = 50 else r = 25 g = 50 b = 255 end if  x = 90 * n + 60 y = 100 * irow w = 90 h = w set o = ws.shapes.addshape(msoshapeoval, x, y, w, h) with o .fill.forecolor.rgb = rgb(r, g, b) with .textframe .verticalalignment = xlvaligncenter .horizontalalignment = xlhaligncenter .marginbottom = 10 .marginleft = 10 .margintop = 10 .marginright = 10 with .characters .text = sarr 棋子文字 with .font .size = 60 .bold = true .name = "隶书" .color = rgb(225, 255, 255) end with end with end with doevents end withend sub

棋盘布局

private sub commandbutton1_click()clearovalshapedim sarrsarr = array("车", "马", "相", "仕", "帅", "相", "仕", "马", "车")sarr3 = array("炮")sarr4 = array("兵")sarr2 = array("车", "马", "象", "士", "将", "象", "士", "马", "车")sarr5 = array("卒")dim n as integerfor n = 0 to ubound(sarr) call addovalfont(sarr(n), n, 1, true) call addovalfont(sarr2(n), n, 9, false)next ncall addovalfont(sarr3(0), 1, 3, true)call addovalfont(sarr3(0), 6, 3, true)for n = 0 to 8 step 2 call addovalfont(sarr4(0), n, 4, true)next ncall addovalfont(sarr3(0), 1, 7, false)call addovalfont(sarr3(0), 6, 7, false)for n = 0 to 8 step 2 call addovalfont(sarr5(0), n, 6, false)next nend sub

结尾

互动功能是第一次用excel来制作，整体效果很好，唯一比较难的是对图形位置定位，这个要有一定是数学计算能力，和图形大小变化，位移等等理解，做起来需要多次调试。

最后结果也不是十分精确，为了让整个棋盘显得像那么回事儿，做了不少重复无聊的调试。

有兴趣的朋友可以自己试着做一下。

免费的