如何在VBA中从枚举值获取对应的枚举名称？

在VBA中直接读取枚举类型属性时，默认返回的是对应数值而非枚举名称。以下是两种通用解决方案，适用于大多数Office和VBA内置枚举：

方案1：使用Office内置的EnumName方法（推荐，Office 2013+支持） #

部分Office版本提供了Application.EnumName方法，可直接将枚举值转换为名称，用法简洁：

修改你的示例代码 #

Sub Macro1()
    Sheets(1).Pictures.Insert("C:\Users\George\Downloads\MyPicture.png").Name = "Picture1"
    
    '传入枚举值和枚举类型名称，获取对应的枚举名称
    MsgBox Application.EnumName( _
        Sheets(1).Shapes("Picture1").PictureFormat.ColorType, _
        "msoPictureColorType" _
    )
End Sub

参数说明：

• 第一个参数：枚举的数值（比如示例中的1）
• 第二个参数：枚举的类型名称（比如msoPictureColorType）

方案2：通用自定义函数（兼容所有VBA版本） #

如果你的Office版本不支持EnumName，可使用以下自定义函数，通过遍历枚举成员匹配数值：

自定义转换函数 #

将以下代码添加到VBA模块中：

Option Explicit

Function EnumValueToName(enumValue As Long, enumTypeName As String) As String
    Dim typeLib As Object
    Dim typeInfo As Object
    Dim typeAttr As Object
    Dim varDesc As Object
    Dim i As Long
    
    '加载Office类型库（以Excel为例，路径根据你的Office版本调整）
    Set typeLib = CreateObject("Scripting.TypeLib")
    typeLib.LoadFromFile "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE"
    
    '获取指定枚举的TypeInfo
    Set typeInfo = typeLib.GetTypeInfoOfName(enumTypeName)
    Set typeAttr = typeInfo.GetTypeAttr()
    
    '遍历枚举所有成员，匹配数值
    For i = 0 To typeAttr.cVars - 1
        Set varDesc = typeInfo.GetVarDesc(i)
        If varDesc.varValue = enumValue Then
            EnumValueToName = typeInfo.GetNames(varDesc.memid)(0)
            Exit Function
        End If
    Next i
    
    '未找到匹配时返回默认值
    EnumValueToName = "未知枚举值: " & enumValue
    
    '释放资源
    Set varDesc = Nothing
    Set typeAttr = Nothing
    Set typeInfo = Nothing
    Set typeLib = Nothing
End Function

示例使用 #

Sub Macro1()
    Sheets(1).Pictures.Insert("C:\Users\George\Downloads\MyPicture.png").Name = "Picture1"
    
    MsgBox EnumValueToName( _
        Sheets(1).Shapes("Picture1").PictureFormat.ColorType, _
        "msoPictureColorType" _
    )
End Sub

注意：需确保Office类型库的路径正确，不同版本（如Office 2010/2016/365）的路径可能略有差异。

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