PowerPointでマクロ実行時、「申し訳ございません。問題が発生し、PowerPointの動作が不安定になっています。プレゼンテーションを保存してPowerPointを再起動してください。」とエラーが出ます。

Question

勉強不足で拙い文章で申し訳ないのですが、

ご存じの方がいましたらご教授いただければ幸いです。

PowerPointでマクロを実行したときのみ「申し訳ございません。問題が発生し、PowerPointの動作が不安定になっています。プレゼンテーションを保存してPowerPointを再起動してください。」とエラーが出ます。

マクロはネット上のものを参考に作成したもので、指定したフォルダ内のjpgファイルを順番に張り付けていくものです。

エラーが出るとすべてのjpgが貼り付けられず、穴あきの結果になってしまいます。

デバッグしていてもとくに引っかかるところはなく、3ヶ月ほど前までエラーが出ることなく使えていました。

PowerPointに負荷のかかるマクロになってしまっているのか？Microsoftで何か仕様変更があったのか？と考えています。

【備考】

OS：Windows10pro

PowerPointバージョン：Microsoft Office Home&Business 2019

・jpgを保管しているフォルダは通常クラウドサーバー上に置いているのですが、デスクトップ上にして試しても同じエラーが出ました。

【マクロ】

Sub 図面一覧作成()

Dim FName As String, PIC As Variant, ASP As Double

Dim i As Long, TGT As Object

Const FPath As String = "jpgが保管してあるフォルダパス"

FName = Dir$(FPath & "*.jpg")

Do While FName <> ""

Set PIC = LoadPicture(FPath & FName)

ASP = PIC.Width / PIC.Height

i = i + 1

Select Case i

Case Is = 1 

ActivePresentation.Slides(1).Copy 

CommandBars.ExecuteMso ("PasteSourceFormatting") 

DoEvents 

ActiveWindow.View.GotoSlide ActivePresentation.Slides.Count 

Set TGT = ActiveWindow.View.Slide.Shapes("zumen1") 

Case Is = 2 

Set TGT = ActiveWindow.View.Slide.Shapes("zumen2") 

i = 0 

End Select

With TGT

.Width = TGT.Height \* ASP 

.Fill.UserPicture FPath & FName 

.Select 

End With

Set TGT = Nothing

Set PIC = Nothing

FName = Dir$

Loop

ActivePresentation.Slides(1).Delete

End Sub

Answer 1

たなかHM さん、返信ありがとうございます。

＞Microsoftのサポートに問い合わせたところ、「Microsoft 365 の更新プログラムは Office 2019 には適用されません。」という回答でした。

念の為となりますが、Microsoft 365 の更新プログラムが Office 2019 に適用されなくても特に問題ありません。 サポート期間中であれば、Office 2019 には Office 2019 用の更新プログラムが適用されますので、ご安心くださいね。

＞デバッグしていてもとくに引っかかるところはなく、3ヶ月ほど前までエラーが出ることなく使えていました。

＞PowerPointに負荷のかかるマクロになってしまっているのか？Microsoftで何か仕様変更があったのか？と考えています。

数か月前にマイクロソフトの方でセキュリティを強化する仕様変更がありました。

＜参考情報＞

・Helping users stay safe: Blocking internet macros by default in Office - Microsoft Community Hub

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

・Office データの VBA はブロックされるの？ されないの？ Part 1: パソコンのツボ　～ Office のTIP (seesaa.net)

・Office データの VBA はブロックされるの？ されないの？ Part 2: パソコンのツボ　～ Office のTIP (seesaa.net)

・潜在的に危険なマクロがブロックされました (microsoft.com)

まずは、先にコメントしました「Web クライアント サービスを無効にする」を実行してどうかを試してみてはいかがでしょう。

また、以下の設定もご確認ください。

[ファイル] >( [その他] )> [オプション] > [トラストセンター] > [トラストセンターの設定]で[信頼できる場所] > [新しい場所の追加]でファイルの保存場所を設定する。

（※「この場所のサブフォルダーも信頼する」にもチェックを入れます）

Answer 2

ご連絡ありがとうございます。

Windows、Officeソフトともに最新の状態ですが、ダメでした。

回避策もご提示いただきありがとうございます。

Microsoft365（サブスク）についてのトークだと思うのですが、

私が現在使用しているのが「Microsoft Office Home&Business 2019」（永続ライセンス）なのです。

Microsoftのサポートに問い合わせたところ、「Microsoft 365 の更新プログラムは Office 2019 には適用されません。」という回答でした。

サポートにOffice2019の再インストールを勧められて行ったのですが、効果はありませんでした。

Answer 3

たなかHM さん、こんにちは。

もう一つ別にご質問されているこちらの現象と関連がありそうに思います。

◆ファイルサーバーにファイルを保存する際、「接続しています」というポップアップが出ます。

Windows および Office の更新を行って最新の更新プログラムを適用しても変化が無い様であれば、以下の回避策を確認してみてはいかがでしょう。

・Trying to connect message when Saving in Excel 365 - Microsoft Community

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

・Web クライアント サービスを無効にする

・Microsoft has blocked Macros from running because the source is - Microsoft Community

～上記の翻訳より引用～

インターネットのプロパティ:セキュリティタブ:信頼されたサイト:次に、信頼されたサイトとして「https://d.docs.live.net」を追加することでした。それから私はExcelで信頼できるサイトを有効にして、それはうまくいくように見えました。

※「https://d.docs.live.net」はご自分の環境にあったアドレスに変更します。