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