主题：[求助]帮忙改造一下系统的“符号”框

1、想添加一些自定义标记字符，放入“符号”框中，不知道能不能添加？比如：=01、=02、=03......；或1-100的圆圈序号；

按照说明：

1、在菜单的系统事件Load中加入如下代码：

Dim s As String = "±×÷≌≈∽∝≠≮≯≤≥‰♂♀＄￥℃№☆★○●◎◇◆□■△▲"
Dim g As New RibbonMenu.Group("Symbol") '定义一个功能组，功能组的名称设为"Symbol"
g.Text = "符号" '设置功能组的标题
RibbonTabs("实战演练").Groups.Add(g) '将功能组添加到实战演练功能区
For i As Integer = 0 To s.Length - 1
    Dim b As New RibbonMenu.Button("Symbol" & i) '定义一个标准按钮
    b.Text= s.Chars(i) '设置按钮的标题
    g.Items.Add(b) '将按钮添加到功能组中
Next

2、然后在全局Click事件中加入如下代码：

'如果组件的名称是以Symbol开头
If e.Sender.Name.StartsWith("Symbol") Then
    '那么将组件的标题插入到选定单元格中
    CurrentTable.Value = e.Sender.Text
End If

我想将划横线部分的代码，将组件的标题插入到选定单元格中  变为插入到当前光标（既能插入当前单元格，又能插入窗口或控件）。

但是   ClipBoard.SetText(e.GalleryItem.Text)   不能放入全局Click事件中。

应该怎样设置？谢谢！

谢谢版主！

仍然是覆盖了。（见实战演练功能组）