画像選択ダイアログを表示させるため、 Application.Dialogs(xlDialogInsertPicture).Show を実行するとエラー画面が出る。

Question

Excel（Office365　ver2209）にて昨日まで普通に使用できていた、

画像選択を行うVBAを記載したファイルにて、急にエラーが出るようになりました。

試験的に新規にBookを作成、そこにボタンを1個配置し、

そのボタンに下記コードが書いて実施してみましたが、

下記のようなエラーが出ます。

Sub ボタン1_Click()

fname1 = Application.Dialogs(xlDialogInsertPicture).Show

End Sub

この画面で、「オフライン作業」を選択すると画像選択のダイアログがでます。

社内の違うパソコンでも同様の現象が起き、他社の方でも同じ現象が出ているので、

環境的な問題ではないと思うのですが…。

ご教示いただけると助かります。

以上、よろしくお願いいたします。

Answer 1

オンライン画像挿入でエラーが発生する - Microsoft コミュニティ

Office 2016とOffice 2019にて、上記スレッドでは10月22日時点で問題解消が確認されています。

こちらでも確認されてはいかがでしょうか。

Answer 2

nksky_さん、こんにちは。

手元の環境で試したところ、同様のエラーが発生しました。

・Excel 2019 バージョン 2209 (ビルド 15629.20156)

・Windows 11 バージョン 21H2 (OS ビルド 22000.978)

発生時期も同時期で、エラーダイアログも同じであることから、以下のオンライン画像を挿入するとエラーが発生する症状と関連している様に見えます。

• オンライン画像挿入でエラーが発生する - Microsoft コミュニティ
• オンラインビデオ　ダイアログが表示されない。!!ERROR!!　ダ - Microsoft コミュニティ
• !!ERROR!! when trying to insert online pictures or - Microsoft Community

　　　( ※＜Edge の拡張機能の翻訳＞などをご利用下さい。)

手元の環境で Office のバージョンを一ヵ月戻してみましたが変化がありませんでした。

マイクロソフト側の一時的なサーバーの問題なのか、Windows の更新プログラムの問題でしょうか。。。

現在の所回避策は分かっておりません。

是非、Excel の [ファイル] > [フィードバック]からマイクロソフトの開発チームにフィードバックを送信いただければと思います。

※こちらのマイクロソフトコミュニティはユーザー同士の情報交換の場所である為、改善要望をマイクロソフトに認識して貰う為にはフィードバックを送信する必要があります。フィードバックが多い方がマイクロソフトの開発チームの注目度が集まり、改善への近道になります。

Microsoft Office に関するフィードバックを送信する方法

Answer 3

KS1028_2さん、ご連絡ありがとうございます。

試したところ、同じコードの実行で無事に「画像の挿入」が出来るようになったことを確認しました。

皆様のフィードバックのお陰で改善されたようです^^