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

staicumihai · #1 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 ?

gmayor · #2 11-22-2016, 07:17 AM

Do you mean like

Code:

iShp.Fill.PictureEffects.Insert msoEffectPhotocopy

staicumihai · #3 11-24-2016, 01:41 AM

Thanks man!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2010 Run-Time error 4198 with Insert Picture with Caption and Fram Macro	jstills116	Word VBA	0	06-24-2016 07:46 AM
Picture properties bug in Word 2010 Macro Recorder	ralphpickering	Word VBA	5	10-24-2012 10:15 AM
Macro to apply style to selected tables	ubns	Word	1	08-02-2012 04:09 AM
Macro - Microsoft Word 2010	OfficeHelpSG	Word	3	10-18-2011 11:54 AM
(again): What is the effect of proofing tools on languages on Microsoft Word?	Jamal NUMAN	Word	1	09-05-2011 03:17 AM