nach langer Zeit habe ich mich wieder dem Problem des Bildereinfügens beschäftigt. Habe ein Makro für ein Bild einfügen aufgezeichnet und das für ein zweites Bild ergänzt. Folgende Probleme : nach dem ersten Bild einen Seitenumbruch -> funktioniert nicht; das zweite Bild wird eingefügt aber da das erste noch selektiert blieb wird es überschrieben.
Wie kann ich einen Seitenumbruch über die Parameter des Dispatchers einfügen und auf der neuen Seite weiter machen ?
Wie kann ich nachdem Einfügen des 1.Bildes die Selektion aufheben ?
Ich hab hier mal den Code eingefügt. Vielleicht hilf das weiter ?
Code: Alles auswählen
sub Bilder2
rem ein aufgezeichnetes Makro mit LO 6.3.4.2 64Bit
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem ab hier der ORIGINAL aufgezeichnete Code
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FileName"
args1(0).Value = "file:///C:/Archiv-ads/2019-Bonnet/Project/Data/11.JPG"
args1(1).Name = "FilterName"
args1(1).Value = "<Alle Bilder>"
args1(2).Name = "AsLink"
args1(2).Value = true
args1(3).Name = "Style"
args1(3).Value = "Bilder"
dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(3) as new com.sun.star.beans.PropertyValue
args2(0).Name = "FileName"
args2(0).Value = "file:///C:/Archiv-ads/2019-Bonnet/Project/Data/11.JPG"
args2(1).Name = "FilterName"
args2(1).Value = "<Alle Bilder>"
args2(2).Name = "AsLink"
args2(2).Value = true
args2(3).Name = "Style"
args2(3).Value = "Bilder"
dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args2())
rem ab hier der Ende des ORIGINAL aufgezeichneten Code
rem #########################################################################
msgbox "hier vor Seitenumbruch"
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPagebreak", "", 0, Array())
rem zweites Bild soll auf der neuen Seite eingesetzt werden
rem gleicher CODE wie für Bild 1 aufgezeichnet nur die Bilddatei geändert
msgbox "vor 2. Bild einfügen"
rem ----------------------------------------------------------------------
dim args4(3) as new com.sun.star.beans.PropertyValue
args4(0).Name = "FileName"
args4(0).Value = "file:///C:/Archiv-ads/2019-Bonnet/Project/Data/36a.JPG"
args4(1).Name = "FilterName"
args4(1).Value = "<Alle Bilder>"
args4(2).Name = "AsLink"
args4(2).Value = true
args4(3).Name = "Style"
args4(3).Value = "Bilder"
dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args4())
rem ----------------------------------------------------------------------
dim args5(3) as new com.sun.star.beans.PropertyValue
args5(0).Name = "FileName"
args5(0).Value = "file:///C:/Archiv-ads/2019-Bonnet/Project/Data/36a.JPG"
args5(1).Name = "FilterName"
args5(1).Value = "<Alle Bilder>"
args5(2).Name = "AsLink"
args5(2).Value = true
args5(3).Name = "Style"
args5(3).Value = "Bilder"
dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args5())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertPagebreak", "", 0, Array())
end sub
Chemnitzer