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

Jo Macdonald  Identity Verified
Spain
Local time: 04:56
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: 04:56
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: 23:56
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: 04:56
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: 23:56
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: 04:56
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






LSP.expert
You’re a freelance translator? LSP.expert helps you manage your daily translation jobs. It’s easy, fast and secure.

How about you start tracking translation jobs and sending invoices in minutes? You can also manage your clients and generate reports about your business activities. So you always keep a clear view on your planning, AND you get a free 30 day trial period!

More info »
CafeTran Espresso
You've never met a CAT tool this clever!

Translate faster & easier, using a sophisticated CAT tool built by a translator / developer. Accept jobs from clients who use SDL Trados, MemoQ, Wordfast & major CAT tools. Download and start using CafeTran Espresso -- for free

More info »



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