Seite 1 von 1
gelöst: Bild per Makro einfügen
Verfasst: Sa 25. Jun 2016, 10:21
von paulderfinne
Hallo meine Lieben,
ich versuche verzweifelt ein Bild per Makro in ein Textfile einzufügen. Als Grundlage dient diese Beschreibung:
http://www.oooforum.de/viewtopic.php?t=18340
Wenn ich das Bild per Makro einfüge, bekomme ich nur die Ausgabe des Pfades. Mach ich das aber manuell, passt das.
Hat jemand eine Idee, was ich falsch mache?
Hier der Screenshot dazu:
- 1466842384.png (132.15 KiB) 3631 mal betrachtet
Re: Bild per Makro einfügen
Verfasst: Sa 25. Jun 2016, 13:55
von mikele
Hallo,
Hat jemand eine Idee, was ich falsch mache?
Dazu müssten wir den Code sehen. mit dem du gearbeitet hast.
Re: Bild per Makro einfügen
Verfasst: So 26. Jun 2016, 08:09
von paulderfinne
Danke mikele für deine prompte Antwort. Den Code hatte ich ja als Link gepostet. Aber gerne poste ich den hier nochmal mit meinen Variablenbelegungen:
Code: Alles auswählen
Sub BildEinfuegen
Dim Page As Object
Dim GraphicObjectShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Doc = ThisComponent
Page = Doc.drawPage
GraphicObjectShape = Doc.createInstance("com.sun.star.drawing.GraphicObjectShape")
Size.Width = 3200 'Grösse
Size.Height = 1600 'Grösse
GraphicObjectShape.Size = Size
Point.x = 4000 'Position
Point.y = 500 'Position
GraphicObjectShape.Position = Point
GraphicObjectShape.GraphicURL = "/home/paul/myProgram/ikarus/brief.png"
GraphicObjectShape.AdjustBlue = 0
GraphicObjectShape.AdjustGreen = 0
GraphicObjectShape.AdjustBlue = 0
GraphicObjectShape.AdjustContrast = 0
GraphicObjectShape.AdjustLuminance = 0
GraphicObjectShape.Transparency = 0
GraphicObjectShape.AnchorType=0
GraphicObjectShape.Name ="briefkopf"
GraphicObjectShape.IsFollowingTextFlow (true)
GraphicObjectShape.GraphicColorMode = com.sun.star.drawing.ColorMode.STANDARD
Page.add(GraphicObjectShape)
End Sub
Re: Bild per Makro einfügen
Verfasst: So 26. Jun 2016, 08:59
von paulderfinne
Bin selber drauf gekommen.
Es muss heißen
Code: Alles auswählen
GraphicObjectShape.GraphicURL = ConvertToUrl("/home/paul/myProgram/ikarus/brief.png")
Was auch immer das Convert da tut.
Stelle das jetzt auf gelöst.