DataMatrix Barcode erstellen in Excel

param(
    [string]$data,
    [string]$filepath,
    [int]$width = 500,
    [int]$height = 500
)
# Funktion zum Laden von Assemblies von Nuget.org
function Load-NugetAssembly {
    [CmdletBinding()]
    param(
        [string]$url,
        [string]$name,
        [string]$zipinternalpath,
        [switch]$downloadonly
    )
    # Accept all TLS protocols
    [System.Net.ServicePointManager]::SecurityProtocol = [System.Net.SecurityProtocolType]::GetNames([System.Net.SecurityProtocolType]) 
    if($psscriptroot -ne ''){  
        $localpath = join-path $psscriptroot $name
    }else{
        $localpath = join-path $env:TEMP $name
    }
    $tmp = "$env:TEMP\$([IO.Path]::GetRandomFileName())"  
    $zip = $null
    try{
        if(!(Test-Path $localpath)){
            Add-Type -A System.IO.Compression.FileSystem
            write-host "Downloading and extracting required library '$name' ... " -F Green -NoNewline  
            (New-Object System.Net.WebClient).DownloadFile($url, $tmp)
            $zip = [System.IO.Compression.ZipFile]::OpenRead($tmp)
            $zip.Entries | ?{$_.Fullname -eq $zipinternalpath} | %{
                [System.IO.Compression.ZipFileExtensions]::ExtractToFile($_,$localpath)
            }
            Unblock-File -Path $localpath
            write-host "OK" -F Green  
        }
        if(!$downloadonly.IsPresent){
            Add-Type -Path $localpath -EA Stop
        }
    }catch{
        throw "Error: $($_.Exception.Message)"  
    }finally{
        if ($zip){$zip.Dispose()}
        if(Test-Path $tmp){del $tmp -Force}
    }  
}
# Lade XZING Assembly
if (!('ZXing' -as [Type])){  
        Load-NugetAssembly -url 'https://www.nuget.org/api/v2/package/ZXing.Net' -name 'zxing.dll' -zipinternalpath 'lib/net40/zxing.dll' -EA Stop  
}
# Funktion zum Erstellen von Barcodes
function New-Barcode([ZXing.BarcodeFormat]$format = ([ZXing.BarcodeFormat]::CODE_128),[string]$string,[int]$width,[int]$height,[int]$margin = 0,[switch]$purebarcode) {
    $writer = New-Object ZXing.BarcodeWriter -Property @{
        Format = $format
        Options = New-Object ZXing.Common.EncodingOptions -Property @{
            Height = $height
            Width = $width
            PureBarcode = $purebarcode.IsPresent
            Margin = $margin
        }
    }
    $writer.Write($string)
}
(New-Barcode -format DATA_MATRIX -string $data -width $width -height $height).Save($filepath,'Png')  

Sub CreateDataMatrixCodes()
    Dim SCRIPTPATH As String, objShell As Object, rngPic As Range, BARCODE_TMP_PATH As String, BARCODE_WIDTH As Integer, BARCODE_HEIGHT As Integer, cell as Range
    ' Shell Object erstellen  
    Set objShell = CreateObject("Wscript.Shell")  
    ' Pfad zum Script  
    SCRIPTPATH = ThisWorkbook.Path & "\datamatrix.ps1"  
    ' tempor. Pfad für Barcode Image  
    BARCODE_TMP_PATH = Environ("TEMP") & "\bc.png"  
    ' Breite des Barcodes in Punkt  
    BARCODE_WIDTH = 100
    ' Höhe des Barcodes in Punkt  
    BARCODE_HEIGHT = 100
    ' auf aktuell ausgewähltem Sheet arbeiten  
    With ActiveSheet
        ' Für jede belegte Zelle im Range A2:A(n)  
        For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            ' Wenn Wert der Zelle nicht leer ist ...  
            If cell.Value <> "" Then  
                ' Nachbarzelle in der der Barcode eingefügt wird  
                Set rngPic = cell.Offset(0, 1)
                ' Let's go, Powershell Script mit Parametern aufrufen  
                objShell.Run "powershell -EP Bypass -File """ & SCRIPTPATH & """ -data """ & cell.Value & """ -filepath """ & BARCODE_TMP_PATH & """ -width 500 -height 500", 0, True  
                ' Zeilenhöhe festlegen  
                rngPic.RowHeight = BARCODE_HEIGHT
                ' Barcode Bild einbetten  
                .Shapes.AddPicture BARCODE_TMP_PATH, msoFalse, msoTrue, rngPic.Left, rngPic.Top, BARCODE_WIDTH, BARCODE_HEIGHT
            End If
        Next
    End With
End Sub

"D:\Ordner\datamatrix.ps1" -data "Test" -filepath "D:\Ordner\test.png"