【原创】使用MATLAB玩转Excel拼图

xiezhh

相信大家都玩过拼图，有人用钉子拼图：

有人用打死的蚊子拼图：

有人用答题卡拼图：


有人用瓜子拼图：


女生们玩过十字绣：


这里教大家玩转Excel拼图，就是把Excel的每一个单元格作为一个像素点，通过在Excel单元格中填充底色的方式绘图。在正常尺寸下，我们很难看出是什么图形，但是当把Excel的单元格的行高和列宽都改小时，我们就看得一目了然了。我这里编了一个程序，大家不妨玩一玩，体会一个像素一个像素绘图的感觉，本程序可以导入一幅图片（灰度图像或真彩图像）到Excel中，由于是底色绘图，还不妨碍在图上写字。把做成的Excel拼图的单元格的行高和列宽改大一些发给别人，别人肯定看不出是什么，然后再告诉他秘诀，或许会给他带来惊喜。快试一试吧，觉得好就顶一下！有啥改进意见也希望大家畅所欲言！

先发一个我做的Excel拼图，效果图如下：

程序代码如下：

1. function photo2excel(filename)
   
2. % 利用MATLAB通过填色的方式把图像画入Excel文档(玩转Excel拼图)
   
3. %   photo2excel(filename)  输入参数filename为包含图片文件所在路径的字符串
   
4. %   photo2excel(I)         输入参数I为图像灰度值矩阵
   
5. %   
   
6. %   注：图像可以是灰度图像或真彩图像
   
7. %   Copyright 2010 - 2011 xiezhh.
   
8. %   $Revision: 1.0.0.0 [        DISCUZ_CODE_1        ]nbsp; $Date: 2011/03/12 13:41:00 $
   
9. 
   
10. % 判断输入参数类型，导入图像灰度值矩阵
    
11. if ischar(filename) && exist(filename,'file');
    
12.     I = imread(filename);
    
13. elseif isnumeric(filename)
    
14.     I = filename;
    
15. else
    
16.     error('输入参数类型不匹配');
    
17. end
    
18. I = uint8(I);
    
19. 
    
20. % 判断图像类型
    
21. [m,n,k] = size(I);
    
22. if k == 1
    
23.     I = repmat(I,[1 1 3]);
    
24. end
    
25. if k ~= 1 && k ~= 3
    
26.     error('图像类型不匹配，只能是灰度图像或真彩图像');
    
27. end
    
28. 
    
29. % 设定要保存的Excel文件名和路径
    
30. filespec_user = [pwd '\我的照片.xls'];
    
31. 
    
32. % 判断Excel是否已经打开，若已打开，就在打开的Excel中进行操作，否则就打开Excel
    
33. try
    
34.     % 若Excel服务器已经打开，返回其句柄Excel
    
35.     Excel = actxGetRunningServer('Excel.Application');
    
36. catch
    
37.     % 创建一个Microsoft Excel服务器，返回句柄Excel
    
38.     Excel = actxserver('Excel.Application');
    
39. end;
    
40. 
    
41. % 设置Excel服务器为可见状态
    
42. Excel.Visible = 1;
    
43. 
    
44. % 新建一个工作簿，并保存，文件名为我的照片.Excel
    
45. Workbook = Excel.Workbooks.Add;
    
46. %Workbook.SaveAs(filespec_user);
    
47. 
    
48. % 返回当前工作表句柄
    
49. Sheets = Excel.ActiveWorkbook.Sheets;
    
50. Sheet1 = Sheets.Item(1);    % 返回第1个表格句柄
    
51. 
    
52. % 设置行高和列宽
    
53. SC1 = Sheet1.Cells;
    
54. % 设置行高
    
55. SC1.RowHeight = 1.5;
    
56. % 设置列宽
    
57. SC1.ColumnWidth = 0.15;
    
58. 
    
59. % 通过填色的方式绘图
    
60. ColNum = SC1.Columns.Count;
    
61. RowNum = SC1.Rows.Count;
    
62. I = double(I);
    
63. ColorIndex = I(:,:,1) + 256*I(:,:,2) + 65536*I(:,:,3);
    
64. for j = 1:n
    
65.     for i = 1:m
    
66.         SC1.Item((i-1)*ColNum + j).Interior.Color = ColorIndex(i,j);
    
67.     end
    
68. end
    
69. 
    
70. Workbook.Save   % 保存文档

复制代码

shenjingwangluo

谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢

S_toad

回复学习一下，看起来很有意思啊

q8362189

找了好长时间，想学习一下

xiezhh

本程序在Excel2007下经过了测试！

Yee_Yang

自恋一下下，呵呵。

荒草

貌似在MATLAB中文论坛上见过楼主，顶一个

filey19

lz问你一个问题。。。如果在excel中有数据，我想用matlab处理数据，然后得出方程。
我不知道有没有办法。。。还是说数据必须要自己输入。。。以为内是很大的数据。
5个输入，2个输出。。然后是150组，我希望能有两个方程。。。
谢谢了。。

xiezhh

回复 filey19 的帖子

先用xlsread函数把Excel中的数据读入matlab，然后做数据拟合，可以用nlinfit函数或cftool函数，还有其他函数，你可以在论坛上搜搜数据拟合或回归分析。

deanchen

这么牛~~这是怎么实现的呀~~

pzfs1016

前来学习！

ron1214

蛮有趣的下来看看

rocwoods

谢老师太牛了！哈哈，玩到这样境界确实NB