Toggle button to show and hide image

[lodi123]

Hi guys,

I'm looking for a macro for a toggle button (ShowHide) that will show an image in my document when I click on the button in the custom header and will disappear again when I click on it again.


The image is saved as a building block (Interim) and should be inserted in Table 1 Row 4 cell 2.

I can't get it to work on my own. Thanks a lot!!
Lodi

[gmayor]

The following macro will do that

Sub TogglePicture()
Dim oRng As Range
Dim oShape As InlineShape
    Set oRng = ActiveDocument.Tables(1).Cell(4, 2).Range
    With oRng.InlineShapes(1)
        If .PictureFormat.Brightness = 1 Then
            .PictureFormat.Brightness = 0.5
        Else
            .PictureFormat.Brightness = 1
        End If
    End With
End Sub