Frage stellen

Versionsgeschichte [zurück]

Klicken, um Version anzuzeigen/zu verstecken 1
Ursprüngliche Version

Bilder über makro einfügen

Hallo ich bin hier neu und habe ein Makro Aufgezeichnet, welches dann mehrmals aufgerufen wird.

sub picInput( strName as String, nrPic as Integer) dim document as object dim dispatcher as object

document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") dim args1(3) as new com.sun.star.beans.PropertyValue args1(0).Name = "FileName" args1(0).Value = "strName args1(1).Name = "FilterName" args1(1).Value = "<alle formate="">" args1(2).Name = "AsLink" args1(2).Value = false args1(3).Name = "Style" args1(3).Value = "" dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args1()) dim args2(3) as new com.sun.star.beans.PropertyValue args2(0).Name = "FileName" args2(0).Value = strName args2(1).Name = "FilterName" args2(1).Value = "<alle formate="">" args2(2).Name = "AsLink" args2(2).Value = false args2(3).Name = "Style" args2(3).Value = "" dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args2()) end sub Der Bildname strName kommt aus eine Textdatei, die wird bis EOF() abgearbeitet. Die Bilder erscheinen kurz, aber es ist nur das letzte im Dokument. An was kann das liegen. Viele Grüße von chemnitzer