Microsoft Office Forums - View Single Post - [Solved] Macro to apply artistic effect to selected picture in Microsoft Word 2010.

staicumihai · 11-21-2016, 10:17 PM

Hi guys,
I have this macro that resizes a picture

Code:

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 ?