图片转换成字符图

dongdonggege · 发表于 2018-10-16 22:03

本帖最后由 dongdonggege 于 2018-10-16 22:05 编辑

zopey 发表于 2018-10-16 16:50
图像像素要事先压缩到100 *100左右

大师，你说的图像像素压缩到100 *100左右，我不太懂。你二楼不是说bytTarget = bits(0, ix, iy) * 0.11 + bits(1, ix, iy) * 0.59 + bits(2, ix, iy) * 0.3，你的7楼代码变成brr(CellRow, CellCol) = Mid(ascii_char, Int(bytTarget / unit) + 1, 1)，能不能还变成 bits(0, ix, iy) 或bytTarget形式的？

dongdonggege · 发表于 2018-10-16 22:11

zopey 发表于 2018-10-16 16:50
图像像素要事先压缩到100 *100左右

大师，我是做ppt的，如果是窗体，我还懂点，excle不太懂，要是窗体就好了。

zopey · 发表于 2018-10-16 22:47

dongdonggege 发表于 2018-10-16 22:03
大师，你说的图像像素压缩到100 *100左右，我不太懂。你二楼不是说bytTarget = bits(0, ix, ...

1、bits（）是借用了 API得到的三维数组，
2、arr（）是直接读 bmp图片的二进制数据得到的一维数组，两者本质相同，都是存储的 r\g\b 数字。
不好理解？
3、CellRow, CellCol 代表了单元格的行、列，如果不压缩图片大小，恐怕整个工作表放不下。
4、brr 则是记录某单元格置入的字符（70选一）的二维数组，正好可以输出到工作表。

dongdonggege · 发表于 2018-10-17 12:25

zopey 发表于 2018-10-16 22:47
1、bits（）是借用了 API得到的三维数组，
2、arr（）是直接读 bmp图片的二进制数据得到的一维数 ...

大师，你好，学校上午停电。
我如果这样，一维数组Mid(ascii_char, Int(bytTarget / unit) + 1, 1)怎么改成三维数组bits(0, ix, iy)？
bits(0, ix, iy)=Mid(ascii_char, Int(bytTarget / unit) + 1, 1)会出错。应该怎么改，谢谢。

zopey · 发表于 2018-10-17 13:50

bits(0, ix, iy) 的内容应该是数字，而 mid取的字符，类型不符。
我怕麻烦，能不用api 函数实现转换当然更好。

lujkhua · 发表于 2018-10-17 14:01

彩色的，大图片也可以的

dongdonggege · 发表于 2018-10-17 14:08

lujkhua 发表于 2018-10-17 14:01
彩色的，大图片也可以的

你好，大师，你这怎么没有程序，我想用程序做出来，我这没有高版本的，只有2003，麻烦你转换成2003，行吗？谢谢

dongdonggege · 发表于 2018-10-17 14:36

zopey 发表于 2018-10-17 13:50
bits(0, ix, iy) 的内容应该是数字，而 mid取的字符，类型不符。
我怕麻烦，能不用api 函数实现转换 ...

你说的意思是不是没有办法在窗体弄了？

dongdonggege · 发表于 2018-10-17 15:41

zopey 发表于 2018-10-17 13:50
bits(0, ix, iy) 的内容应该是数字，而 mid取的字符，类型不符。
我怕麻烦，能不用api 函数实现转换 ...

关键是你给我的程序在我的电脑都不能运行，怎么办？要不然我能看到你的数组是怎么转换的。

zopey · 发表于 2018-10-17 16:03

dongdonggege 发表于 2018-10-17 15:41
关键是你给我的程序在我的电脑都不能运行，怎么办？要不然我能看到你的数组是怎么转换的。

取消选择图片路径的弹出窗口（可能有的电脑不支持），直接赋值为 f，

f = ThisWorkbook.Path & "\2016.bmp"
Open f For Binary As #1

24位图片2.zip (45.51 KB, 下载次数: 28)

		自动登录	找回密码
密码			免费注册

[求助] 图片转换成字符图