Редактор динамических уравнений

С помощью 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 внутри текста... Чтобы решить проблему, я добавил перед этим кодом:

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