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!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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