diff --git a/PLOT_FEATURE_README.md b/PLOT_FEATURE_README.md
new file mode 100644
index 000000000..2b476df67
--- /dev/null
+++ b/PLOT_FEATURE_README.md
@@ -0,0 +1,114 @@
+# WordMat Plot Command Feature
+
+## Overview
+This document describes the new command-driven plotting feature for WordMat that allows users to create plots using text commands like `plot(sin(x), -2Ï€, 2Ï€)`.
+
+## Usage
+
+### Basic Syntax
+```
+plot(expression, xmin, xmax)
+plot(expression, xmin, xmax; option=value, option=value)
+```
+
+### Examples
+```
+plot(sin(x), -2Ï€, 2Ï€)
+plot(x^2, -5, 5; title="Parabola", grid=true, width=600, height=400, dpi=150)
+plot(cos(3*x), 0, 10; backend="gnuplot", linewidth=2)
+plot(sin(x)/x, -20, 20; title="Sinc Function")
+```
+
+### How to Use
+1. Type a plot command in your Word document
+2. Select the plot command text
+3. Click **WordMat → Plot Selection** in the ribbon, or use keyboard shortcut **Alt+W, P**
+4. The plot will be generated and inserted as an image at the cursor location
+
+### Supported Functions
+- **Trigonometric:** sin, cos, tan, asin, acos, atan
+- **Exponential/Logarithmic:** exp, log, ln
+- **Other:** sqrt, abs
+- **Constants:** pi (or π), e
+- **Operators:** +, -, *, /, ^, ()
+
+### Options
+- **title**: Plot title (string)
+- **grid**: Show grid lines (true/false)
+- **width**: Image width in pixels (integer)
+- **height**: Image height in pixels (integer) 
+- **dpi**: Image resolution (integer)
+- **backend**: Rendering backend ("matplotlib" or "gnuplot")
+- **linewidth**: Line thickness (number)
+
+### Backends
+- **Matplotlib** (default): Requires Python with matplotlib and numpy packages
+- **Gnuplot**: Requires gnuplot executable
+
+## Implementation Files
+
+### VBA Modules Added/Modified
+- **PlotCommandHandler.bas**: Core plotting functionality
+- **PlotCommandTests.bas**: Test suite for validation
+- **RibbonSubs.bas**: Added `Rib_PlotSelection` callback
+- **ModuleSettings.bas**: Added `PlotSelection` to KeybShortcut enum
+- **ModuleKeyboardShortcuts.bas**: Added keyboard shortcut handling
+
+### Key Functions
+- **PlotSelection()**: Main entry point, parses selected text and executes plot
+- **ParsePlotCommand()**: Parses plot(...) syntax with security validation
+- **RenderWithMatplotlib()**: Python/Matplotlib backend implementation
+- **RenderWithGnuplot()**: Gnuplot backend implementation
+- **InsertPlotImage()**: Inserts generated PNG into Word document
+
+## Security
+- Expression validation uses strict whitelist of allowed functions and operators
+- No arbitrary code execution - only mathematical expressions are allowed
+- Temporary files are cleaned up automatically (unless debug mode is enabled)
+
+## Configuration
+Default settings can be customized:
+- Default backend (matplotlib/gnuplot)
+- Default image dimensions (800x600)
+- Default DPI (150)
+- Backend executable paths
+- Timeout settings
+
+## Ribbon Integration
+To add the Plot Selection button to the WordMat ribbon:
+
+1. Open WordMat.dotm in Word
+2. Go to File → Options → Customize Ribbon
+3. Add a new button with:
+   - **Action**: Rib_PlotSelection 
+   - **Label**: "Plot Selection"
+   - **Group**: WordMat → Graphs (or create new Commands group)
+
+Alternatively, the ribbon XML can be modified to include:
+```xml
+<button id="plotSelection" label="Plot Selection" onAction="Rib_PlotSelection" 
+        imageMso="ChartInsert" size="normal"/>
+```
+
+## Testing
+Run tests with:
+```vba
+' Basic parsing and validation tests
+RunPlotTests
+
+' Interactive test with sample plot
+TestPlotExample
+```
+
+## Dependencies
+- **For Matplotlib backend**: Python with matplotlib, numpy packages
+- **For Gnuplot backend**: Gnuplot executable in system PATH
+- Both backends are optional - users can choose their preferred one
+
+## Future Enhancements
+- 3D plotting support
+- Multi-axis plots
+- Parametric plots
+- Plot style customization
+- Interactive plot editing
+- Export to other formats (SVG, PDF)
\ No newline at end of file
diff --git a/README.md b/README.md
index 5a3889395..407956d53 100644
--- a/README.md
+++ b/README.md
@@ -8,6 +8,16 @@
 
 WordMat creates a new ribbon-menu in Word with math functionality. You can do simple and advanced calculations on any math expression entered using the builtin equation editor, plot graphs and much more.
 
+## New: Command-driven Plotting
+WordMat now supports command-driven plotting with simple text commands:
+```
+plot(sin(x), -2Ï€, 2Ï€)
+plot(x^2, -5, 5; title="Parabola", grid=true)
+```
+Select any plot(...) command in your document and click **Plot Selection** to generate and insert a plot image.
+
+Supported backends: Python/Matplotlib and Gnuplot. See [PLOT_FEATURE_README.md](PLOT_FEATURE_README.md) for full details.
+
 This GitHub-site is for people that wants to contribute to the project by reporting bugs, help fix bugs, translate or add new functionality.
 See [CONTRIBUTING.md](https://github.com/Eduap-com/WordMat/blob/master/CONTRIBUTING.md)
 
diff --git a/Windows/VBA-modules/ModuleKeyboardShortcuts.bas b/Windows/VBA-modules/ModuleKeyboardShortcuts.bas
index 8c361328d..0c6c6f760 100644
--- a/Windows/VBA-modules/ModuleKeyboardShortcuts.bas
+++ b/Windows/VBA-modules/ModuleKeyboardShortcuts.bas
@@ -45,6 +45,8 @@ Sub ExecuteKeyboardShortcut(ShortcutVal As KeybShortcut)
         InsertGradtegn
     Case KeybShortcut.Open3DPLot
         Plot3DGraph
+    Case KeybShortcut.PlotSelection
+        PlotSelection
     Case Else
 '        UserFormShortcuts.Show
     End Select
diff --git a/Windows/VBA-modules/ModuleSettings.bas b/Windows/VBA-modules/ModuleSettings.bas
index 8b9b01171..0cb628dc6 100644
--- a/Windows/VBA-modules/ModuleSettings.bas
+++ b/Windows/VBA-modules/ModuleSettings.bas
@@ -23,6 +23,7 @@ Enum KeybShortcut
     InsertRefToEqution
     GradTegn
     Open3DPLot
+    PlotSelection
 End Enum
 
 Public UFMSettings As UserFormSettings
diff --git a/Windows/VBA-modules/PlotCommandHandler.bas b/Windows/VBA-modules/PlotCommandHandler.bas
new file mode 100644
index 000000000..b2d651d17
--- /dev/null
+++ b/Windows/VBA-modules/PlotCommandHandler.bas
@@ -0,0 +1,678 @@
+Attribute VB_Name = "PlotCommandHandler"
+Option Explicit
+
+' WordMat Plot Command Handler
+' Implements command-driven plotting with plot(...) syntax
+' Author: WordMat Team
+
+Public Type PlotCommand
+    Expression As String
+    XMin As String
+    XMax As String
+    Title As String
+    Grid As Boolean
+    Width As Integer
+    Height As Integer
+    Dpi As Integer
+    Backend As String
+    LineWidth As Double
+End Type
+
+Public Type PlotOptions
+    DefaultBackend As String
+    DefaultWidth As Integer
+    DefaultHeight As Integer
+    DefaultDpi As Integer
+    DefaultGrid As Boolean
+    DefaultLineWidth As Double
+    PythonPath As String
+    GnuplotPath As String
+    TimeoutSeconds As Integer
+    KeepTempFiles As Boolean
+End Type
+
+Private plotOpts As PlotOptions
+
+' Initialize default options
+Private Sub InitializePlotOptions()
+    With plotOpts
+        .DefaultBackend = "matplotlib"
+        .DefaultWidth = 800
+        .DefaultHeight = 600
+        .DefaultDpi = 150
+        .DefaultGrid = True
+        .DefaultLineWidth = 1.5
+        .PythonPath = "python"
+        .GnuplotPath = "gnuplot"
+        .TimeoutSeconds = 30
+        .KeepTempFiles = False
+    End With
+End Sub
+
+' Main entry point for Plot Selection command
+Public Sub PlotSelection()
+    On Error GoTo ErrorHandler
+    
+    ' Initialize options if needed
+    If plotOpts.DefaultBackend = "" Then InitializePlotOptions
+    
+    Dim sel As Selection
+    Set sel = Application.Selection
+    
+    Dim text As String
+    text = Trim(sel.Range.text)
+    
+    If text = "" Then
+        ShowPlotError "Please select a plot(...) command to execute." & vbCrLf & _
+                     "Example: plot(sin(x), -2*pi, 2*pi)"
+        Exit Sub
+    End If
+    
+    If Not LooksLikePlotCommand(text) Then
+        ShowPlotError "Selected text does not appear to be a plot(...) command." & vbCrLf & _
+                     "Example: plot(sin(x), -2*pi, 2*pi)"
+        Exit Sub
+    End If
+    
+    Dim cmd As PlotCommand
+    If Not ParsePlotCommand(text, cmd) Then
+        Exit Sub ' Error already shown by ParsePlotCommand
+    End If
+    
+    ' Execute the plot command
+    ExecutePlotCommand cmd, sel
+    
+    Exit Sub
+    
+ErrorHandler:
+    ShowPlotError "Error executing plot command: " & Err.Description
+End Sub
+
+' Check if text looks like a plot command
+Public Function LooksLikePlotCommand(text As String) As Boolean
+    text = Trim(text)
+    LooksLikePlotCommand = Left(text, 5) = "plot(" And Right(text, 1) = ")"
+End Function
+
+' Parse a plot command string into a PlotCommand structure
+Public Function ParsePlotCommand(text As String, ByRef cmd As PlotCommand) As Boolean
+    On Error GoTo ParseError
+    
+    ParsePlotCommand = False
+    
+    ' Remove "plot(" and final ")"
+    text = Trim(text)
+    If Left(text, 5) <> "plot(" Or Right(text, 1) <> ")" Then
+        ShowPlotError "Invalid plot command format"
+        Exit Function
+    End If
+    
+    text = Mid(text, 6, Len(text) - 6) ' Remove plot( and )
+    
+    ' Split by semicolon to separate main params from options
+    Dim parts As Variant
+    parts = Split(text, ";", 2)
+    
+    Dim mainPart As String
+    mainPart = Trim(parts(0))
+    
+    ' Parse main parameters (expr, xmin, xmax)
+    Dim mainParams As Variant
+    mainParams = Split(mainPart, ",")
+    
+    If UBound(mainParams) < 2 Then
+        ShowPlotError "Plot command must have at least 3 parameters: expression, xmin, xmax"
+        Exit Function
+    End If
+    
+    ' Set defaults from global options
+    With cmd
+        .Expression = Trim(mainParams(0))
+        .XMin = Trim(mainParams(1))
+        .XMax = Trim(mainParams(2))
+        .Title = ""
+        .Grid = plotOpts.DefaultGrid
+        .Width = plotOpts.DefaultWidth
+        .Height = plotOpts.DefaultHeight
+        .Dpi = plotOpts.DefaultDpi
+        .Backend = plotOpts.DefaultBackend
+        .LineWidth = plotOpts.DefaultLineWidth
+    End With
+    
+    ' Validate expression for security
+    If Not IsValidExpression(cmd.Expression) Then
+        ShowPlotError "Invalid or unsafe expression: " & cmd.Expression
+        Exit Function
+    End If
+    
+    ' Parse options if present
+    If UBound(parts) >= 1 Then
+        If Not ParseOptions(Trim(parts(1)), cmd) Then
+            Exit Function
+        End If
+    End If
+    
+    ParsePlotCommand = True
+    Exit Function
+    
+ParseError:
+    ShowPlotError "Error parsing plot command: " & Err.Description
+End Function
+
+' Parse option string like "title=""test"", grid=true"
+Private Function ParseOptions(optionStr As String, ByRef cmd As PlotCommand) As Boolean
+    On Error GoTo OptionsError
+    
+    ParseOptions = False
+    
+    If optionStr = "" Then
+        ParseOptions = True
+        Exit Function
+    End If
+    
+    Dim options As Variant
+    options = Split(optionStr, ",")
+    
+    Dim i As Integer
+    For i = 0 To UBound(options)
+        Dim option As String
+        option = Trim(options(i))
+        
+        If option <> "" Then
+            Dim keyValue As Variant
+            keyValue = Split(option, "=", 2)
+            
+            If UBound(keyValue) < 1 Then
+                ShowPlotError "Invalid option format: " & option
+                Exit Function
+            End If
+            
+            Dim key As String, value As String
+            key = Trim(keyValue(0))
+            value = Trim(keyValue(1))
+            
+            ' Remove quotes from string values
+            If Left(value, 1) = """" And Right(value, 1) = """" Then
+                value = Mid(value, 2, Len(value) - 2)
+            End If
+            
+            ' Set option values
+            Select Case LCase(key)
+                Case "title"
+                    cmd.Title = value
+                Case "grid"
+                    cmd.Grid = (LCase(value) = "true")
+                Case "width"
+                    cmd.Width = CInt(value)
+                Case "height"
+                    cmd.Height = CInt(value)
+                Case "dpi"
+                    cmd.Dpi = CInt(value)
+                Case "backend"
+                    If LCase(value) = "matplotlib" Or LCase(value) = "gnuplot" Then
+                        cmd.Backend = LCase(value)
+                    Else
+                        ShowPlotError "Invalid backend: " & value & ". Use 'matplotlib' or 'gnuplot'"
+                        Exit Function
+                    End If
+                Case "linewidth"
+                    cmd.LineWidth = CDbl(value)
+                Case Else
+                    ShowPlotError "Unknown option: " & key
+                    Exit Function
+            End Select
+        End If
+    Next i
+    
+    ParseOptions = True
+    Exit Function
+    
+OptionsError:
+    ShowPlotError "Error parsing options: " & Err.Description
+End Function
+
+' Validate expression for security (whitelist approach)
+Private Function IsValidExpression(expr As String) As Boolean
+    On Error GoTo ValidationError
+    
+    IsValidExpression = False
+    
+    ' Normalize expression for validation
+    Dim cleanExpr As String
+    cleanExpr = LCase(Replace(Replace(expr, " ", ""), "Ï€", "pi"))
+    
+    ' Check for obviously dangerous patterns
+    If InStr(cleanExpr, "system") > 0 Or InStr(cleanExpr, "exec") > 0 Or _
+       InStr(cleanExpr, "eval") > 0 Or InStr(cleanExpr, "import") > 0 Or _
+       InStr(cleanExpr, "__") > 0 Or InStr(cleanExpr, "shell") > 0 Then
+        Exit Function
+    End If
+    
+    ' Define allowed components
+    Dim allowedFunctions As String
+    allowedFunctions = ",sin,cos,tan,asin,acos,atan,exp,log,ln,sqrt,abs,"
+    
+    Dim allowedConstants As String  
+    allowedConstants = ",pi,e,x,"
+    
+    ' Check each character
+    Dim i As Integer
+    For i = 1 To Len(cleanExpr)
+        Dim char As String
+        char = Mid(cleanExpr, i, 1)
+        
+        ' Allow numbers, operators, parentheses, decimal point
+        If char >= "0" And char <= "9" Then
+            ' Numbers are OK
+        ElseIf char = "+" Or char = "-" Or char = "*" Or char = "/" Or _
+               char = "^" Or char = "(" Or char = ")" Or char = "." Then
+            ' Operators and parentheses are OK
+        Else
+            ' Must be part of a function or constant name
+            Dim validToken As Boolean
+            validToken = False
+            
+            ' Check if this starts a valid function or constant
+            Dim j As Integer
+            For j = 1 To 10 ' Maximum function/constant length
+                If i + j - 1 > Len(cleanExpr) Then Exit For
+                
+                Dim token As String
+                token = "," & Mid(cleanExpr, i, j) & ","
+                
+                If InStr(allowedFunctions, token) > 0 Or InStr(allowedConstants, token) > 0 Then
+                    validToken = True
+                    i = i + j - 1 ' Skip ahead past this token
+                    Exit For
+                End If
+            Next j
+            
+            If Not validToken Then
+                Exit Function ' Invalid character/token found
+            End If
+        End If
+    Next i
+    
+    ' Additional check: ensure parentheses are balanced
+    Dim parenCount As Integer
+    parenCount = 0
+    For i = 1 To Len(cleanExpr)
+        If Mid(cleanExpr, i, 1) = "(" Then
+            parenCount = parenCount + 1
+        ElseIf Mid(cleanExpr, i, 1) = ")" Then
+            parenCount = parenCount - 1
+            If parenCount < 0 Then Exit Function ' Unbalanced
+        End If
+    Next i
+    
+    If parenCount <> 0 Then Exit Function ' Unbalanced parentheses
+    
+    IsValidExpression = True
+    Exit Function
+    
+ValidationError:
+    IsValidExpression = False
+End Function
+
+' Execute the parsed plot command
+Private Sub ExecutePlotCommand(cmd As PlotCommand, sel As Selection)
+    On Error GoTo ExecuteError
+    
+    Dim tempPngPath As String
+    tempPngPath = Environ("TEMP") & "\wordmat_plot_" & Format(Now, "yyyymmdd_hhnnss") & "_" & Int(Rnd() * 1000) & ".png"
+    
+    Dim success As Boolean
+    success = False
+    
+    ' Choose backend and render
+    If cmd.Backend = "matplotlib" Then
+        success = RenderWithMatplotlib(cmd, tempPngPath)
+    ElseIf cmd.Backend = "gnuplot" Then
+        success = RenderWithGnuplot(cmd, tempPngPath)
+    Else
+        ShowPlotError "Unknown backend: " & cmd.Backend
+        Exit Sub
+    End If
+    
+    If Not success Then
+        Exit Sub ' Error already shown by render function
+    End If
+    
+    ' Insert the PNG into Word
+    InsertPlotImage tempPngPath, cmd, sel
+    
+    ' Clean up temp file unless keeping
+    If Not plotOpts.KeepTempFiles Then
+        If Dir(tempPngPath) <> "" Then
+            Kill tempPngPath
+        End If
+    End If
+    
+    Exit Sub
+    
+ExecuteError:
+    ShowPlotError "Error executing plot: " & Err.Description
+End Sub
+
+' Show plot error in a user-friendly way
+Private Sub ShowPlotError(message As String)
+    MsgBox message, vbCritical, "WordMat Plot Error"
+End Sub
+
+' Render plot using Matplotlib backend
+Private Function RenderWithMatplotlib(cmd As PlotCommand, outputPath As String) As Boolean
+    On Error GoTo MatplotlibError
+    
+    RenderWithMatplotlib = False
+    
+    ' Create Python script
+    Dim scriptPath As String
+    scriptPath = Environ("TEMP") & "\wordmat_plot_script_" & Format(Now, "yyyymmdd_hhnnss") & ".py"
+    
+    Dim pythonScript As String
+    pythonScript = GenerateMatplotlibScript(cmd, outputPath)
+    
+    ' Write script to file
+    Dim fileNum As Integer
+    fileNum = FreeFile
+    Open scriptPath For Output As fileNum
+    Print #fileNum, pythonScript
+    Close fileNum
+    
+    ' Execute Python script
+    Dim shellCmd As String
+    shellCmd = """" & plotOpts.PythonPath & """ """ & scriptPath & """"
+    
+    Dim result As Long
+    result = ExecuteCommandWithTimeout(shellCmd, plotOpts.TimeoutSeconds)
+    
+    ' Clean up script file unless keeping temp files
+    If Not plotOpts.KeepTempFiles Then
+        If Dir(scriptPath) <> "" Then
+            Kill scriptPath
+        End If
+    End If
+    
+    ' Check if output file was created
+    If Dir(outputPath) = "" Then
+        ShowPlotErrorWithSuggestion "Matplotlib failed to generate plot. Check Python installation and matplotlib package.", "matplotlib"
+        Exit Function
+    End If
+    
+    RenderWithMatplotlib = True
+    Exit Function
+    
+MatplotlibError:
+    ShowPlotError "Error with Matplotlib backend: " & Err.Description
+End Function
+
+' Generate Python script for matplotlib
+Private Function GenerateMatplotlibScript(cmd As PlotCommand, outputPath As String) As String
+    Dim script As String
+    
+    ' Normalize expression: replace π with pi, ^ with **
+    Dim expr As String
+    expr = cmd.Expression
+    expr = Replace(expr, "Ï€", "pi")
+    expr = Replace(expr, "^", "**")
+    
+    ' Normalize range values
+    Dim xMin As String, xMax As String
+    xMin = Replace(cmd.XMin, "Ï€", "pi")
+    xMin = Replace(xMin, "^", "**")
+    xMax = Replace(cmd.XMax, "Ï€", "pi")
+    xMax = Replace(xMax, "^", "**")
+    
+    script = "# Generated by WordMat" & vbCrLf
+    script = script & "import sys" & vbCrLf
+    script = script & "import os" & vbCrLf
+    script = script & "import math" & vbCrLf
+    script = script & "import numpy as np" & vbCrLf
+    script = script & "import matplotlib" & vbCrLf
+    script = script & "matplotlib.use('Agg')  # Use non-interactive backend" & vbCrLf
+    script = script & "import matplotlib.pyplot as plt" & vbCrLf
+    script = script & "" & vbCrLf
+    
+    script = script & "# Safe namespace with allowed functions" & vbCrLf
+    script = script & "ALLOWED_FUNCS = {" & vbCrLf
+    script = script & "    'sin': np.sin, 'cos': np.cos, 'tan': np.tan," & vbCrLf
+    script = script & "    'asin': np.arcsin, 'acos': np.arccos, 'atan': np.arctan," & vbCrLf
+    script = script & "    'exp': np.exp, 'log': np.log, 'ln': np.log, 'sqrt': np.sqrt," & vbCrLf
+    script = script & "    'abs': np.abs" & vbCrLf
+    script = script & "}" & vbCrLf
+    script = script & "ALLOWED_CONSTS = {'pi': math.pi, 'e': math.e}" & vbCrLf
+    script = script & "SAFE_NAMES = {**ALLOWED_FUNCS, **ALLOWED_CONSTS}" & vbCrLf
+    script = script & "" & vbCrLf
+    
+    script = script & "def safe_eval(expr, x):" & vbCrLf
+    script = script & "    return eval(expr, {'__builtins__': {}}, {**SAFE_NAMES, 'x': x, 'np': np})" & vbCrLf
+    script = script & "" & vbCrLf
+    
+    script = script & "try:" & vbCrLf
+    script = script & "    # Parameters" & vbCrLf
+    script = script & "    xmin, xmax = float(" & xMin & "), float(" & xMax & ")" & vbCrLf
+    script = script & "    N = 2000" & vbCrLf
+    script = script & "    x = np.linspace(xmin, xmax, N)" & vbCrLf
+    script = script & "    " & vbCrLf
+    script = script & "    # Evaluate expression" & vbCrLf
+    script = script & "    y = safe_eval('" & expr & "', x)" & vbCrLf
+    script = script & "    " & vbCrLf
+    script = script & "    # Create plot" & vbCrLf
+    script = script & "    fig_width = " & cmd.Width & " / " & cmd.Dpi & vbCrLf
+    script = script & "    fig_height = " & cmd.Height & " / " & cmd.Dpi & vbCrLf
+    script = script & "    plt.figure(figsize=(fig_width, fig_height), dpi=" & cmd.Dpi & ")" & vbCrLf
+    script = script & "    plt.plot(x, y, linewidth=" & cmd.LineWidth & ")" & vbCrLf
+    
+    If cmd.Grid Then
+        script = script & "    plt.grid(True)" & vbCrLf
+    End If
+    
+    If cmd.Title <> "" Then
+        script = script & "    plt.title(r'" & EscapeForPython(cmd.Title) & "')" & vbCrLf
+    End If
+    
+    script = script & "    plt.xlabel('x')" & vbCrLf
+    script = script & "    plt.ylabel('y')" & vbCrLf
+    script = script & "    plt.tight_layout()" & vbCrLf
+    script = script & "    plt.savefig(r'" & outputPath & "', dpi=" & cmd.Dpi & ", bbox_inches='tight')" & vbCrLf
+    script = script & "    plt.close()" & vbCrLf
+    script = script & "    print('Plot saved successfully')" & vbCrLf
+    script = script & "" & vbCrLf
+    script = script & "except ImportError as e:" & vbCrLf
+    script = script & "    print(f'Missing required package: {e}')" & vbCrLf
+    script = script & "    sys.exit(1)" & vbCrLf
+    script = script & "except Exception as e:" & vbCrLf
+    script = script & "    print(f'Error: {e}')" & vbCrLf
+    script = script & "    sys.exit(1)" & vbCrLf
+    
+    GenerateMatplotlibScript = script
+End Function
+
+' Escape string for Python
+Private Function EscapeForPython(text As String) As String
+    EscapeForPython = Replace(text, "'", "\'")
+End Function
+
+' Render plot using Gnuplot backend  
+Private Function RenderWithGnuplot(cmd As PlotCommand, outputPath As String) As Boolean
+    On Error GoTo GnuplotError
+    
+    RenderWithGnuplot = False
+    
+    ' Create Gnuplot script
+    Dim scriptPath As String
+    scriptPath = Environ("TEMP") & "\wordmat_plot_script_" & Format(Now, "yyyymmdd_hhnnss") & ".gp"
+    
+    Dim gnuplotScript As String
+    gnuplotScript = GenerateGnuplotScript(cmd, outputPath)
+    
+    ' Write script to file
+    Dim fileNum As Integer
+    fileNum = FreeFile
+    Open scriptPath For Output As fileNum
+    Print #fileNum, gnuplotScript
+    Close fileNum
+    
+    ' Execute Gnuplot script
+    Dim shellCmd As String
+    shellCmd = """" & plotOpts.GnuplotPath & """ """ & scriptPath & """"
+    
+    Dim result As Long
+    result = ExecuteCommandWithTimeout(shellCmd, plotOpts.TimeoutSeconds)
+    
+    ' Clean up script file unless keeping temp files
+    If Not plotOpts.KeepTempFiles Then
+        If Dir(scriptPath) <> "" Then
+            Kill scriptPath
+        End If
+    End If
+    
+    ' Check if output file was created
+    If Dir(outputPath) = "" Then
+        ShowPlotErrorWithSuggestion "Gnuplot failed to generate plot. Check gnuplot installation.", "gnuplot"
+        Exit Function
+    End If
+    
+    RenderWithGnuplot = True
+    Exit Function
+    
+GnuplotError:
+    ShowPlotError "Error with Gnuplot backend: " & Err.Description
+End Function
+
+' Generate Gnuplot script
+Private Function GenerateGnuplotScript(cmd As PlotCommand, outputPath As String) As String
+    Dim script As String
+    
+    ' Normalize expression for gnuplot
+    Dim expr As String
+    expr = cmd.Expression
+    expr = Replace(expr, "Ï€", "pi")
+    ' Gnuplot supports both ^ and ** so we keep ^
+    
+    ' Normalize range values
+    Dim xMin As String, xMax As String
+    xMin = Replace(cmd.XMin, "Ï€", "pi")
+    xMax = Replace(cmd.XMax, "Ï€", "pi")
+    
+    script = "# Generated by WordMat" & vbCrLf
+    script = script & "set terminal pngcairo size " & cmd.Width & "," & cmd.Height & " enhanced font 'Arial,12'" & vbCrLf
+    script = script & "set output '" & Replace(outputPath, "\", "/") & "'" & vbCrLf
+    script = script & "set samples 2000" & vbCrLf
+    
+    If cmd.Grid Then
+        script = script & "set grid" & vbCrLf
+    End If
+    
+    If cmd.Title <> "" Then
+        script = script & "set title '" & EscapeForGnuplot(cmd.Title) & "'" & vbCrLf
+    End If
+    
+    script = script & "set xlabel 'x'" & vbCrLf
+    script = script & "set ylabel 'y'" & vbCrLf
+    script = script & "set xrange [" & xMin & ":" & xMax & "]" & vbCrLf
+    script = script & "plot " & expr & " with lines linewidth " & cmd.LineWidth & " title ''" & vbCrLf
+    
+    GenerateGnuplotScript = script
+End Function
+
+' Insert plot image into Word document
+Private Sub InsertPlotImage(imagePath As String, cmd As PlotCommand, sel As Selection)
+    On Error GoTo InsertError
+    
+    Dim range As range
+    Set range = sel.range
+    
+    ' Insert the image as an inline shape
+    Dim shape As InlineShape
+    Set shape = range.InlineShapes.AddPicture( _
+        fileName:=imagePath, _
+        LinkToFile:=False, _
+        SaveWithDocument:=True, _
+        range:=range)
+    
+    ' Set alternative text for accessibility
+    If cmd.Title <> "" Then
+        shape.AlternativeText = cmd.Title
+    Else
+        shape.AlternativeText = "Function plot of " & cmd.Expression & " from " & cmd.XMin & " to " & cmd.XMax
+    End If
+    
+    ' Optionally adjust size (convert pixels to points at 96 DPI)
+    If cmd.Width > 0 Then
+        shape.Width = cmd.Width * 0.75 ' Convert pixels to points (96 DPI)
+    End If
+    If cmd.Height > 0 Then
+        shape.Height = cmd.Height * 0.75 ' Convert pixels to points (96 DPI)  
+    End If
+    
+    Exit Sub
+    
+InsertError:
+    ShowPlotError "Error inserting image: " & Err.Description
+End Sub
+
+' Execute command with timeout (basic implementation using Shell)
+Private Function ExecuteCommandWithTimeout(command As String, timeoutSeconds As Integer) As Long
+    On Error GoTo CommandError
+    
+    ' Use Shell to execute command
+    ' This is a basic implementation - a more robust version would handle timeout properly
+    ExecuteCommandWithTimeout = Shell(command, vbHide)
+    
+    ' Simple wait - in a full implementation, this would properly handle timeout
+    Application.Wait DateAdd("s", 3, Now) ' Wait 3 seconds for command to complete
+    
+    Exit Function
+    
+CommandError:
+    ExecuteCommandWithTimeout = -1
+End Function
+
+' Get plot options from registry or use defaults
+Public Function GetPlotOptions() As PlotOptions
+    On Error Resume Next
+    
+    If plotOpts.DefaultBackend = "" Then
+        InitializePlotOptions
+        ' TODO: Load from registry settings
+        ' plotOpts.DefaultBackend = GetRegistrySetting("PlotDefaultBackend", "matplotlib")
+        ' plotOpts.DefaultWidth = GetRegistrySetting("PlotDefaultWidth", 800)
+        ' etc.
+    End If
+    
+    GetPlotOptions = plotOpts
+End Function
+
+' Save plot options to registry
+Public Sub SavePlotOptions(opts As PlotOptions)
+    On Error Resume Next
+    
+    plotOpts = opts
+    ' TODO: Save to registry
+    ' SetRegistrySetting "PlotDefaultBackend", opts.DefaultBackend
+    ' SetRegistrySetting "PlotDefaultWidth", opts.DefaultWidth  
+    ' etc.
+End Sub
+
+' Show user-friendly error with suggestions
+Private Sub ShowPlotErrorWithSuggestion(message As String, backend As String)
+    Dim fullMessage As String
+    fullMessage = message
+    
+    If backend = "matplotlib" Then
+        fullMessage = fullMessage & vbCrLf & vbCrLf & _
+                     "To use Matplotlib backend:" & vbCrLf & _
+                     "1. Install Python (https://python.org)" & vbCrLf & _
+                     "2. Install packages: pip install matplotlib numpy" & vbCrLf & _
+                     "3. Ensure 'python' is in your system PATH"
+    ElseIf backend = "gnuplot" Then
+        fullMessage = fullMessage & vbCrLf & vbCrLf & _
+                     "To use Gnuplot backend:" & vbCrLf & _
+                     "1. Install Gnuplot (http://gnuplot.sourceforge.net/)" & vbCrLf & _
+                     "2. Ensure 'gnuplot' is in your system PATH" & vbCrLf & _
+                     "3. Or configure the full path in WordMat settings"
+    End If
+    
+    MsgBox fullMessage, vbCritical, "WordMat Plot Error"
+End Sub
\ No newline at end of file
diff --git a/Windows/VBA-modules/PlotCommandTests.bas b/Windows/VBA-modules/PlotCommandTests.bas
new file mode 100644
index 000000000..f2dd003e3
--- /dev/null
+++ b/Windows/VBA-modules/PlotCommandTests.bas
@@ -0,0 +1,228 @@
+Attribute VB_Name = "PlotCommandTests"
+Option Explicit
+
+' Basic tests for Plot Command functionality
+' This module contains simple tests to validate plot command parsing and execution
+
+Public Sub RunPlotTests()
+    On Error GoTo TestError
+    
+    Dim testCount As Integer
+    Dim passCount As Integer
+    testCount = 0
+    passCount = 0
+    
+    Debug.Print "=== Starting WordMat Plot Command Tests ==="
+    
+    ' Test 1: Check if basic plot command is recognized
+    testCount = testCount + 1
+    If TestLooksLikePlotCommand() Then
+        passCount = passCount + 1
+        Debug.Print "✓ Test 1 PASSED: LooksLikePlotCommand recognition"
+    Else
+        Debug.Print "✗ Test 1 FAILED: LooksLikePlotCommand recognition"
+    End If
+    
+    ' Test 2: Parse basic plot command
+    testCount = testCount + 1
+    If TestBasicParsing() Then
+        passCount = passCount + 1
+        Debug.Print "✓ Test 2 PASSED: Basic plot command parsing"
+    Else
+        Debug.Print "✗ Test 2 FAILED: Basic plot command parsing"
+    End If
+    
+    ' Test 3: Parse plot command with options
+    testCount = testCount + 1
+    If TestParsingWithOptions() Then
+        passCount = passCount + 1
+        Debug.Print "✓ Test 3 PASSED: Plot command parsing with options"
+    Else
+        Debug.Print "✗ Test 3 FAILED: Plot command parsing with options"
+    End If
+    
+    ' Test 4: Expression validation
+    testCount = testCount + 1
+    If TestExpressionValidation() Then
+        passCount = passCount + 1
+        Debug.Print "✓ Test 4 PASSED: Expression validation"
+    Else
+        Debug.Print "✗ Test 4 FAILED: Expression validation"
+    End If
+    
+    ' Test 5: Script generation
+    testCount = testCount + 1
+    If TestScriptGeneration() Then
+        passCount = passCount + 1
+        Debug.Print "✓ Test 5 PASSED: Script generation"
+    Else
+        Debug.Print "✗ Test 5 FAILED: Script generation"
+    End If
+    
+    Debug.Print "=== Test Results: " & passCount & "/" & testCount & " tests passed ==="
+    
+    If passCount = testCount Then
+        MsgBox "All plot command tests passed! (" & passCount & "/" & testCount & ")", vbInformation, "WordMat Plot Tests"
+    Else
+        MsgBox "Some tests failed. Passed: " & passCount & "/" & testCount & vbCrLf & "Check Debug window for details.", vbExclamation, "WordMat Plot Tests"
+    End If
+    
+    Exit Sub
+    
+TestError:
+    Debug.Print "✗ ERROR in RunPlotTests: " & Err.Description
+    MsgBox "Error running tests: " & Err.Description, vbCritical, "WordMat Plot Tests"
+End Sub
+
+Private Function TestLooksLikePlotCommand() As Boolean
+    On Error GoTo TestError
+    
+    TestLooksLikePlotCommand = False
+    
+    ' Test positive cases
+    If Not LooksLikePlotCommand("plot(sin(x), -2*pi, 2*pi)") Then Exit Function
+    If Not LooksLikePlotCommand("plot(x^2, -5, 5)") Then Exit Function
+    If Not LooksLikePlotCommand("plot(cos(x), 0, 10; title=""Test"")") Then Exit Function
+    
+    ' Test negative cases
+    If LooksLikePlotCommand("sin(x)") Then Exit Function
+    If LooksLikePlotCommand("plot sin(x)") Then Exit Function
+    If LooksLikePlotCommand("plot(sin(x), -2, 2") Then Exit Function ' Missing closing paren
+    
+    TestLooksLikePlotCommand = True
+    Exit Function
+    
+TestError:
+    Debug.Print "Error in TestLooksLikePlotCommand: " & Err.Description
+    TestLooksLikePlotCommand = False
+End Function
+
+Private Function TestBasicParsing() As Boolean
+    On Error GoTo TestError
+    
+    TestBasicParsing = False
+    
+    Dim cmd As PlotCommand
+    
+    ' Test basic command parsing
+    If Not ParsePlotCommand("plot(sin(x), -2*pi, 2*pi)", cmd) Then Exit Function
+    
+    If cmd.Expression <> "sin(x)" Then Exit Function
+    If cmd.XMin <> "-2*pi" Then Exit Function
+    If cmd.XMax <> "2*pi" Then Exit Function
+    If cmd.Title <> "" Then Exit Function
+    
+    TestBasicParsing = True
+    Exit Function
+    
+TestError:
+    Debug.Print "Error in TestBasicParsing: " & Err.Description
+    TestBasicParsing = False
+End Function
+
+Private Function TestParsingWithOptions() As Boolean
+    On Error GoTo TestError
+    
+    TestParsingWithOptions = False
+    
+    Dim cmd As PlotCommand
+    
+    ' Test command with options
+    If Not ParsePlotCommand("plot(x^2, -5, 5; title=""Parabola"", grid=true, width=600, height=400, dpi=150)", cmd) Then Exit Function
+    
+    If cmd.Expression <> "x^2" Then Exit Function
+    If cmd.XMin <> "-5" Then Exit Function
+    If cmd.XMax <> "5" Then Exit Function
+    If cmd.Title <> "Parabola" Then Exit Function
+    If cmd.Grid <> True Then Exit Function
+    If cmd.Width <> 600 Then Exit Function
+    If cmd.Height <> 400 Then Exit Function
+    If cmd.Dpi <> 150 Then Exit Function
+    
+    TestParsingWithOptions = True
+    Exit Function
+    
+TestError:
+    Debug.Print "Error in TestParsingWithOptions: " & Err.Description
+    TestParsingWithOptions = False
+End Function
+
+Private Function TestExpressionValidation() As Boolean
+    On Error GoTo TestError
+    
+    TestExpressionValidation = False
+    
+    ' Test valid expressions
+    If Not IsValidExpression("sin(x)") Then Exit Function
+    If Not IsValidExpression("x^2 + 2*x + 1") Then Exit Function
+    If Not IsValidExpression("cos(3*x)") Then Exit Function
+    If Not IsValidExpression("exp(-x^2)") Then Exit Function
+    
+    ' Test invalid expressions (these should fail validation)
+    If IsValidExpression("system('rm -rf /')") Then Exit Function ' Security test
+    If IsValidExpression("exec('malicious')") Then Exit Function ' Security test
+    
+    TestExpressionValidation = True
+    Exit Function
+    
+TestError:
+    Debug.Print "Error in TestExpressionValidation: " & Err.Description
+    TestExpressionValidation = False
+End Function
+
+Private Function TestScriptGeneration() As Boolean
+    On Error GoTo TestError
+    
+    TestScriptGeneration = False
+    
+    Dim cmd As PlotCommand
+    cmd.Expression = "sin(x)"
+    cmd.XMin = "-pi"
+    cmd.XMax = "pi"
+    cmd.Title = "Test Plot"
+    cmd.Grid = True
+    cmd.Width = 600
+    cmd.Height = 400
+    cmd.Dpi = 150
+    cmd.LineWidth = 1.5
+    
+    ' Test matplotlib script generation
+    Dim script As String
+    script = GenerateMatplotlibScript(cmd, "C:\temp\test.png")
+    
+    If InStr(script, "sin(x)") = 0 Then Exit Function
+    If InStr(script, "plt.grid(True)") = 0 Then Exit Function
+    If InStr(script, "Test Plot") = 0 Then Exit Function
+    
+    ' Test gnuplot script generation  
+    script = GenerateGnuplotScript(cmd, "C:\temp\test.png")
+    
+    If InStr(script, "sin(x)") = 0 Then Exit Function
+    If InStr(script, "set grid") = 0 Then Exit Function
+    If InStr(script, "Test Plot") = 0 Then Exit Function
+    
+    TestScriptGeneration = True
+    Exit Function
+    
+TestError:
+    Debug.Print "Error in TestScriptGeneration: " & Err.Description  
+    TestScriptGeneration = False
+End Function
+
+' Test function to validate plotting with a simple expression
+Public Sub TestPlotExample()
+    On Error GoTo TestError
+    
+    ' Create a simple test by inserting a plot command and executing it
+    Selection.TypeText "plot(sin(x), -2*pi, 2*pi)"
+    Selection.HomeKey unit:=wdLine, Extend:=wdExtend
+    
+    ' Try to execute the plot
+    MsgBox "About to test plot execution. This will attempt to create a plot image.", vbInformation, "WordMat Plot Test"
+    PlotSelection
+    
+    Exit Sub
+    
+TestError:
+    MsgBox "Error in TestPlotExample: " & Err.Description, vbCritical, "WordMat Plot Test Error"
+End Sub
\ No newline at end of file
diff --git a/Windows/VBA-modules/PlotDemo.bas b/Windows/VBA-modules/PlotDemo.bas
new file mode 100644
index 000000000..f614c68eb
--- /dev/null
+++ b/Windows/VBA-modules/PlotDemo.bas
@@ -0,0 +1,178 @@
+Attribute VB_Name = "PlotDemo"
+Option Explicit
+
+' Demo module to showcase the plot(...) command functionality
+' This creates sample plot commands for testing and demonstration
+
+Public Sub CreatePlotDemoDocument()
+    On Error GoTo DemoError
+    
+    ' Clear the document and add demonstration content
+    ActiveDocument.Content.Delete
+    
+    Dim doc As Document
+    Set doc = ActiveDocument
+    
+    ' Add title
+    Selection.Font.Size = 16
+    Selection.Font.Bold = True
+    Selection.TypeText "WordMat Plot Command Demonstration" & vbCrLf & vbCrLf
+    
+    ' Reset formatting
+    Selection.Font.Size = 12
+    Selection.Font.Bold = False
+    
+    ' Add introduction
+    Selection.TypeText "This document demonstrates the new plot(...) command feature in WordMat." & vbCrLf
+    Selection.TypeText "To use: Select any plot command below and click 'Plot Selection' or use keyboard shortcut." & vbCrLf & vbCrLf
+    
+    ' Example 1: Basic sine function
+    Selection.Font.Bold = True
+    Selection.TypeText "Example 1: Basic Sine Function" & vbCrLf
+    Selection.Font.Bold = False
+    Selection.TypeText "plot(sin(x), -2*pi, 2*pi)" & vbCrLf & vbCrLf
+    
+    ' Example 2: Parabola with options
+    Selection.Font.Bold = True
+    Selection.TypeText "Example 2: Parabola with Options" & vbCrLf
+    Selection.Font.Bold = False
+    Selection.TypeText "plot(x^2, -5, 5; title=""Parabola"", grid=true, width=600, height=400)" & vbCrLf & vbCrLf
+    
+    ' Example 3: Cosine with custom styling
+    Selection.Font.Bold = True
+    Selection.TypeText "Example 3: Cosine with Custom Line Width" & vbCrLf
+    Selection.Font.Bold = False
+    Selection.TypeText "plot(cos(3*x), 0, 2*pi; linewidth=3, title=""Cosine Wave"")" & vbCrLf & vbCrLf
+    
+    ' Example 4: Exponential function
+    Selection.Font.Bold = True
+    Selection.TypeText "Example 4: Exponential Decay" & vbCrLf
+    Selection.Font.Bold = False
+    Selection.TypeText "plot(exp(-x^2), -3, 3; title=""Gaussian"", grid=true, dpi=200)" & vbCrLf & vbCrLf
+    
+    ' Example 5: Sinc function
+    Selection.Font.Bold = True
+    Selection.TypeText "Example 5: Sinc Function" & vbCrLf
+    Selection.Font.Bold = False
+    Selection.TypeText "plot(sin(x)/x, -20, 20; title=""Sinc Function"", backend=""matplotlib"")" & vbCrLf & vbCrLf
+    
+    ' Example 6: Polynomial
+    Selection.Font.Bold = True
+    Selection.TypeText "Example 6: Cubic Polynomial" & vbCrLf
+    Selection.Font.Bold = False
+    Selection.TypeText "plot(x^3 - 3*x^2 + 2*x, -2, 4; title=""Cubic Function"", grid=true)" & vbCrLf & vbCrLf
+    
+    ' Usage instructions
+    Selection.Font.Bold = True
+    Selection.TypeText "How to Test:" & vbCrLf
+    Selection.Font.Bold = False
+    Selection.TypeText "1. Select one of the plot(...) commands above" & vbCrLf
+    Selection.TypeText "2. Click WordMat → Plot Selection in the ribbon" & vbCrLf
+    Selection.TypeText "3. The plot should be generated and inserted as an image" & vbCrLf & vbCrLf
+    
+    Selection.Font.Bold = True
+    Selection.TypeText "Prerequisites:" & vbCrLf
+    Selection.Font.Bold = False
+    Selection.TypeText "• For Matplotlib backend: Python with matplotlib and numpy installed" & vbCrLf
+    Selection.TypeText "• For Gnuplot backend: Gnuplot executable in system PATH" & vbCrLf & vbCrLf
+    
+    ' Move cursor to top
+    Selection.HomeKey unit:=wdStory
+    
+    MsgBox "Demo document created successfully!" & vbCrLf & vbCrLf & _
+           "You can now select any plot(...) command and test the plotting functionality." & vbCrLf & _
+           "Note: You'll need either Python+matplotlib or Gnuplot installed for the backends to work.", _
+           vbInformation, "Plot Demo Ready"
+    
+    Exit Sub
+    
+DemoError:
+    MsgBox "Error creating demo document: " & Err.Description, vbCritical, "Demo Error"
+End Sub
+
+' Quick test function that creates a simple plot command and executes it
+Public Sub QuickPlotTest()
+    On Error GoTo QuickTestError
+    
+    ' Insert a simple test command
+    Selection.TypeText "plot(sin(x), -pi, pi; title=""Quick Test"")"
+    Selection.HomeKey unit:=wdLine, Extend:=wdExtend
+    
+    MsgBox "About to test plot execution with: plot(sin(x), -pi, pi; title=""Quick Test"")" & vbCrLf & vbCrLf & _
+           "This will attempt to generate a plot using your default backend." & vbCrLf & _
+           "Make sure Python+matplotlib or Gnuplot is installed.", vbInformation, "Quick Plot Test"
+    
+    ' Execute the plot command
+    PlotSelection
+    
+    Exit Sub
+    
+QuickTestError:
+    MsgBox "Error in QuickPlotTest: " & Err.Description, vbCritical, "Quick Test Error"
+End Sub
+
+' Test function to validate backends are available
+Public Sub TestBackendsAvailable()
+    On Error GoTo BackendTestError
+    
+    Dim pythonAvailable As Boolean
+    Dim gnuplotAvailable As Boolean
+    Dim message As String
+    
+    ' Test Python availability
+    pythonAvailable = TestCommandAvailable("python --version")
+    
+    ' Test Gnuplot availability  
+    gnuplotAvailable = TestCommandAvailable("gnuplot --version")
+    
+    message = "Backend Availability Test Results:" & vbCrLf & vbCrLf
+    
+    If pythonAvailable Then
+        message = message & "✓ Python: Available" & vbCrLf
+    Else
+        message = message & "✗ Python: Not available" & vbCrLf
+    End If
+    
+    If gnuplotAvailable Then
+        message = message & "✓ Gnuplot: Available" & vbCrLf
+    Else
+        message = message & "✗ Gnuplot: Not available" & vbCrLf
+    End If
+    
+    message = message & vbCrLf
+    
+    If pythonAvailable Or gnuplotAvailable Then
+        message = message & "At least one backend is available. Plot functionality should work!"
+    Else
+        message = message & "No backends are available. Please install Python+matplotlib or Gnuplot."
+    End If
+    
+    MsgBox message, vbInformation, "Backend Test Results"
+    
+    Exit Sub
+    
+BackendTestError:
+    MsgBox "Error testing backends: " & Err.Description, vbCritical, "Backend Test Error"
+End Sub
+
+' Helper function to test if a command is available
+Private Function TestCommandAvailable(command As String) As Boolean
+    On Error GoTo CommandTestError
+    
+    TestCommandAvailable = False
+    
+    ' This is a simplified test - in a full implementation you would 
+    ' use Shell with proper error handling and output capture
+    Dim result As Long
+    result = Shell(command & " 2>nul", vbHide)
+    
+    If result > 0 Then
+        TestCommandAvailable = True
+    End If
+    
+    Exit Function
+    
+CommandTestError:
+    ' If Shell fails, command is probably not available
+    TestCommandAvailable = False
+End Function
\ No newline at end of file
diff --git a/Windows/VBA-modules/RibbonSubs.bas b/Windows/VBA-modules/RibbonSubs.bas
index 2b4b84d87..bf72b3d2e 100644
--- a/Windows/VBA-modules/RibbonSubs.bas
+++ b/Windows/VBA-modules/RibbonSubs.bas
@@ -281,7 +281,7 @@ Sub Rib_FSbinspred(control As IRibbonControl)
 End Sub
 
 Sub Rib_FSbinusik(control As IRibbonControl)
-    insertribformel "", "p" & VBA.ChrW$(770) & "±2" & VBA.ChrW$(183) & VBA.ChrW$(8730) & "((p" & VBA.ChrW$(770) & "" & VBA.ChrW$(183) & "(1-p" & VBA.ChrW$(770) & "))/n)"
+    insertribformel "", "p" & VBA.ChrW$(770) & "�2" & VBA.ChrW$(183) & VBA.ChrW$(8730) & "((p" & VBA.ChrW$(770) & "" & VBA.ChrW$(183) & "(1-p" & VBA.ChrW$(770) & "))/n)"
 End Sub
 
 'Callback for sandnorm1 onAction
@@ -802,6 +802,11 @@ Sub Rib_trianglesolver(control As IRibbonControl)
     Dim UFtriangle As New UserFormTriangle
     UFtriangle.Show vbModeless
 End Sub
+
+'Callback for plot selection button
+Sub Rib_PlotSelection(control As IRibbonControl)
+    PlotSelection
+End Sub
 Sub Rib_om(control As IRibbonControl)
     UserFormAbout.Show
 End Sub