Microsoft Office Forums - View Single Post - [Solved] Macro to set brightness and Contrast in Word 2007

macropod · 08-28-2018, 04:44 AM

Your code is way over-done and, other than the 'type test', adds no functionality to what kilroy supplied! Indeed, it could even be reduced to:

Code:

Sub Brightness()
Dim iShp As InlineShape
For Each iShp In Selection.InlineShapes
  With iShp
    If .Type = wdInlineShapePicture Or wdInlineShapeLinkedPicture Then
      .PictureFormat.Brightness = 0.25
      .PictureFormat.Contrast = 0.98
    End If
  End With
Next
End Sub

Quote:

Originally Posted by staicumihai

Do you know how ta make a macro that increases the brightness of a picture with 2 procent ?

The macro in the link I supplied in post #3 shows how to do that.