odffice 365 Excel VBA 写真ファイルを選択する際、プレビューウインドウで写真表示が出来なくなる場合がある。

Question

• 原因が特定できずへとへとです。助けてください。お願いします。

１．作業環境　Win8.1Home 64bit, office 365　（昨日までの修正プログラム適用済）

２．使用画像　デジカメ写真（拡張子jpg）

３．プログラム（抜粋）

Dim FLT$

’***　処理１：写真ファイル名取得

FLT$ = "写真ﾌｧｲﾙ(*.jpg),*.jpg,GIFﾌｧｲﾙ(*.gif),*.gif"

picture_file_name = Application.GetOpenFilename(FLT$, 1, "画像ファイルを選択してください", False)

’***　処理２：写真表示

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(picture_file_name)

Shapes.AddPicture picture_file_name, False, True, Target.Left + 2, Target.Top + 2, Target.Width - 4, Target.Height - 4

Cells(ActiveCell.Row + 7, ActiveCell.Column + 1).Value = picture_file_name

４．症状

操作例１　　処理１

　　　　　　　　ライブラリーウインドウ：詳細（ファイル名、日付時刻）表示、

　　　　　　　　プレビューウインドウ：　表示されない。

　　　　　　　　ファイル名をダブルクリックするとファイル名を取得可

　　　　　　　　処理2

　　　　　　　　画像表示可。

操作例２　　処理１

　　　　　　　　ライブラリーウインドウ：特大アイコン表示（サムネイル写真表示される）

　　　　　　　　プレビューウインドウ：　表示されない。

　　　　　　　　特大アイコンをダブルクリックするとファイル名を取得可。

　　　　　　　　処理２

　　　　　　　　画像表示可。

プレビュー表示ができなくなると、プレビュー表示出来た写真までプレビューできなくなる。

５．再現性

ある特定の写真をアクセスした直後に不具合になる訳ではありません。

Answer 1

ご指導ありがとうございます。

MSDNの方へ補足説明をつけて再投稿いたします。

Answer 2

かにぱん67 さん、こんにちは。

マイクロソフト コミュニティへの投稿ありがとうございます。

VBA から画像挿入のファイル選択画面を呼び出すときに、プレビュー ウィンドウで画像が表示されなくなることがあるのですね。

せっかくこちらに投稿いただいたところ申しわけないのですが、VBA を使った開発の場合開発者向けの MSDN フォーラムの方がより情報が集まりやすいかと思いますので、そちらに質問を投稿してみてはいかがでしょう。

・MSDN フォーラム

VBA 専用のカテゴリーもあるので、よろしければご活用くださいね。