AI回答 RGB 颜色对照表

ning84 · 发表于 2024-10-22 15:26

本帖最后由 ning84 于 2024-10-22 18:27 编辑

RGB 一览表

[color=var(--cos-color-text)]

[color=var(--cos-color-text)]‌RGB色彩对照表‌提供了多种颜色的RGB值，帮助设计师和开发者在选择颜色时有所依据。以下是一些常用颜色的RGB值：

‌白色‌：RGB(255, 255, 255)
‌黑色‌：RGB(0, 0, 0)
‌红色‌：RGB(255, 0, 0)
‌绿色‌：RGB(0, 255, 0)
‌蓝色‌：RGB(0, 0, 255)
‌青色‌：RGB(0, 255, 255)
‌紫色‌：RGB(128, 0, 128)
‌灰色‌：RGB(128, 128, 128)
‌黄色‌：RGB(255, 255, 0)
‌镉黄‌：RGB(255, 153, 18)
‌金黄‌：RGB(255, 215, 0)
‌肉黄‌：RGB(255, 125, 64)
‌粉黄‌：RGB(255, 227, 132)
‌香蕉黄‌：RGB(227, 207, 87)
‌黄绿色‌：RGB(127, 255, 0)
‌青绿色‌：RGB(64, 224, 208)
‌天蓝灰‌：RGB(202, 235, 216)
‌象牙灰‌：RGB(251, 255, 242)
‌亚麻灰‌：RGB(250, 240, 230)
‌杏仁灰‌：RGB(255, 235, 205)
‌贝壳灰‌：RGB(255, 245, 238)
‌棕褐色‌：RGB(210, 180, 140)
‌古董白‌：RGB(250, 235, 215)
‌浅绿色‌：RGB(175, 238, 238)
‌海蓝色‌：RGB(127, 255, 212)
‌蔚蓝色‌：RGB(240, 255, 255)
‌米色‌：RGB(245, 245, 220)
‌橘黄色‌：RGB(255, 228, 196)
‌白杏仁‌：RGB(255, 235, 205)‌

******************************************
现在想做个代码，生成以上颜色。结果不对，

Sub l2()
Dim Pres As Presentation
Set Pres = Application.ActivePresentation
Dim Sld As Slide
Dim Shp As Shape
Dim xx, yy
Dim ii, jj
Set Sld = Pres.Slides(10)
For Each Shp In Sld.Shapes
'Debug.Print Shp.Name
'Shp.Delete
Next Shp
Dim I, RGBValue
'
For ii = Sld.Shapes.Count To 1 Step -1
Set Shp = Sld.Shapes(ii)
Shp.Delete
Next ii
I = 100
yy = 15
With Sld
With .Shapes
For ii = 1 To 10
xx = 2
For jj = 1 To 9
Set Shp = .AddShape(msoShapeRectangle, xx, yy, 75, 45)
I = I + 10
RGBValue = RGB(I, 64 + I, 128 + I)
Debug.Print I, 64 + I, 128 + I
Shp.Fill.ForeColor.RGB = RGBValue
xx = xx + 80
Next
yy = yy + 50
Next ii
End With
End With
End Sub

复制代码

[backcolor=rgba(223, 223, 245, 0.4)]

longwin · 发表于 2024-10-22 16:12

ning84 · 发表于 2024-10-22 16:20

本帖最后由 ning84 于 2024-10-23 19:16 编辑

Function RetuColorRGB(Str)
Dim Arr
Arr = Array("白色", 255, 255, 255, "黑色", 0, 0, 0, "红色", 255, 0, 0, "绿色", 0, 255, 0, "蓝色", 0, 0, 255, "青色", 0, 255, 255, "紫色", 128, 0, 128, "灰色", 128, 128, 128, "黄色", 255, 255, 0, "镉黄", 255, 153, 18, "金黄", 255, 215, 0, "肉黄", 255, 125, 64, "粉黄", 255, 227, 132, "香蕉黄", 227, 207, 87, "黄绿色", 127, 255, 0, "青绿色", 64, 224, 208, "天蓝灰", 202, 235, 216, "象牙灰", 251, 255, 242, "亚麻灰", 250, 240, 230, "杏仁灰", 255, 235, 205, "贝壳灰", 255, 245, 238, "棕褐色", 210, 180, 140, "古董白", 250, 235, 215, "浅绿色", 175, 238, 238, "海蓝色", 127, 255, 212, "蔚蓝色", 240, 255, 255, "米色", 245, 245, 220, "橘黄色", 255, 228, 196, "白杏仁", 255, 235, 205)
For ii = 0 To UBound(Arr)
If Arr(ii) = Str Then
RetuColorRGB = RGB(Arr(ii + 1), Arr(ii + 2), Arr(ii + 3))
Exit Function
End If
Next ii
End Function
Sub l2()
Dim ColorArr
ColorArr = Array("白色", "黑色", "红色", "绿色", "蓝色", "青色", "紫色", "灰色", "黄色", "镉黄", "金黄", "肉黄", "粉黄", "香蕉黄", "黄绿色", "青绿色", "天蓝灰", "象牙灰", "亚麻灰", "杏仁灰", "贝壳灰", "棕褐色", "古董白", "浅绿色", "海蓝色", "蔚蓝色", "米色", "橘黄色", "白杏仁")
Dim Pres As Presentation
Set Pres = Application.ActivePresentation
Dim Sld As Slide
Dim Shp As Shape
Dim xx, yy
Dim ii, jj, Kk As Integer
Set Sld = Pres.Slides(1)
Dim I, RGBValue
'
For ii = Sld.Shapes.Count To 1 Step -1
Set Shp = Sld.Shapes(ii)
Shp.Delete
Next ii
I = 100
yy = 15
With Sld
With .Shapes
For ii = 1 To 10
xx = 2
For jj = 1 To 9
Set Shp = .AddShape(msoShapeRectangle, xx, yy, 75, 45)
If Kk >= 28 Then
Kk = 0
End If
Kk = Kk + 1
With Shp
.Fill.ForeColor.RGB = RetuColorRGB(ColorArr(Kk))
.TextFrame2.TextRange.Text = ColorArr(Kk)
.TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0) ' RetuColorRGB(ColorArr("黑色"))
End With
xx = xx + 80
Next
yy = yy + 50
Next ii
End With
End With
End Sub

复制代码

ning84 · 发表于 2024-10-23 19:41

AI 解答color转RGB

在VBA中，如果你有一个单元格的背景颜色值（`Interior.Color`返回的值），并且你想要将这个颜色值转换为RGB分量（红色、绿色和蓝色），你可以使用位运算来实现。以下是一个例子，展示了如何将`Interior.Color`返回的颜色值转换为RGB分量：

```vba
Sub ConvertColorToRGB(cellColor As Long, ByRef red As Integer, ByRef green As Integer, ByRef blue As Integer)
' 分解颜色值为RGB分量
red = (cellColor And &HFF0000) / &H10000 ' 提取红色分量并转换为0-255范围
green = (cellColor And &HFF00) / &H100 ' 提取绿色分量并转换为0-255范围
blue = cellColor And &HFF ' 提取蓝色分量

' 因为VBA中的颜色值可能是负数（有符号的长整型），所以我们需要确保RGB分量是正数
If red < 0 Then red = red + 256
If green < 0 Then green = green + 256
If blue < 0 Then blue = blue + 256
End Sub

' 使用示例
Sub TestConvertColorToRGB()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 设置你的工作表名称

Dim cellColor As Long
Dim red As Integer
Dim green As Integer
Dim blue As Integer

' 假设我们要获取A1单元格的背景颜色
cellColor = ws.Cells(1, 1).Interior.Color

' 转换颜色值为RGB分量
Call ConvertColorToRGB(cellColor, red, green, blue)

' 输出RGB值
Debug.Print "Red: " & red & ", Green: " & green & ", Blue: " & blue
End Sub
```

在这个例子中，`ConvertColorToRGB`子程序接受一个颜色值（`cellColor`）和三个整数变量的引用（`red`、`green`和`blue`）。它使用位运算符`And`来提取颜色值的红色、绿色和蓝色分量，并将它们转换为0到255的范围。然后，它通过引用修改传入的整数变量来返回RGB分量。

请注意，由于VBA中的颜色值可能是负数（有符号的长整型），所以我们可能需要将RGB分量转换为正数，以确保它们在正确的范围内。在上面的代码中，我们通过检查每个分量是否小于0并相应地添加256来实现这一点。

在实际使用中，你可以调用`TestConvertColorToRGB`子程序来测试这个功能，并根据需要修改工作表名称和单元格引用。

ning84 · 发表于 2024-10-23 20:44

琢磨用Interior.ColorIndex转RGB

Sub LL()
Dim Rng As Range
Set Rng = Selection
Dim Sht As Worksheet
Set Sht = Rng.Parent
Set Rng = Sht.Cells(2, 2)
For ii = 1 To 56
Set Rng = Sht.Cells(2 + ii, 2)
Rng.Interior.ColorIndex = ii

复制代码

jjmysjg · 发表于 2024-10-24 07:04

ning84 发表于 2024-10-22 16:20

Pres As Presentation 没定义
麻烦老师

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