excel2016 for macで画像ファイルを表示させると、excelがクラッシュする

Question

前提・実現したいこと

機種　mac
ソフト　excel vba
複数画像ファイルをexcelに表示させたい

発生している問題・エラーメッセージ

excel起動直後に表示マクロを実行すると、excelがクラッシュします。
マクロで動かしているのは、
ActiveSheet.Pictures.Insert(画像ファイル名).Select
です。

試したこと

ところが、手動で画像ファイルをドラッグ&ドロップさせた後は、同じマクロを実行しても
正常に動作します。
また、ファイル名を変えた二つのマクロを作りましたら、一つ目は異常なしで、二つ目はクラッシュします。

excelのバージョンは16.9(180116)です。
mac osは、High Sierra 10.13.3です。

回避策としては、表示させたいファイルを読み込んで消去する形で初期化させようかと思ってますが、ファイル数がかなり多いのでもっと簡単な方法がないのかと模索しております。

ちなみに、windowsで試しましたら、まったく問題なく動作しています。

よろしくお願いします。

Comments

[fiwa]

Office 2016 for Mac では Sandboxによりファイルアクセスに制限が設けられています。 https://msdn.microsoft.com/ja-jp/vba/vba-office-mac
参照する画像ファイルが以下の場所のいずれかにある場合でも画像挿入に失敗しますか？ /Users/username/Library/Group Containers/UBF8T346G9.Office /Users/username/Library/Containers/com.microsoft.Excel/Data

[HitoshiArai]

遅くなってすいません。うまく動作しましたっ。ありがとうございますっ。

Answer 1

Windows環境しか使ったことがないため、参考程度に。

WorksheetオブジェクトのPicturesプロパティですが、入力補完で出てくるでしょうか？

少なくともWindows環境では、存在はしていますがデフォルトでは出てきません。
推測ですが古い仕様の処理のため非表示になっているのだと思われます。

もしMacでもPicturesプロパティが非表示ならば、
より新しそうなShapesオブジェクトのAddPictureメソッドなどを使用してみてはどうでしょうか？

Dim ws As Excel.Worksheet
Set ws = Excel.ActiveSheet

Dim picShp As Excel.Shape
Set picShp = ws.Shapes.AddPicture("ファイル名", msoFalse, msoTrue, 左の位置, 上の位置, -1, -1)

Call picShp.Select

Answer 2

fiwaさんの質問をやっと試すことができ、正常に動作することがわかりました。

Office 2016 for Mac では Sandboxによりファイルアクセスに制限が設けられています。 https://msdn.microsoft.com/ja-jp/vba/vba-office-mac 参照する画像ファイルが以下の場所のいずれかにある場合でも画像挿入に失敗しますか？ /Users/username/Library/Group Containers/UBF8T346G9.Office /Users/username/Library/Containers/com.microsoft.Excel/Data

ありがとうございました。