wenn Du das nicht für jedes einzelne Bild über
Menue > Format > Bild > Reiter Typ > Schaltfläche "Originalgrösse"
machen möchtest dann hilft Dir dieses Makro weiter:
Code: Alles auswählen
Sub Image_OriginalSize
Dim size As New com.sun.star.awt.Size
oDocument = thisComponent
page = oDocument.drawPage
nNumShapes = Page.getCount()
For i = 0 To nNumShapes - 1
oShape = Page.getByIndex( i )
oImage = oShape.FrameStyleName
if oImage = "Graphics" then
hoehe = oshape.ActualSize.Height
breite =oshape.ActualSize.width
size.Width = breite
size.Height = hoehe
oshape.setSize(size)
else
end if
next i
End SubJürgen
