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 = “”
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 = “”
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