Assign Macro to Shape in Word 2013

macropod · #8 01-28-2015, 04:41 PM

A Document_ContentControlOnEntry macro might be coded as:

Code:

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
With ContentControl
  If .Title = "MyPic" Then
    With .Range.InlineShapes(1)
      If .Width > CentimetersToPoints(1) Then
        .Width = CentimetersToPoints(1)
      Else
        .Width = CentimetersToPoints(4)
      End If
    End With
  End If
End With
End Sub

and assumes your picture content control's Title = "MyPic". The code would be added to the document's 'ThisDocument' code module. The above is a trivial demo that just changes the image's width back & forth from 1 to 4 cm.

I don't agree that "Word makes assigning and using macros so much harder than Excel". It's not harder, just different in some respects.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to assign a key shortcut to a particular shape in word?	Retko	Word	5	08-23-2014 09:04 PM
Assign keyboard short cut to macro	AndyDDUK	PowerPoint	1	01-09-2013 09:28 AM
Assign macro but hide the button/field	trlear	Word VBA	5	02-23-2012 04:35 PM
Run Macro & Activate shape	ibrahimaa	Excel Programming	1	01-21-2012 02:14 AM
How do I assign a macro to a button when the macro is in my personal workbook?	foolios	Excel Programming	2	07-27-2011 02:41 PM