Toggle button to show and hide image

lodi123 · #1 03-14-2017, 03:10 AM

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 · #2 03-15-2017, 09:34 PM

The following macro will do that

Code:

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
option button show/hide group of fields	eugzl	PowerPoint	2	12-29-2015 12:40 PM
Want to show/hide mutiple grouped coloumns in Excel sheet with a button	abutahir	Excel	4	11-03-2015 01:07 PM
Toggle Button takes focus and thus changes selection	NobodysPerfect	Word VBA	1	10-11-2014 04:20 AM
Toggle Button	Squibble	Word VBA	2	06-11-2014 05:36 PM
Header must toggle text & color + show count of conditionally formatted cells below	Franktoon	Excel	3	02-18-2014 02:10 PM