Maybe something like
Code:
Sub Macro1()
Dim oShape As Shape
Dim oIlshape As InlineShape
If Selection.InlineShapes.Count = 0 Then
If Selection.ShapeRange.Count = 1 Then
Set oShape = Selection.ShapeRange(1)
With oShape.PictureFormat
.ColorType = msoPictureBlackAndWhite
.Brightness = 0.1
.Contrast = 0.75
End With
Else
MsgBox "No shape selected"
End If
Else
Set oIlshape = Selection.InlineShapes(1)
With oIlshape.PictureFormat
.ColorType = msoPictureBlackAndWhite
.Brightness = 0.1
.Contrast = 0.75
End With
End If
Set oShape = Nothing
Set oIlshape = Nothing
End Sub