动态公式编辑器

Question

使用VBA，我喜欢创建方程的动态可视化（使用公式编辑器）。 要创建图形公式，我想我需要找到一种方法来设置/获取HTML或RTF格式的字符串。在字符串中我放了一些标签来构建等式的图形部分。停止！

相同的样本与Excel中的单个单元格相关。我可以在里面：

<pre>
 <p class=MsoNormal>H<b>ell</span></b><h1>o</h1></p>
</pre>

如果我得到value，value2，文本我丢失了格式数据。细胞格式相同。我只能检查所有字符1 ... 1 如果我有像HTML或RTF这样的字符串，我不会丢失任何东西 我希望我能更好地解释......
感谢

Answer 1

我（部分）回答我自己...
现在我可以使用以下代码在公式对象中插入公式：

Sheets(1).Shapes("Textbox 5").DrawingObject.Text = kk
ActiveSheet.Shapes.Range(Array("TextBox 5")).Select
SendKeys "a{BS}{ENTER}{ESC}"
DoEvents
Range("A1").Select

但：
1）我的内部有一个方程形状。
2）我需要FORCE方程式重建使用SendKeys 我找到了一些建立公式的代码，我找到的其他代码......

我有SQRT的问题，因为我不知道（截至目前），如何在文本中添加UTF-8字符... 为了解决这个问题，我在此代码之前添加了：

Dim kk As String
Dim Tmp As String
kk = ""
Tmp = Range("InputFormula").Value
For e = 1 To Len(Tmp)
    If Mid(Tmp, e, 3) = "{v}" Then
        kk = kk & Range("Radice").Text
        e = e + 2
    Else
        kk = kk & Mid(Tmp, e, 1)
    End If
Next

复制带有UTF-8代码的单元格...