nachdem mich Microsoft mit seinem Lizenz und Cloud geschisse so langsam zur weißglut getrieben haben, haben wir uns in der Firma entschieden unsere Excel VBA Tools in Calc zu Konvertieren.
Eins vorab, es läuft besser wie gedacht und die Tools laufen mit Calc bedeutend schneller.
Aber leider muss ich auch sagen das einige Dinge doch viel umständlicher funktionieren. Und das bedingt auch mein aktuelles Problem.
Für ein Nesting Programm (Lantek Expert) für eine Wasserschneideanlage haben wir ein Excel Programm geschrieben über das die von Lantek verschachtelten CNC Programme aus einer T-SQL ausgelesen werden und formatiert in einer Tabelle angezeigt werden. Die Konvertierung von vba hat soweit gut funktioniert, das einzige was ich nicht hinbekomme ist die Verschachtelte Plattenbelegung als *.png Bild einzufügen UND in der Grösse und Position zu ändern. Das Einfügen ist nicht das Problem aber das Verändern von Größe und Position.
Hier der Code fürs Einfügen:
Code: Alles auswählen
sub BildEinfuegen
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$16"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "FileName"
args2(0).Value = "file:......................./LantekDB/Database-v43/LantekDB_v43/Nestings/13/13391-IMGB.png"
args2(1).Name = "FilterName"
args2(1).Value = "<Alle Bilder>"
args2(2).Name = "AsLink"
args2(2).Value = false
' args2(3).Name = "Style"
' args2(3).Value = "Bilder"
dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args2())
End Sub
Gibt es da irgendeine Möglichkeit bei einem Bild in Calc per Macro die Größe und die Position zu ändern?
Ich hoffe ihr könnt uns helfen.
Danke schon mal und Gruß,
Sebastian