[Solved] Picture Macro

[mazman]

Hi everyone,

I'm trying to set up a macro in open office that does some basic changes to photos.

Basically i need it to

up contrast by 25%
up brightness 25%
lower gamma to 0.7
apply border
apply wrap though

and i would like to have this as a button in the picture menu(or a keyboard short cut)

I have tried the recording feature, but it doesn't work when I run the macro, my programing knowledge is very basic but it doesn't even look like it records anything.

[Zizi64]

Basically i need it to

up contrast by 25%
up brightness 25%
lower gamma to 0.7
apply border
apply wrap though

The OpenOffice.org not a picture editing tool. You need use a real picture editor for change contrast, brightness, gamma of a picture. Try it with GIMP or other opensource (or commercial) software before you insert the picture into an OpenOffice document.

(In my opinion the modify the border of a picture (or pictures) maybe is possible in OpenOffice by basic macro)

[hanya]

I do not know what kind of border you want to set to the image, change the border according to your desired one.

Code: Select all

Sub ChangeImageAttribute
  oDoc = ThisComponent
  oSelected = oDoc.getCurrentSelection()
  If oSelected.supportsService("com.sun.star.text.TextGraphicObject") Then
    aBorder = CreateUnoStruct("com.sun.star.table.BorderLine")
    With aBorder
      .OuterLineWidth = 2
    End With
    With oSelected
      .AdjustContrast = 25
      .AdjustLuminance = 25
      .Gamma = 0.7
      .BorderDistance = 49
      .LeftBorder = aBorder
      .TopBorder = aBorder
      .RightBorder = aBorder
      .BottomBorder = aBorder
      .Surround = com.sun.star.text.WrapTextMode.THROUGHT
      .TextWrap = com.sun.star.text.WrapTextMode.THROUGHT
    End With
  End If
End Sub

[Zizi64]

wow!
I learned something again.

[mazman]

your a champion! even picked the border that i use!

thanks a million