Seite 1 von 1
Info Original Bildgröße wo?
Verfasst: Sa, 09.10.2010 12:46
von 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
Re: Info Original Bildgröße wo?
Verfasst: Sa, 09.10.2010 16:05
von lorbass
clag hat geschrieben: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
Re: Info Original Bildgröße wo?
Verfasst: Sa, 09.10.2010 18:12
von 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 ?
Re: Info Original Bildgröße wo?
Verfasst: Di, 12.10.2010 10:29
von DPunch
Aloha
clag hat geschrieben: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.