Show/Hide images macro for Word
Thread poster: Jo Macdonald

Jo Macdonald  Identity Verified
Spain
Local time: 12:01
Member (2005)
Italian to English
+ ...
Dec 21, 2005

I was wondering if anyone knows of a Word 2000 macro that will show/hide images.
Thanks
Jo


 

PAS  Identity Verified
Local time: 12:01
English to Polish
+ ...
No macro necessary? Dec 21, 2005

Word menu: Tools > Options > View Tab

Look for the [edit: picture placeholders] checkbox - I have Polish Word 2003 now, but I know this feature has been available in older versions.

I hope this is what you are looking for.

Merry Christmas
Pawel Skalinski

[Edited at 2005-12-21 18:11]


 

gianfranco  Identity Verified
Brazil
Local time: 07:01
Member (2001)
English to Italian
+ ...
Macro in VBA to show/hide images in Word Dec 21, 2005

The simplest instruction to show images is the following

ActiveWindow.ShowPicturePlaceHolders = False


and to hide is:

ActiveWindow.ShowPicturePlaceHolders = True


A more complex macro to hide/show, that also will start only if a document is open, is the following:


If Application.Documents.Count > 0 Then

With ActiveWindow

With .View
Status = .ShowPicturePlaceHolders
Select Case Status
Case True
.ShowPicturePlaceHolders = False
This_Button.State = msoButtonDown
Case False
.ShowPicturePlaceHolders = True
This_Button.State = msoButtonUp
End Select
End With

End With

Else
MsgBox "No documents open"
End If


Just copy it into a macro and assign the macro to a button in your custom toolbar.
Pressing the button will show/hide the images.


bye
Gianfranco



[Edited at 2005-12-22 12:47]


 

Jo Macdonald  Identity Verified
Spain
Local time: 12:01
Member (2005)
Italian to English
+ ...
TOPIC STARTER
It works Dec 21, 2005

Hi Pas,
Yep, but I want to be able to do that at the click of a button.



Hi Gianfranco,
That’s exactly what I need, thanks.

I can get the macro to work but with a runtime error, like this:


Runtime error 424 ‘No object’

And then if I debug in visual basic, this line is highlighted yellow.

This_Button.State = msoButtonUp


The two ways I’ve got it to work are:

Sub Images()

With ActiveWindow
With .View
Status = .ShowPicturePlaceHolders
Select Case Status
Case True
.ShowPicturePlaceHolders = False
This_Button.State = msoButtonDown
Case False
.ShowPicturePlaceHolders = True
This_Button.State = msoButtonUp
End Select
End With
End With

End Sub


or



Sub Images()

If Application.Documents.Count > 0 Then

With ActiveWindow

With .View
Status = .ShowPicturePlaceHolders
Select Case Status
Case True
.ShowPicturePlaceHolders = False
This_Button.State = msoButtonDown
Case False
.ShowPicturePlaceHolders = True
This_Button.State = msoButtonUp
End Select
End With

End With


End If

End Sub




Both have the same runtime error though.


 

gianfranco  Identity Verified
Brazil
Local time: 07:01
Member (2001)
English to Italian
+ ...
Quick fix Dec 21, 2005

Hi Jo,

simply remove both lines starting with "This_Button.State = ..."
The main functionality will be maintained.

Those two lines were used to keep the button depressed/raised according to the status (hidden/shown) and the button will not change its appearance (up or down), but you can probably live without it...icon_smile.gif

I have no time right now to devise and suggest a better fix.

bye
Gianfranco




[Edited at 2005-12-22 12:51]


 

Jo Macdonald  Identity Verified
Spain
Local time: 12:01
Member (2005)
Italian to English
+ ...
TOPIC STARTER
Fixed Dec 22, 2005

Thanks Gian, much appreciated.
I owe you a macro.
icon_wink.gif
Jo


 


To report site rules violations or get help, contact a site moderator:


You can also contact site staff by submitting a support request »

Show/Hide images macro for Word

Advanced search






WordFinder Unlimited
For clarity and excellence

WordFinder is the leading dictionary service that gives you the words you want anywhere, anytime. Access 260+ dictionaries from the world's leading dictionary publishers in virtually any device. Find the right word anywhere, anytime - online or offline.

More info »
SDL Trados Studio 2017 only €435 / $519
Get the cheapest prices for SDL Trados Studio 2017 on ProZ.com

Join this translator’s group buy brought to you by ProZ.com and buy SDL Trados Studio 2017 Freelance for only €435 / $519 / £345 / ¥63000 You will also receive FREE access to Studio 2019 when released.

More info »



Forums
  • All of ProZ.com
  • Term search
  • Jobs
  • Forums
  • Multiple search