Bitmap bzw. Bild in Rahmen einfügen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Bitmap bzw. Bild in Rahmen einfügen

Re: Bitmap bzw. Bild in Rahmen einfügen

von pauliv_de » Sa, 22.03.2008 11:06

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

Re: Bitmap bzw. Bild in Rahmen einfügen

von turtle47 » Sa, 22.03.2008 08:58

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: :lol:

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 :mrgreen:
Hilft Dir das weiter?

Frohe Ostern wünscht

Jürgen

Bitmap bzw. Bild in Rahmen einfügen

von pauliv_de » Sa, 22.03.2008 07:02

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

Nach oben