Frage stellen
0

Bilder über makro einfügen

gefragt 2015-08-29 18:05:06 +0200

chemnitzer Gravatar-Bild

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

Bearbeiten Tags ändern Melden schließen vereinen löschen

1 Antwort

0

geantwortet 2017-07-02 19:15:46 +0200

UweAlt Gravatar-Bild

Da der hier gepostete code erst mal unlesbar formatiert ist mal eine einfache Vermutung: Weil Du das importierte Bild immer mit dem nächsten ersetzt, satt jeweils ein neues Objekt zu erzeugen?

Bearbeiten Melden löschen Link mehr
Registrieren oder einloggen, um zu antworten

Antwortwerkzeuge

1 Beobachter

Statistik

Gefragt: 2015-08-29 18:05:06 +0200

Angesehen: 235 Mal

Aktualisiert: Jul 02 '17