Редактор на динамични уравнения

С VBA обичам да създавам динамична визуализация на уравнение (с помощта на редактор на уравнения). За да създам графичната формула, предполагам, че трябва да намеря метод за задаване/получаване на низ като HTML или RTF формат. В низа поставих някакъв таг, за да изградя графичната част на уравнението. СПРИ СЕ !

Същата проба е за една клетка в Excel. Мога да имам вътре:

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

Ако получа стойност, стойност2, текст, загубих данните за формат. Същото и за формата на клетките. Мога само да проверя всички знаци 1 по 1...
Ако имам низ като HTML или RTF, не губя нищо.
Надявам се да съм обяснил по-добре...
Благодаря


excel equation
person user3514930    schedule 09.04.2014    source източник

Отговори (1)


arrow_upward
0
arrow_downward

Отговарям (частично) на себе си...
Сега мога да вмъкна в обект на уравнение формула с този код:

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.
Намерих някакъв код за изграждане на формулата, другите мога да намеря. ..

въведете описание на изображението тук

Имам проблем със SQRT, защото не знам (до сега) как да добавя UTF-8 char в текст... За да реша проблема, добавих преди този код:

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 вътре...

person user3514930    schedule 17.04.2014