Macro to apply artistic effect to selected picture in Microsoft Word 2010.

[staicumihai]

Hi guys,
I have this macro that resizes a picture

Sub latime15()
On Error Resume Next
Dim oShp As Shape
Dim iShp As InlineShape
Dim ShpScale As Double
With Selection
  For Each iShp In .InlineShapes
    With iShp
      If .Type = wdInlineShapePicture Or wdInlineShapeLinkedPicture Then
      iShp.Borders.OutsideLineStyle = wdLineStyleSingle
  iShp.Borders.OutsideLineWidth = wdLineWidth100pt
        .Width = 450
      End If
    End With
  Next iShp
End With
End Sub

How can I modify the macro to apply artistic effect (photocopy) to the picture ?

[gmayor]

Do you mean like

iShp.Fill.PictureEffects.Insert msoEffectPhotocopy

[staicumihai]

Thanks man!