[Gelöst] Bild/Grafik einfügen in Calc über Zelladresse

[MikeRo]

Hey, ich habe es geschafft.

Hier habt Ihr mal die Möglichkeit, eine Grafik in Calc einzufügen.
Mit dieser Methode wird aufgrund der Celladresse die XY Position ermittelt und dann die Grafik eingefügt.

Code: Alles auswählen

Sub GrafikEinfuegen

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

mycell = oSheet.getCellByPosition(Letztespalte,0)
oColumn = mycell.getColumns.getByIndex(0).getName()
cellname = oColumn
cellname = cellname & 1

'oDoc muss natürlich definiert werden!
oCell = oDoc.sheets.getByName("Angebot").getCellRangeByName(cellname)
aPos = oCell.Position

Point.x =  aPos.X-1900
Point.y =  aPos.Y
Size.Width = 5460
Size.Height = 2000
Page = oDoc.drawPages(0)
GraphicObjectShape = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
GraphicObjectShape.Size = Size
GraphicObjectShape.Position = Point
GraphicObjectShape.GraphicURL = "file:///Z:/Programme/Vorlagen für Makros/Bilder/SW.jpg"
GraphicObjectShape.Name = "Name"
GraphicObjectShape.Title = "Name"
GraphicObjectShape.GraphicColorMode = com.sun.star.drawing.ColorMode.STANDARD
Page.add(GraphicObjectShape)

End Sub

[MikeRo]

Kann man eigentlich irgendwie eine Bildüberschrift und Bildunterschrift einfügen?
Ich möchte direkt über dem Bild eine Überschrift und direkt da drunter eine Unterschrift.

Ich bekomme es nicht hin die aPos wieder zu einer Adresse umzuwandeln
(Wenn ich 3 Bilder einfüge sind die Positionen natürlich immer unterschiedlich)