Info Original Bildgröße wo?

[clag]

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

[lorbass]

aber wo steht die ["Originalgröße"] bzw wo holt die Funktion unter der Schaltfläche diese Info her

In bzw. aus den Eigenschaften des Bildes.

Gruß
lorbass

[clag]

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 ?

[DPunch]

Aloha

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 ?

Code: Alles auswählen

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

Das herausfinden mit XRay hat stolze 2 Minuten gedauert.