如何在Visio VBA中将MSOTINT颜色转换为RGB？

问题背景 #

我想编写一个Visio宏，将某一颜色的所有实例替换为另一种颜色，比如把RGB(255,128,0)替换成RGB(200,128,60)，调暗亮橙色。

用shp.CellsU("Fillforegnd").Formula或shp.CellsU("Fillforegnd").FormulaU查看页面形状的颜色时，大部分得到的是"THEMEGUARD(RGB(255;128;0))"这类值，我可以基于这些值测试和修改。但偶尔会碰到"MSOTINT(RGB(255;255;255);-5)"这类值，怎么获取这类形状颜色的实际RGB等效值？我要的是在UI里点击“填充...>更多颜色”看到的那种颜色值。

我试过shp.CellsU("Fillforegnd")，它返回整数（比如34或24），但不知道怎么转成RGB。

以下是我目前写的列出颜色的函数：

Sub list_colors()
    For Each shp In ActivePage.Shapes
        Debug.Print (shp.CellsU("Fillforegnd").Formula)
        Debug.Print (shp.CellsU("Fillforegnd"))
    Next
End Sub

页面里两个相同形状（一个标准颜色，一个自定义颜色）的输出示例：

THEMEGUARD(MSOTINT(RGB(255;255;255);-50))
 24 
THEMEGUARD(RGB(127;127;127))
 24 

解决方法 #

1. 获取形状的实际RGB颜色 #

Visio内置的ColorToRGB方法可以将单元格返回的颜色索引整数转换为实际RGB值，结合ResultIU属性读取单元格的计算结果（而非公式文本），就能得到UI中显示的真实颜色。

修改后的颜色获取函数：

Sub ListActualColors()
    Dim shp As Shape
    Dim colorIndex As Double
    Dim rgbValue As Long
    Dim r As Integer, g As Integer, b As Integer
    
    For Each shp In ActivePage.Shapes
        ' 获取填充色的计算值（颜色索引）
        colorIndex = shp.CellsU("Fillforegnd").ResultIU
        ' 转换为RGB长整型值
        rgbValue = Visio.Application.ColorToRGB(colorIndex)
        
        ' 拆分RGB分量
        r = (rgbValue And &HFF)
        g = (rgbValue And &HFF00) \ &H100
        b = (rgbValue And &HFF0000) \ &H10000
        
        Debug.Print "形状名称: " & shp.Name
        Debug.Print "公式: " & shp.CellsU("Fillforegnd").Formula
        Debug.Print "实际RGB: (" & r & ", " & g & ", " & b & ")"
        Debug.Print "-------------------------"
    Next shp
End Sub

2. 批量替换目标颜色的完整宏 #

下面的宏会遍历当前页面所有形状，自动匹配目标RGB颜色并替换为新颜色，不管原颜色是用RGB()、MSOTINT()还是其他公式定义的：

Sub ReplaceFillColor()
    Dim shp As Shape
    Dim targetRGB As Long
    Dim newRGB As Long
    Dim currentRGB As Long
    
    ' 定义要替换的目标颜色和新颜色（用VBA的RGB函数转换为长整型）
    targetRGB = RGB(255, 128, 0)
    newRGB = RGB(200, 128, 60)
    
    For Each shp In ActivePage.Shapes
        ' 跳过组形状（如需处理组内形状，可添加遍历GroupItems的逻辑）
        If shp.Type <> visGroup Then
            ' 获取当前形状填充色的实际RGB值
            currentRGB = Visio.Application.ColorToRGB(shp.CellsU("Fillforegnd").ResultIU)
            
            ' 匹配目标颜色则执行替换
            If currentRGB = targetRGB Then
                ' 直接设置新的RGB公式，自动移除THEMEGUARD锁定
                shp.CellsU("Fillforegnd").FormulaU = "RGB(" & (newRGB And &HFF) & "," & ((newRGB And &HFF00) \ &H100) & "," & ((newRGB And &HFF0000) \ &H10000) & ")"
                Debug.Print "已替换形状: " & shp.Name
            End If
        End If
    Next shp
    
    MsgBox "颜色替换完成！"
End Sub

关键说明 #

• ResultIU：返回单元格的实际计算结果（此处为颜色索引），区别于Formula返回的公式文本。
• ColorToRGB：Visio专属方法，将颜色索引转换为和VBARGB()函数一致的长整型值，确保颜色匹配准确。
• 替换时直接设置RGB()公式，会自动解除THEMEGUARD的主题锁定，避免颜色被Visio主题自动覆盖。

内容的提问来源于stack exchange，提问作者Francis