MS Visio Zeichnung mit AutoIt erzeugen

Hallo, ich möchte aus meinem AutoIt Programm eine MS Visio Zeichnung erzeugen. Dies wollte ich über COM-Objecte erledigen. Habe auch den ersten Schritt bereits durchgeführt und Visio gestartet.

$oVisio = ObjCreate("Visio.Application") ;Visio Object erzeugen
$oVisio.Visible = 1 ;Visio sichtbar

Jetzt suche ich eine Liste der verfügbaren COM-Objecte um eine Zeichnung erstellen zu können.

Oder kennt jemand eine bessere Möglichkeit mit AutoIt eine Zeichnung zu erstellen?

Gruß Ingo

Hallo,
danke für den Hinweis. Diese Seite hatte ich gefunden. Allerdings habe ich keine Ahnung wie ich das dort beschriebene richtig auf AutoIt übertragen kann. Habe mir VB Macros im Visio erstellt die zwei Objekte anlegen und ein zweites was die Objekte verbindet. Mit der Umsetzung im AutoIt hapert es aber noch etwas. Dazu habe ich nicht genug Erfahrung.

Wie könnte ich denn die beiden angehängten VB Macros in das angehängte AutoIt Programm übertragen.
Schon jetzt vielen Dank für jegliche Hilfe!!! 
Gruß Ingo

Visio()

Func Visio()
Local $oVisio
Local $sV_Blatt_Name = "Übersicht"

$oVisio = ObjCreate("Visio.Application") ;Visio Object erzeugen
$oVisio.Visible = 1 ;Visio sichtbar

$oVisio.Documents.AddEx ("bstorm_m.vst");Zeichnung aus Vorlage anlegen
$oVisio.ActivePage.Name = $sV_Blatt_Name ;Name vom Blatt setzen
EndFunc

Sub anlegen_Objekt()


	Application.Windows.ItemEx("Zeichnung1").Activate
	Application.ActiveWindow.Page.Drop Application.Documents.Item("BSTORM_M.VSS").Masters.ItemU("Topic"), 6.333661, 3.883858


	Application.Windows.ItemEx("Zeichnung1").Activate
	Application.ActiveWindow.Page.Drop Application.Documents.Item("BSTORM_M.VSS").Masters.ItemU("Topic"), 8.430118, 3.937008


End Sub
Sub verbinden_Objekt()


	Dim UndoScopeID1 As Long
	UndoScopeID1 = Application.BeginUndoScope("Auf Zeichenblatt ablegen")
	Application.Windows.ItemEx("Zeichnung1").Activate
	Application.ActiveWindow.Page.Drop Application.Documents.Item("BSTORM_M.VSS").Masters.ItemU("Dynamic connector"), 6.696943, 4.196358
	Dim vsoCell1 As Visio.Cell
	Dim vsoCell2 As Visio.Cell
	Set vsoCell1 = Application.ActiveWindow.Page.Shapes.ItemFromID(6).CellsU("EndX")
	Set vsoCell2 = Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(7, 1, 0)
	vsoCell1.GlueTo vsoCell2
	Application.EndUndoScope UndoScopeID1, True


	Dim UndoScopeID2 As Long
	UndoScopeID2 = Application.BeginUndoScope("Objektgröße ändern")
	Dim vsoCell3 As Visio.Cell
	Dim vsoCell4 As Visio.Cell
	Set vsoCell3 = Application.ActiveWindow.Page.Shapes.ItemFromID(6).CellsU("BeginX")
	Set vsoCell4 = Application.ActiveWindow.Page.Shapes.ItemFromID(5).CellsSRC(7, 0, 0)
	vsoCell3.GlueTo vsoCell4
	Application.EndUndoScope UndoScopeID2, True


End Sub

Hallo,
ich habe es soweit geschafft etwas lauffähiges zu erzeugen.

Jetzt habe ich allerdings ein Problem beim Verändern der Farbe. In der Zeile 37 wird natürlich das fehlen der im VB verwendeten Variabeln bemängelt.

Wie kann ich die denn definieren und vor allem mit welchem Inhalt?

Gruß Ingo

Visio ()

Func Visio ()
$oVisio = ObjCreate("Visio.Application") ;Visio Object erzeugen
$oVisio.Visible = 1 ;Visio sichtbar

$oVisio.Documents.AddEx ("bstorm_m.vst") ;Zeichnung aus Vorlage anlegen
$oVisio.ActivePage.Name = "Übersicht" ;Name vom Blatt setzen

;---------------- Objekte anlegen ----------------------------------
$oVisio.ActiveWindow.Page.Drop($oVisio.Documents.Item("BSTORM_M.VSS").Masters.ItemU("Topic"), 6.5, 3.5) ;neues Item erstellen
$oVisio.ActiveWindow.Page.Drop($oVisio.Documents.Item("BSTORM_M.VSS").Masters.ItemU("Topic"), 6.5, 3.5) ;neues Item erstellen

; --------------- verbinden der Objekte ---------------------------------
$oVisio.ActiveWindow.Page.Drop($oVisio.Documents.Item("BSTORM_M.VSS").Masters.ItemU("Dynamic connector"), 6.696943, 4.196358) ;Verbinder erzeugen

$vsoCell1 = $oVisio.ActiveWindow.Page.Shapes.ItemFromID(3).CellsU("BeginX") ;Verbinder Beginn als Objekt definieren
$vsoCell2 = $oVisio.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(7, 1, 0) ;das erste Item als Objekt definieren
$vsoCell1.GlueTo($vsoCell2) ;beide verbinden

$vsoCell1 = $oVisio.ActiveWindow.Page.Shapes.ItemFromID(3).CellsU("EndX") ;Verbinder Ende als Objekt definieren
$vsoCell2 = $oVisio.ActiveWindow.Page.Shapes.ItemFromID(2).CellsSRC(7, 0, 0) ;das zweite Item als Objekt definieren
$vsoCell1.GlueTo($vsoCell2) ;beide verbinden

;----------- beschriften der Objekte --------------------------
$vsoCharacters1 = $oVisio.ActiveWindow.Page.Shapes.ItemFromID(1).Characters
$vsoCharacters1.Begin = 0
$vsoCharacters1.End = 11
$vsoCharacters1.Text = "Item 1"

$vsoCharacters1 = $oVisio.ActiveWindow.Page.Shapes.ItemFromID(2).Characters
$vsoCharacters1.Begin = 0
$vsoCharacters1.End = 11
$vsoCharacters1.Text = "Item 2"

;----------- Farbe ändern --------------------------
$oVisio.ActiveWindow.Page.Shapes.ItemFromID(3).CellsSRC(visSectionObject, visRowLine, visLineColor).FormulaU = "2"

$oVisio.ActiveWindow.Page.Layout
EndFunc