gelöst: Bild per Makro einfügen

[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) 3634 mal betrachtet

[mikele]

Hallo,

Hat jemand eine Idee, was ich falsch mache?

Dazu müssten wir den Code sehen. mit dem du gearbeitet hast.

[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

[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.