Looping folder changing - Save Preview Picture
 

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


--
Piranha
------------------------------------------------------------------------
Piranha's Profile: http://www.excelforum.com/member.php...o&userid=20435
View this thread: http://www.excelforum.com/showthread...hreadid=472383

Looping folder changing - Save Preview Picture
 

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


---
Regards,
Norman



"Piranha" wrote in
message ...

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


--
Piranha
------------------------------------------------------------------------
Piranha's Profile:
http://www.excelforum.com/member.php...o&userid=20435
View this thread: http://www.excelforum.com/showthread...hreadid=472383

Looping folder changing - Save Preview Picture
 

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
Norman Jones Wrote:
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


---
Regards,
Norman



"Piranha" wrote
in
message ...

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


--
Piranha

------------------------------------------------------------------------
Piranha's Profile:
http://www.excelforum.com/member.php...o&userid=20435
View this thread:
http://www.excelforum.com/showthread...hreadid=472383



--
Piranha
------------------------------------------------------------------------
Piranha's Profile: http://www.excelforum.com/member.php...o&userid=20435
View this thread: http://www.excelforum.com/showthread...hreadid=472383