将24位位图文件按像素转存单元格

905738810

905738810 发表于 2021-12-17 21:39
用了二进制的位运算

wia.image对象可以取透明度，不过目前这个代码透明度我忽略了，因为对excel没用

Clown12

很遗憾的告诉你，excel支持填充的颜色格式数量小于2的24次方，所以你顶多能生成8位的位图，所以你的研究毫无意义

perfect131

Clown12 发表于 2024-1-28 21:09
很遗憾的告诉你，excel支持填充的颜色格式数量小于2的24次方，所以你顶多能生成8位的位图，所以你的研究毫 ...

话不能乱说，会误导别人

大灰狼1976

perfect131 发表于 2024-1-29 13:27
话不能乱说，会误导别人

然而单元格颜色数量确实有限制，我这边测试结果是最多65430种，不知道和电脑本身有无关系。

1. Sub test()
   
2. Dim r&, b&, g&, rw&, j&, n&
   
3. Application.ScreenUpdating = False
   
4. On Error GoTo 1
   
5. rw = 1
   
6. For r = 0 To 255
   
7.   For g = 0 To 255
   
8.     For b = 0 To 255
   
9.       j = j + 1
   
10.       If j = 257 Then
    
11.         j = 1
    
12.         rw = rw + 1
    
13.       End If
    
14.       n = n + 1
    
15.       Cells(rw, j).Interior.Color = RGB(r, g, b)
    
16.     Next b
    
17.   Next g
    
18. Next r
    
19. 1
    
20.   Stop
    
21. Application.ScreenUpdating = True
    
22. End Sub

复制代码

Clown12

perfect131 发表于 2024-1-29 13:27
话不能乱说，会误导别人

大佬，请问你是什么方法啊，为什么我解析完24位bmp格式后，填充颜色到一定数量就会提示单元格格式数量太多，求指教，你是不是对图片进行修改过，不然怎么可能可以填充这么多种颜色

perfect131

Clown12 发表于 2024-1-29 15:37
大佬，请问你是什么方法啊，为什么我解析完24位bmp格式后，填充颜色到一定数量就会提示单元格格式数量太 ...

我用的 wia 参考本贴 6 楼
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1610121&pid=10854959

不过 6 楼搞复杂了 先 Hex 然后 再 2个字节 2个字节  2个字节 提取 赋值及完事了

或者 用 这个，但只针对对 bmp  用 wia 就不需要考虑图片类型
https://club.excelhome.net/forum ... amp;_dsign=7c5aab3e

perfect131

Clown12 发表于 2024-1-29 15:37
大佬，请问你是什么方法啊，为什么我解析完24位bmp格式后，填充颜色到一定数量就会提示单元格格式数量太 ...

............................

Clown12

perfect131 发表于 2024-1-29 16:16
............................

解析BMP像素点，我已经解析搞定完成了，8位bmp是没有问题的，但是24位bmp的颜色数量已经超过了excel的极限，我实在不明白你的24位bmp是怎么通过单元格一比一还原的

perfect131

Clown12 发表于 2024-1-29 16:23
解析BMP像素点，我已经解析搞定完成了，8位bmp是没有问题的，但是24位bmp的颜色数量已经超过了excel的极 ...

说明你的代码还需优化
看看 15楼发的链接

Clown12

perfect131 发表于 2024-1-29 16:37
说明你的代码还需优化
看看 15楼发的链接

好吧，实在无法理解你的格式怎么突破excel格式上限的 我只能做到这样