如何为VB.NET开发的功能区添加SVG图标？Custom UI Editor报错处理

1. Custom UI Editor能否添加SVG图标？ #

不能。传统的Office Custom UI Editor工具仅支持位图格式图标（如PNG、ICO、BMP），完全不兼容SVG矢量格式。你遇到的“Parameter not supported!”提示就是工具本身不支持SVG的直接表现，无法通过该工具添加SVG图标到功能区。

2. Visual Studio中用VB.NET为功能区添加SVG图标 #

要实现这个需求，需要借助SVG渲染库将SVG转换为Office功能区可识别的图像格式，同时通过IRibbonExtensibility接口自定义图标加载逻辑，具体步骤如下：

步骤1：添加依赖与资源 #

• 在Visual Studio的NuGet包管理器中安装Svg.Skia库，用于解析和渲染SVG文件。
• 将SVG图标文件添加到VB.NET项目中，右键文件→属性→设置生成操作为嵌入的资源。

步骤2：实现IRibbonExtensibility接口 #

创建类实现IRibbonExtensibility接口，重写GetCustomUI和LoadImage方法：

Imports Microsoft.Office.Core
Imports Svg.Skia
Imports System.IO
Imports System.Reflection

Public Class RibbonHandler
    Implements IRibbonExtensibility

    ' 返回功能区XML定义
    Public Function GetCustomUI(RibbonID As String) As String Implements IRibbonExtensibility.GetCustomUI
        Return My.Resources.RibbonXml ' 假设功能区XML已存入项目资源
    End Function

    ' 加载并转换SVG图标
    Public Function LoadImage(imageName As String) As Object Implements IRibbonExtensibility.LoadImage
        Dim assembly As Assembly = Assembly.GetExecutingAssembly()
        ' 拼接嵌入资源的完整名称（格式：项目命名空间.文件夹名.SVG文件名）
        Dim resourcePath = $"YourProjectNamespace.Icons.{imageName}.svg"

        Using stream As Stream = assembly.GetManifestResourceStream(resourcePath)
            If stream Is Nothing Then Return Nothing

            Dim svg = SvgDocument.Open(stream)
            Dim bitmap = svg.Draw()
            Return bitmap
        End Using
    End Function
End Class

步骤3：配置功能区XML #

在功能区XML中，将按钮的image属性设置为SVG文件的名称（不带扩展名），Office会自动调用LoadImage方法加载对应SVG图标：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
  <ribbon>
    <tabs>
      <tab id="CustomTab" label="自定义标签">
        <group id="CustomGroup" label="自定义组">
          <button id="CustomButton" label="测试按钮" image="TestIcon" size="large" onAction="Button_Click"/>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

步骤4：初始化功能区 #

在Office插件的启动类中，初始化功能区处理程序：

Imports Microsoft.Office.Tools.Ribbon

Public Class ThisAddIn
    Private ribbonHandler As RibbonHandler

    Private Sub ThisAddIn_Startup(sender As Object, e As EventArgs) Handles Me.Startup
        ribbonHandler = New RibbonHandler()
    End Sub

    Private Sub ThisAddIn_Shutdown(sender As Object, e As EventArgs) Handles Me.Shutdown
    End Sub

    Protected Overrides Function CreateRibbonExtensibilityObject() As IRibbonExtensibility
        Return ribbonHandler
    End Function
End Class

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