动态方程编辑器答案

【问题标题】：Dynamic Equation Editor动态方程编辑器
【发布时间】：2014-05-22 13:49:54
【问题描述】：

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

相同的示例是关于 Excel 中的单个单元格。我可以在里面：

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

如果我得到 value, value2, text 我丢失了格式数据。单元格格式也是如此。我只能一一检查所有字符...
如果我有 HTML 或 RTF 之类的字符串，我不会丢失任何内容。
我希望我能解释得更好...
谢谢

【问题讨论】：

标签： excel equation

【解决方案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) 我需要使用 SendKeys 重新构建 FORCE 方程。
我找到了一些用于构建公式的代码，其他的我可以找到...

我对 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 代码的单元格...

【讨论】：