Microsoft Office Forums - View Single Post - [Solved] How to click on one picture, and another picture will be shown?

macropod · 12-05-2014, 02:15 PM

An alternative for Word 2007 & later is to use a picture content control & simply resize that when clicked. The code to do that would be like:

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

Much simpler than using MACROBUTTON fields, as is required for Word 2003 & earlier.