Ich möchte mir gerne eine menge Arbeit ersparen und in meinen Dokumenten alle Grafiken einheitlich auf die gleiche Größe bringen.
Nun habe ich folgendes Makro hier gefunden:
Code: Alles auswählen
Sub Set_Graphics_to_UserDefined_Size
Dim oSize As New com.sun.star.awt.Size
oDocument = thisComponent
oPage = oDocument.drawPage
nNumShapes = oPage.getCount()
For i = 0 To nNumShapes - 1
oShape = oPage.getByIndex( i )
oImage = oShape.FrameStyleName
if oImage = "Graphics" then
nScale = 3000 / oShape.Height
oSize.Width = oshape.Width * nScale
oSize.Height = oshape.Height * nScale
oShape.setSize(oSize)
else
end if
next i
msgbox "Es wurden " & i & " Bilder verkleinert." , 64, "Fertig"
End Sub
Meine Grafiken sollen nun aber alle eine Größe von 9x13 cm (HöhexBreite) haben und mit einer Umrahmung versehen werden, ohne das das Seitenverhältnis beachtet wird.
Wie bekomme ich das hin? Vielleicht kann mir da jemand helfen?
Danke im Voraus