Looping folder changing - Save Preview Picture

[Piranha]

Hi,

I know how to loop through a folder and change something on the
worksheets therein.
On the Properties window theres a place named "Save Preview Picture"
with a check box.

I'm looking for some code, i can use in my looping code, to check
and/or uncheck this feature.

something like:
wb.BuiltinDocumentProperties("Save Preview Picture") = "put check
in box"

I know this won't work i am using it as a example of what i'm looking
for.
thx
Dave

 

[Norman Jones]

Hi Dave,

Based on a solution propoed by Bill Manville at:

http://tinyurl.com/c7vhb

Try:

Sub AddPreviewPic()
SendKeys "^{PGUP}^{HOME}^{PGDN}+{TAB}+{TAB}+" _
& "{TAB}-{TAB}%v{ENTER}"
Application.Dialogs(xlDialogProperties).Show
End Sub

 

[Piranha]

Hi Norman,
Thx much for this. This code checks the box. Also at the url you
provided
was the code to uncheck the box.

Sub NoPreviewPic()
SendKeys "^{PGUP}^{HOME}^{PGDN}+{TAB}+{TAB}+{TAB}-{TAB}{ENTER}"
Application.Dialogs(xlDialogProperties).Show
End Sub

Thx again
Dave