2013でYouTubeの動画を挿入する。2013でYouTubeの動画を挿入する。2013でYouTubeの動画を挿入する。ビデオからYouTube等の動画を挿入できるようになっていました。2010/2013で簡単にYouTube動画を挿入できるようにするためのアドインを作成しました。現時点ではとりあえず動作確認できています。2013でYouTubeの動画が挿入できないという質問がありました。私の環境でも試したところ、たしかに質問者さんが仰っているようにSkyDriveとFacebookしか表示されませんでした。世の中は不思議なことだらけで有名なラムさんの方でも同様のようです。2013http://www.howtogeek.com/tips/how-to-insert-a-youtube-video-into-a-powerpoint-presentation-in-office-2013/こちらもSkyDriveとFacebookしか表示されませんでした。この原因については詳しく調べていないので断定できませんが、下記質問を見ると急に動画の挿入ができなくなったようなので、ビデオ挿入のボタンから挿入しても、スクリーンショットされた写真しか貼り付ける事ができません。埋め込みの方法でもやってみたのですが、全くyoutubeと連動しません。YouTubeの仕様変更に伴ってMicrosoft側でビデオの挿入ダイアログ(実体はWebページなのでMicrosoft側ではいつでも仕様変更可能)の仕様を変更したのかもしれません。オンライン動画を挿入するためのメソッド自体は問題なく使えますので、自分でマクロを書いて、下記コードのようにShapesオブジェクトのAddMediaObjectFromEmbedTagメソッドの第一引数(EmbedTag)に動画の埋め込みコードを指定すれば、YouTubeの動画をスライドに挿入することが可能です。Subただし、YouTubeの動画埋め込みコードをそのまま引数に指定しても正しく挿入できません。Sub下図のようなエラーが発生します。「以前の埋め込みコードを使用する」にチェックを入れたコードでも同様のエラーが発生します。これは埋め込みコードの一部に問題があるためで、正しく動画を挿入するためには下記手順で埋め込みコードを修正する必要があります。今後YouTubeの仕様変更に伴って、下記手順では対応できなくなる可能性があります。「以前の埋め込みコードを使用する」にチェックを入れて埋め込みコードを取得する。コードにある動画のURL部分を「http://」で始まるようにする。コードにある「version=3」部分を「version=2」に変更する。allowfullscreen="true"></embed></object>PowerPointで正しく挿入するために、上記手順に従ってコードを変更すると下記のようになります。(テキストエディタの置換機能を使うと簡単に変更できます。今度は正常に動画が挿入されました。サイトからビデオ」で動画を挿入しようとしたときも“この埋め込みコードからビデオを挿入できません。埋め込みコードが適切であることを確認してから、再度実行してください。インストールする必要があります。サイトを参照してください。”といったエラーが発生するのですが、上記手順で埋め込みコードを変更すれば、このエラーが発生しなくなります。これでひとまずは解決なのですが、この埋め込みコードもすべての部分が必要なわけではありません。必要なのは動画の指定だけですので、下記部分だけでも問題なく動画が挿入できます。/></object>上記コードの中で可変的なのはビデオID「Jfa1eAHr4Ks」の部分で、これを変数にして処理をまとめたのが下記のコードになります。Functionエラー処理等は入れていませんが、これで大分すっきりしました。PowerPointのマクロの実行方法については下記Webページをご参照ください。VBA」といったキーワード検索でのアクセスがありました。アプ...Office関連PhpSpreadsheetを使ってPHPからExcelファイルを出力してみる。)この記事へのコメントはありません。URL返信をキャンセルする。スクリプト、リボンのカスタマイズに関する話題を中心に情報発信しています。VBA]カスタムXMLを使って設定...Twitterで、@akashi_keirinさんの下記ツイートを見かけました。