Excel
VBA

VBAでExcelに数式(TeXみたいなやつのほう)を挿入

Officeの数式をVBAで書くにはどうすればいいかというメモ。

検索すると、Excelのセルで計算するほうの数式が引っかかってしまい、欲しい答えになかなかたどり着かなかった。

参考

コード

Sub InsertEquation(left, top, str)
    ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, left, top, 0, 0).Select
    Application.CommandBars.ExecuteMso "InsertBuildingBlocksEquationsGallery"
    Selection.Text = str
    Selection.Font.Size = 24
    Selection.ShapeRange.TextFrame2.WordWrap = msoFalse
    Application.CommandBars.ExecuteMso "EquationProfessional"
End Sub

Sub Sample()
    InsertEquation 30, 40, "F(t)=\sum_(x=0)^(n-1) \of \begin f(x) e^(-\ii  2\pi tx/N) \end"
End Sub

vba_insert_equation.png