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

Jo Macdonald  Identity Verified
Spain
Local time: 05:38
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


Direct link Reply with quote
 

PAS  Identity Verified
Local time: 05:38
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]


Direct link Reply with quote
 

gianfranco  Identity Verified
Brazil
Local time: 01:38
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]


Direct link Reply with quote
 

Jo Macdonald  Identity Verified
Spain
Local time: 05:38
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.


Direct link Reply with quote
 

gianfranco  Identity Verified
Brazil
Local time: 01:38
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...

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

bye
Gianfranco




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


Direct link Reply with quote
 

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

Thanks Gian, much appreciated.
I owe you a macro.

Jo


Direct link Reply with quote
 


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






SDL MultiTerm 2017
Guarantee a unified, consistent and high-quality translation with terminology software by the industry leaders.

SDL MultiTerm 2017 allows translators to create one central location to store and manage multilingual terminology, and with SDL MultiTerm Extract 2017 you can automatically create term lists from your existing documentation to save time.

More info »
TM-Town
Manage your TMs and Terms ... and boost your translation business

Are you ready for something fresh in the industry? TM-Town is a unique new site for you -- the freelance translator -- to store, manage and share translation memories (TMs) and glossaries...and potentially meet new clients on the basis of your prior work.

More info »



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