Equation Editor

Hi All,

I am currently creating a linear equation solver for teaching purposes. I have it working in cells but would like to tidy it up and therefore use the equation editor built into Excel.

However I am struggling to find anything about accessing it through VBA on google. Also recording a macro and rerunning it only creates a textbox rather than the equation editor.

Any advice on creating and accessing it would be hugely appreciated.

Thanks,
ARowbot

Hi,

Great question! I've rarely used the equation editor but find two good recourses at:

https://www.exceldemy.com/how-to-ins...uation-editor/ and
https://www.exceldemy.com/how-to-ins...stom-function/

I'd love to see what you have so far for demonstrating how you teach linear equations.

Can you attach what you have and we could see what direction you are going?

Sure, Please find attached what I have so far... If you find any bugs then please let me know as it is certainly a working progress.

I'm also still learning VBA so please if you have any advice on this question or anything else I could do to improve or tidy up the code then I'll be happy to hear it!

Thanks for the resources,

ARowbot

EDIT: Having looked through the resources, there seems to be nothing about accessing the equation through VBA...

Hey,

Very impressive workbook. As for the original question, I don't know of any way to program inside those "formula shapes". As for your code, you've done a lot of work to show students how to solve linear equations. I'm impressed with how you've implemented the columns downward with next steps.

I have two programming tools that might help you. PUP 7.2 will show you lots of info about your code and do reports telling you what you have. MZTools will help you code better. I've used it to auto indent your lines as I return your work.

Solving Linear Equations (1).xlsm

I did find a compile bug in "Old Stuff" where you have an Else without an If.

I'd put Option Explicit as the first line of each module to insure you have not misspelled any variable names.

It was fun looking at your code and trying to figure out what it does, with a limited amount of success. The variable names and how they associated to the worksheet was lots of my problem.

Sorry I couldn't be more of a help.

Hi,

Unfortunately, I know nothing about manipulating embedded OLE object of Equation.3 type so will not help here. I'm also impressed by the work done.
As with any program there are always some bugs. By chance - I found one, so share it with you:

Thanks for spotting! Just a typo when calculating the left brackets multiplier I was accidentally dividing by the other brackets denominator. Surprising I hadn't picked that up sooner! I'm starting to feel like it is impossible to deal with the equations...

It seems that an equation is a Microsoft word object hence maybe why I am struggling to record it in excel, can anyone shed any light on creating a word object using excel and then copy and paste it over?

For anybody interested...

Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application")
'appWD.Visible = True
appWD.Documents.Add

'Dim objRange As Range
Dim objEq As OMath
Set objRange = appWD.Selection.Range

objRange.Text = EqnString
                
Set objRange = appWD.Selection.OMaths.Add(objRange)
Set objEq = appWD.Selection.OMaths.Add(objRange).OMaths(1)
objEq.BuildUp
objEq.Range.Font.Size = 36
objEq.Range.Font.ColorIndex = wdBlue

appWD.ActiveDocument.Range.Copy

ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False
        
appWD.ActiveDocument.Saved = True
appWD.Quit

Set appWD = Nothing

If anybody knows a way to speed this up however I would be very grateful.