Bildgröße anpassen [gelöst]

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Bildgröße anpassen [gelöst]

Re: Bildgröße anpassen

von clag » Sa, 09.10.2010 11:38

Hi Turtle47,

erst einmal allerbesten Dank für deine Antwort....

ich hatte schon befürchtet du seist verschollen oder hattest du "Internetverbot" :lol: war so wenig zu lesen von dir ?

nach dem ich ja befürchtet habe das es so kommt, hatte ich mich schon mal ans Werk gemacht und das Ergebnis sieht deinem Vorschlag schon recht ähnlich und funktioniert sogar :D
aber ich bin mir gar nicht sicher ob ich das mit "with" und die Formel korrekt gemacht habe, ist das sauber was ich da erdacht/verzapft habe ?

Code: Alles auswählen

this_image = oDocGraphics.GetbyIndex(ix)
Dim oldHeight, oldWidth, newHight, newWidth as integer

With this_image
oldHeight = .Height
oldWidth = .Width
End With

newHeight = 3000
newWidth = oldWidth/(oldHeight/newHeight)

With this_image
    .AnchorType = 0 ' am Absatz
    .Height = NewHeight
    .Width = NewWidth
    .HoriOrient = 3
    .RightMargin = 500
    .Surround = 3
    .TextWrap = 3
End With

PS
kannst du mir sagen wo man die möglichen Parameterwerte für eine Option erfahren kann also hier zB AnchorType ?

Re: Bildgröße anpassen

von turtle47 » Sa, 09.10.2010 11:25

Hi Clag,
clag hat geschrieben:Muss ich eventuell erst die Werte auslesen und separat berechnen und dann die neu berechneten Werte einsetzen ?
So ist es.
Hier mal ein Beispiel aus meiner Grabbelkiste:

Code: Alles auswählen

Sub X_Factor
    Dim size As New com.sun.star.awt.Size
    oDocument = thisComponent
    page = oDocument.drawPage
    nNumShapes = Page.getCount()
    k = 0
    For i = 0 To nNumShapes - 1
    oShape = Page.getByIndex( i )
    oImage = oShape.FrameStyleName
    if oImage = "Graphics" then
    CurWidth = oshape.Size.Width
    CurHeight = oshape.Size.Height
    Factor =  0.5
    NewWidth = CurWidth * Factor
    NewHeight= CurHeight * Factor
    size.Width = NewWidth
    size.Height = NewHeight    
    oshape.setSize(size)
    k = k + 1    
    end if
    next i
    msgbox "Es wurde(n) " & k & " Bild(er) angepasst." , 64, "Bildgrösse anpassen"
End Sub
Viel Erfolg.

Jürgen

Bildgröße anpassen [gelöst]

von clag » Sa, 09.10.2010 10:28

Hallo Kenner und Könner,

wie stelle ich per Makro die resultierende Höhe bzw Breite einer Grafik ein ?
Ich meine hiermit das automatisch anpassen des zweiten Wertes, wenn man manuell eine Größe der Grafik verändert und der Haken für Seitenverhältnis beibehalten gesetzt ist ?
Wie erreiche ich das per Makro ?
Xray sagt mir nur die absoluten Werte.
Muss ich eventuell erst die Werte auslesen und separat berechnen und dann die neu berechneten Werte einsetzen ?

und wie immer schon mal Danke für das lesen

Nach oben