如何将BMP位图图像像素颜色投影至对应单元格的填充颜色？

AS850629754 · 发表于 2014-11-13 09:28

具体效果如附件所示（附件内效果为手绘）

附件.zip (39.45 KB, 下载次数: 214)

AS850629754 · 发表于 2014-11-13 09:30

补充：假设附件中图片为低像素，而不是200*198

wcymiss · 发表于 2014-11-13 11:00

我以前做的，楼主看看对你有没有用：

AS850629754 · 发表于 2014-11-13 11:57

wcymiss 发表于 2014-11-13 11:00
我以前做的，楼主看看对你有没有用：

我的是2010版的，试了，用不了，不过可以参考

wcymiss · 发表于 2014-11-13 13:13

AS850629754 发表于 2014-11-13 11:57
我的是2010版的，试了，用不了，不过可以参考

这个可以通用：（仅针对bmp24位图片）

Sub Main()
Const strBmpFile As String = "C:\1.bmp"
Dim arrByte() As Byte
Dim PixelCol As Long, PixelRow As Long
Dim CellCol As Long, CellRow As Long
Dim i As Long, j As Long
Dim lngPos As Long, Zeroize As Long
'获取bmp图片二进制数组
Open strBmpFile For Binary As #1
ReDim arrByte(LOF(1) - 1)
Get #1, , arrByte
Close #1
'获取图片的像素高和宽。宽度不是4的倍数时需补零
For i = 0 To 3
PixelCol = PixelCol + arrByte(i + 18) * 256 ^ i
Next
For i = 0 To 3
PixelRow = PixelRow + arrByte(i + 22) * 256 ^ i
Next
If PixelCol Mod 4 <> 0 Then Zeroize = 1
Cells.Clear
For i = PixelRow To 1 Step -1
CellRow = CellRow + 1
CellCol = 0
For j = 1 To PixelCol * 3 Step 3
CellCol = CellCol + 1
lngPos = 53 + j + (i - 1) * (PixelCol * 3 + Zeroize)
Cells(CellRow, CellCol).Interior.Color = RGB(arrByte(lngPos + 2), arrByte(lngPos + 1), arrByte(lngPos))
Next
Next
End Sub

复制代码

AS850629754 · 发表于 2014-11-13 13:51

wcymiss 发表于 2014-11-13 13:13
这个可以通用：（仅针对bmp24位图片）

大神！你真的做到了！虽然在我的电脑上再次打开文件时图像会失真，不过确实可以用我会慢慢研究代码的意思的
附件是完成品，大家一起看看吧
（我是把BMP文件名改成1，放到C盘才能用的）

附件.zip (108.81 KB, 下载次数: 230)

wcymiss · 发表于 2014-11-14 13:07

AS850629754 发表于 2014-11-13 13:51
大神！你真的做到了！虽然在我的电脑上再次打开文件时图像会失真，不过确实可以用我会慢慢研究代码的意思 ...

补零那句错了，所以图片失真了。不好意思，现在改一下：
把
If PixelCol Mod 4 <> 0 Then Zeroize = 1
改成
If PixelCol Mod 4 <> 0 Then Zeroize = PixelCol Mod 4

beijiguang.001 · 发表于 2018-12-14 09:57

本帖最后由 beijiguang.001 于 2018-12-14 10:02 编辑

wcymiss 发表于 2014-11-14 13:07
补零那句错了，所以图片失真了。不好意思，现在改一下：
把
If PixelCol Mod 4 0 Then Zeroize = 1

大神果然厉害，代码也易懂，上传Mark一下，有需要的可以下载学习PS：因Excel有单元格格式总数（约6.4万种）限制，各位可以使用原始空白版sheet页单元格绘图，完成后再手工设置列宽及行高即可，既快又方便。

zopey · 发表于 2018-12-14 10:19

单元格图主要缺点是上色慢。

lukeluckc · 发表于 2019-1-24 14:35

beijiguang.001 发表于 2018-12-14 09:57
大神果然厉害，代码也易懂，上传Mark一下，有需要的可以下载学习PS：因Excel有单元格格式总数（约6.4万种 ...

Public Sub Auto_Open() 是这个函数做到的打开表格后自动执行的吗？？

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

[求助] 如何将BMP位图图像像素颜色投影至对应单元格的填充颜色？