'Set parameters of oleobjects

I would like to use a StrokeScribe Class and ActiveX Control to create an barcode with vba in word. I've found similiar code wirtten in c# but don't know how to set properties like "Alphabet" via vba. Any ideas? Thanks!

My start with vba:

Dim iShape As InlineShape
Set iShape = ActiveDocument.InlineShapes.AddOLEObject(ClassType:="STROKESCRIBE.StrokeScribeCtrl.1")

C# Code:

object ClassType = "STROKESCRIBE.StrokeScribeCtrl.1";
..
Shape shape = shapes.AddOLEObject(ref ClassType, ref FileName, ref LinkToFile, ref DisplayAsIcon, ref IconFileName, ref IconIndex, ref IconLabel, ref Left, ref Top, ref Width, ref Height, ref Anchor);
shape.IncrementLeft((float)num5);
shape.LockAnchor = -1;
objectValue = RuntimeHelpers.GetObjectValue(shape.OLEFormat.Object);
NewLateBinding.LateSet(objectValue, null, "TextJustify", new object[1] { false }, null, null);
NewLateBinding.LateSet(objectValue, null, "Alphabet", new object[1] { .. }, null, null);
NewLateBinding.LateSet(objectValue, null, "FontSize", new object[1] { .. }, null, null);
shape.OLEFormat.Activate();


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source