在Excel单元格里绘图-WIA库的绘图功能

jaxxcyh

显示灰度图片，灰度值=0.3R+0.59G+0.11B，RGB均设为此数值，即可显示灰度图像。

1.             '灰度显示，公式为灰度值=0.3R+0.59G+0.11B,R=G=B,均设为此值。
   
2.             Dim GreyVal As Byte
   
3.             GreyVal = Int(picR * 0.3 + picG * 0.59 + picB * 0.11)
   
4.             Cells(i, j).Interior.Color = RGB(GreyVal, GreyVal, GreyVal)
   

复制代码

jaxxcyh

图片的模糊，算法原理就是将当前位置的像素与邻近像素颜色值进行平均。
这里提供一个像素模糊函数，输入参数为当前像素点的行、列坐标及完整图片像素RGB数据数组，返回值为此坐标像素点模糊后的颜色RGB值。

1. Rem 此函数输入参数为当前像素的行数、列数(即坐标)以及完整的图像arrRGB数组，
   
2. Rem 以(R,G,B)数组形式返回当前像素与邻近像素各颜色分量的均值。
   
3. Function blurPixel(r As Integer, c As Integer, ByRef arrRGB) As Variant
   
4. 
   
5.     '定义8个方位的行列坐标变量
   
6.     Dim r_E As Byte, c_E As Byte       '东
   
7.     Dim r_ES As Byte, c_ES As Byte     '东南
   
8.     Dim r_S As Byte, c_S As Byte       '南
   
9.     Dim r_WS As Byte, c_WS As Byte     '西南
   
10.     Dim r_W As Byte, c_W As Byte       '西
    
11.     Dim r_WN As Byte, c_WN As Byte     '西北
    
12.     Dim r_N As Byte, c_N As Byte       '北
    
13.     Dim r_EN As Byte, c_EN As Byte     '东北
    
14.    
    
15.     Dim width As Integer, height As Integer
    
16.     width = UBound(arrRGB, 2)
    
17.     height = UBound(arrRGB, 1)
    
18.    
    
19.     Dim avgR As Byte, avgG As Byte, avgB As Byte  'R，G，B各色的均值
    
20. 
    
21.     '各个方位坐标处理
    
22.     '东
    
23.     r_E = r
    
24.     c_E = c + 1: If c_E > width Then c_E = width
    
25.     '东南
    
26.     r_ES = r + 1: If r_ES > height Then r_ES = height
    
27.     c_ES = c + 1: If c_ES > width Then c_ES = width
    
28.     '南
    
29.     r_S = r + 1: If r_S > height Then r_S = height
    
30.     c_S = c
    
31.     '西南
    
32.     r_WS = r + 1: If r_WS > height Then r_WS = height
    
33.     c_WS = c - 1: If c_WS = 0 Then c_WS = 1
    
34.     '西
    
35.     r_W = r
    
36.     c_W = c - 1: If c_W = 0 Then c_W = 1
    
37.     '西北
    
38.     r_WN = r - 1: If r_WN = 0 Then r_WN = 1
    
39.     c_WN = c - 1: If c_WN = 0 Then c_WN = 1
    
40.     '北
    
41.     r_N = r - 1: If r_N = 0 Then r_N = 1
    
42.     c_N = c
    
43.     '东北
    
44.     r_EN = r - 1: If r_EN = 0 Then r_EN = 1
    
45.     c_EN = c + 1: If c_EN > width Then c_EN = width
    
46.    
    
47.     '计算均值
    
48.     avgR = WorksheetFunction.Average _
    
49.         (arrRGB(r_E, c_E)(0), arrRGB(r_ES, c_ES)(0), _
    
50.          arrRGB(r_S, c_S)(0), arrRGB(r_WS, c_WS)(0), _
    
51.          arrRGB(r_W, c_W)(0), arrRGB(r_WN, c_WN)(0), _
    
52.          arrRGB(r_N, c_N)(0), arrRGB(r_EN, c_EN)(0), _
    
53.          arrRGB(r, c)(0))
    
54.     avgG = WorksheetFunction.Average _
    
55.         (arrRGB(r_E, c_E)(1), arrRGB(r_ES, c_ES)(1), _
    
56.          arrRGB(r_S, c_S)(1), arrRGB(r_WS, c_WS)(1), _
    
57.          arrRGB(r_W, c_W)(1), arrRGB(r_WN, c_WN)(1), _
    
58.          arrRGB(r_N, c_N)(1), arrRGB(r_EN, c_EN)(1), _
    
59.          arrRGB(r, c)(1))
    
60.     avgB = WorksheetFunction.Average _
    
61.         (arrRGB(r_E, c_E)(2), arrRGB(r_ES, c_ES)(2), _
    
62.          arrRGB(r_S, c_S)(2), arrRGB(r_WS, c_WS)(2), _
    
63.          arrRGB(r_W, c_W)(2), arrRGB(r_WN, c_WN)(2), _
    
64.          arrRGB(r_N, c_N)(2), arrRGB(r_EN, c_EN)(2), _
    
65.          arrRGB(r, c)(2))
    
66.    
    
67.     blurPixel = Array(avgR, avgG, avgB)
    
68. 
    
69. End Function
    
70. 
    

复制代码

jaxxcyh

多轮模糊的效果，就是把糊化后的数据重新放回原来的arrRGB数组，不停迭代而已。

blackttea1

谢谢分享！

morpheus126

谢谢分享，抄作业中