Seite 1 von 1
Bitmap bzw. Bild in Rahmen einfügen
Verfasst: Sa, 22.03.2008 07:02
von 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
Re: Bitmap bzw. Bild in Rahmen einfügen
Verfasst: Sa, 22.03.2008 08:58
von turtle47
Hallo Paul,
pauliv_de hat geschrieben: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
Re: Bitmap bzw. Bild in Rahmen einfügen
Verfasst: Sa, 22.03.2008 11:06
von 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