OpenOffice.info

oDoc = thisComponent
oSheet = oDoc.Sheets(0)
oDrawpage = oSheet.Drawpage
For i = 0 To oDrawpage.Count - 1
	If oDrawpage(i).supportsService("com.sun.star.drawing.GraphicObjectShape") Then
		oGraphic = oDrawpage(i)
		CurrentSize = oGraphic.Size
		OriginalSize = oGraphic.Graphic.Size100thMM
		MsgBox "Breite (jetzt/original): " & CurrentSize.Width & " / " & OriginalSize.Width & Chr(13) & _
				"Höhe (jetzt/original): " & CurrentSize.Height & " / " & OriginalSize.Height
	End If
Next i

Aloha

[quote="clag"]Denn in den Bild-Eigenschaften bzw in den Formateigenschaften des Bildes steht nur die aktuelle Größe.
Wie bzw mit welcher Basic-Funktion kann ich diese Info der Originalgröße auslesen ?[/quote]

[code]oDoc = thisComponent
oSheet = oDoc.Sheets(0)
oDrawpage = oSheet.Drawpage
For i = 0 To oDrawpage.Count - 1
If oDrawpage(i).supportsService("com.sun.star.drawing.GraphicObjectShape") Then
oGraphic = oDrawpage(i)
CurrentSize = oGraphic.Size
OriginalSize = oGraphic.Graphic.Size100thMM
MsgBox "Breite (jetzt/original): " & CurrentSize.Width & " / " & OriginalSize.Width & Chr(13) & _
"Höhe (jetzt/original): " & CurrentSize.Height & " / " & OriginalSize.Height
End If
Next i[/code]

Das herausfinden mit XRay hat stolze 2 Minuten gedauert. ;)

Hallo lorbass

Danke für die Antwort, aber .......
hmmm.. du meinst bestimmt die Eigenschaften der Bilddatei ?

Denn in den Bild-Eigenschaften bzw in den Formateigenschaften des Bildes steht nur die aktuelle Größe.
Wie bzw mit welcher Basic-Funktion kann ich diese Info der Originalgröße auslesen ?

[quote="clag"]aber wo steht die ["Originalgröße"] bzw wo holt die Funktion unter der Schaltfläche diese Info her[/quote]
In bzw. aus den Eigenschaften des Bildes.

Gruß
lorbass

Hallo Leutz,

noch eine Frage zum Thema eingebettete Grafik,
wo ist die Information über die originale Bildgröße untergebracht ?

Man kann doch jederzeit manuell in den Bildeigenschaften über die Schaltfläche "Originalgröße" das Bild eben auf diese zurücksetzen,
aber wo steht die bzw wo holt die Funktion unter der Schaltfläche diese Info her, oder wie wo was :?

hmmm .....

na klar, gibt's ein Danke für's lesen und zwei für 'ne Antwort ;)