Bitmap bzw. Bild in Rahmen einfügen

[pauliv_de]

Hallo, aus dem Star-Office Programmierhandbuch habe ich das Beispiel auf Seite 258 - Bitmaps versucht, doch leider ohne brauchbares Ergebnis aber auch ohne Fehlermeldung.
Ich erhalte lediglich einen leeren Rahmen.

Code: Alles auswählen

Sub fillbitmap

	Dim Doc As Object
	Dim Page As Object
	Dim RectangleShape As Object
	Dim Point As New com.sun.star.awt.Point
	Dim Size As New com.sun.star.awt.Size

	Point.x = 1000
	Point.y = 1000
	Size.Width = 10000
	Size.Height = 10000

	'Doc = StarDesktop.CurrentComponent
	Doc = thisComponent
	'Page = Doc.drawPages()
	Page = Doc.getDrawpage()
	RectangleShape = Doc.createInstance("com.sun.star.drawing.RectangleShape")
	RectangleShape.Size = Size
	RectangleShape.Position = Point
	RectangleShape.FillStyle = com.sun.star.drawing.FillStyle.BITMAP
	RectangleShape.FillBitmapName = "Sky"
	RectangleShape.FillBitmapMode = com.sun.star.drawing.BitmapMode.REPEAT
	Page.add(RectangleShape)

End Sub

Ich benutze OOo 2.3.1
Kann mir jemand helfen ?
Gruß Paul

[turtle47]

Hallo Paul,

ich erhalte lediglich einen leeren Rahmen.

Das kann ich leider nur bestätigen.

Wenn man eine URL angibt dann funktioniert es:

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

Point.x = 1000         ' Angaben; unerheblich, da spätere 
                       ' Koordinaten verbindlich sind
Point.y = 1000
Size.Width = 10000
Size.Height = 10000

Doc = ThisComponent
Page = Doc.drawPage

GraphicObjectShape = Doc.createInstance("com.sun.star.drawing.GraphicObjectShape")

GraphicObjectShape.Size = Size
GraphicObjectShape.Position = Point

GraphicObjectShape.GraphicURL = "file:///c:/Test.jpg"
GraphicObjectShape.AdjustBlue = 0
GraphicObjectShape.AdjustGreen = 0
GraphicObjectShape.AdjustBlue = 0
GraphicObjectShape.AdjustContrast = 0
GraphicObjectShape.AdjustLuminance = 0
GraphicObjectShape.Transparency = 0
GraphicObjectShape.GraphicColorMode = com.sun.star.drawing.ColorMode.STANDARD

Page.add(GraphicObjectShape)
End Sub

Zusätzlich kann man noch einige Optionen einstellen
Hilft Dir das weiter?

Frohe Ostern wünscht

Jürgen

[pauliv_de]

Danke Jürgen,
Dein Tipp hat mir schon sehr geholfen.
Damit wird meine eigentliche Anforderung, nämlich ein Bild einzufügen, bereits zum Teil erfüllt. (Ich hatte das Beispiel mit der Bitmap nur deshalb versucht, weil es mir zum Einstieg einfacher erschien...)

Die importierte Grafik wird allerdings verzerrt und ist damit leider unbrauchbar, weil der Rahmen ganz ausgefüllt wird.

Was muss ich tun um die Proportionen zu erhalten ?

Mein Ziel ist folgendes:

• falls das Bild im Hochformat vorliegt, dann soll es mittig in den Rahmen, das Bild soll in diesem Fall also 100mm hoch skaliert werden, und rechts und links soll der Rahmen leer bleiben
• falls das Bild im Querformat vorliegt, dann soll es (möglichst vertikal) mittig in den Rahmen, in diesem Fall also 100mm breit skaliert werden, und oben und unten soll der Rahmen leer bleiben

Hast Du auch dafür einen Tipp
Frohe Ostern wünscht Pau