エクセルの縮小版を一回で全て変更するには？

質問

フォルダに５００個ほどエクセルファイルがあります。
縮小版にしたとき中身が見えるよう、「プレビューの図を保存する」にチェックを入れたいのですが一つ一つ開いてチェックを入れるのは大変です。
フリーソフトなどで一括変換できるものはありませんか？

回答No.1

Wendy02 · ベストアンサー

こんにちは。

今、実験してみたのですが、やってみると、プレビューの図のチェックが入っているか、入っていないかの区分けが、マクロでは出来ないのです。その選択は人がやっていただくというのが条件です。

マルチセレクト仕様になっていますから、「縮小版」にして画面を見ていただいて、ピクチャーが見えないものを、Ctrl キーを押しながら選ぶか、シフトキーでまとめて選択してください。なるべく、小分けにしてやっていただいたほうが、こちらとしては安心です。

こちらでは、数個まとめてやってみた限りですが、成功しています。

変更中は、真ん中に黒い影が現れます。

Sub OpenPreViewGetInTest()
'プレビューの図にチェックを入れる
　Dim FileName As Variant
　Dim fn As Variant
　FileName = Application.GetOpenFilename("Excel ファイル(*.xls),*.xls", MultiSelect:=True)
　If VarType(FileName) = vbBoolean Then
　　Exit Sub
　End If
　Application.ScreenUpdating = False
　For Each fn In FileName
　　With Workbooks.Open(fn)
　　　With Application.Dialogs(xlDialogProperties)
　　　　Application.SendKeys "%v{ENTER}", True
　　　　 .Show
　　　End With
　　　.Close True
　　End With
　Next fn
　Application.ScreenUpdating = True
End Sub

お礼

大変詳しくありがとうございました。