埋め込み後、次のスライドへ移動させたい ■■な機能を実装中に以下のエラーメッセージが発生しました。 ### 該当のソースコード Sub 埋め込み() Dim n As Long