Preferences|View|Show|Image Placeholder --> Toolbar Button?

[Slappy Horowitz]

I would like to create a toolbar button to accomplish the same effect as
going to the `Preferences` window, `View` topic, `Show` area, and toggling
the `Image Placeholder` checkbox.

However, when I go to `Customize` I can't find this command under `All
Commands.`

I toggle this setting often when dealing with documents with lots of
equations and/or drawings -- it helps speed things up considerably. That's
why I would like to have quick access to it.

Word 4 and 5 let you put it in a menu, even though it was called `Show
Picture Placeholders` back then.

Is there any way to avoid having to go into the `Preferences` dialog box to
switch?

Thanks,
Slappy

 

[Elliott Roper]

I would like to create a toolbar button to accomplish the same effect as
going to the `Preferences` window, `View` topic, `Show` area, and toggling
the `Image Placeholder` checkbox.

However, when I go to `Customize` I can't find this command under `All
Commands.`

I toggle this setting often when dealing with documents with lots of
equations and/or drawings -- it helps speed things up considerably. That's
why I would like to have quick access to it.

Word 4 and 5 let you put it in a menu, even though it was called `Show
Picture Placeholders` back then.

Is there any way to avoid having to go into the `Preferences` dialog box to
switch?

That looks like an interesting job for a Macro...
(furtle, scratch, snuffle...)
yep. Try this:-

Sub Toggle_Picture_Placeholders()
'
' Toggle_Picture_Placeholders Macro
'
With ActiveWindow
With .View
If .ShowPicturePlaceHolders Then
.ShowPicturePlaceHolders = False
Else
.ShowPicturePlaceHolders = True
End If
End With
End With
End Sub

Just paste that into your Tools->Customize->Macro->Edit Macros
and either give it a keyboard shortcut or make a toolbar icon for it.

The technique I used to create that is suitable for others like me that
don't have a clue about visual basic and don't intend to get one.

I first recorded a macro of me changing the preference setting.
Then I edited out all the superflous stuff. Then I fiddled with the If
then else till something worked. Then I got the hell outta there.

There is probably a better way to toggle .ShowPicturePlaceHolders than
the long winded way I used, but I don't know what VB for "not" is.

 

[Slappy Horowitz]

That looks like an interesting job for a Macro...

Sub Toggle_Picture_Placeholders()
With ActiveWindow
With .View
If .ShowPicturePlaceHolders Then
.ShowPicturePlaceHolders = False
Else
.ShowPicturePlaceHolders = True
End If
End With
End With
End Sub

Elliott, you are awesome! It worked like a charm. Building on your idea, I
added another one for Show Drawings, too, and put them both on my toolbar
and gave them keystrokes. It makes such a huge difference sometimes...

Thanks again!

-- Slappy

 

[Elliott Roper]

Elliott, you are awesome! It worked like a charm. Building on your idea, I
added another one for Show Drawings, too, and put them both on my toolbar
and gave them keystrokes. It makes such a huge difference sometimes...

Thanks again!

Thanks for posting back. The best compliment was "Building on your
idea..."

I'll be back asking you for advice shortly.

 

[JE McGimpsey]

There is probably a better way to toggle .ShowPicturePlaceHolders than
the long winded way I used, but I don't know what VB for "not" is.

One way:

Public Sub Toggle_Picture_Placeholders()
With ActiveWindow.View
.ShowPicturePlaceholders = Not .ShowPicturePlaceHolders
End With
End Sub

 

[Elliott Roper]

One way:

Public Sub Toggle_Picture_Placeholders()
With ActiveWindow.View
.ShowPicturePlaceholders = Not .ShowPicturePlaceHolders
End With
End Sub

Doh!

Thanks!
E