RGB 与HSL 色彩空间的转换函数

zopey

dongdonggege 发表于 2018-9-19 09:39
大师请举例，通过添加一个矩形，用程序来显示图形色彩渐变色。有效果，没过程。

你要求的矩形图 最终效果，请截图 说明。

dongdonggege

1. Sub test()   
   
2.     Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 230, 90, 120, 50)
   
3.     'shp背景色 = RGB(r1, g1, b1)
   
4.     'shp字体颜色 = RGB(r2, g2, b2)
   
5. End Sub

复制代码

就像这样的类似。

dongdonggege

就是你9楼的那个图，那个颜色做出的。

zopey

dongdonggege 发表于 2018-9-19 14:19
就是你9楼的那个图，那个颜色做出的。

9楼图片 是网上找的，本人还做不出。
要添加一个矩形 ，还是添加 M*n个矩形，你可以先画出个样子来。

zopey

在工作表单元格 展示图片像素  速度较慢（容易卡） ，我一直在想如何改进 效率，
在古老的API 函数中，找到一个关于 SetDIBits 的实例 ，在它的基础上 修修补补，作出如下 程序。



显示图片像素API.zip (89.41 KB, 下载次数: 37)

2018-9-19 17:31 上传

点击文件名下载附件

zopey

aman1516 发表于 2018-9-18 22:33
之前试跑过将所有颜色在工作表上全部显示出来：255*255*255＝16581375色（单元格），基本死机，但可通过 St ...

15 楼的程序 ，只要 调整下 bit 像素数组，我认为 可以快速显示 255*255*255＝16581375 颜色。
也就是255 张 （255*255 像素）的 图片。

zopey

Dim ix, iy
Dim iWidth As Integer '以像素为单位的图形宽度
Dim iHeight As Integer '以像素为单位的图形高度
iWidth = 256
iHeight = 256

Dim bits() As Byte '三维数组，用于获取原彩色图像中各像素的RGB数值以及存放转化后的灰度值
'重新定义数组大小
ReDim bits(0 To 3, 0 To iWidth - 1, 0 To iHeight - 1) As Byte

r1 = Slider1.Value
       For ix = 0 To iWidth - 1
            b1 = ix
            For iy = 0 To iHeight - 1
            g1 = 255 - iy
               
                bits(0, ix, iy) = b1
                bits(1, ix, iy) = g1
                bits(2, ix, iy) = r1
            Next
        Next

RGB平面(R定值).zip (84.3 KB, 下载次数: 31)

2018-9-20 11:39 上传

点击文件名下载附件

zopey

R=255


R=120


R=0

zopey

网上找到的 立体RGB色图是这样子的 ，不知道vba 如何绘制 它。

dongdonggege

这是我多年前改编自vb的案例《gdi 双色渐变直线》，今天我们单位停电，刚看到。如果你喜欢图像，希望我们能探讨，我有许多gdi图像。