{"id":3526,"date":"2013-09-05T13:42:34","date_gmt":"2013-09-05T04:42:34","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=3526"},"modified":"2013-09-05T15:45:39","modified_gmt":"2013-09-05T06:45:39","slug":"youtube%e5%8b%95%e7%94%bb%e6%8c%bf%e5%85%a5%e3%82%a2%e3%83%89%e3%82%a4%e3%83%b3-for-powerpoint","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=3526","title":{"rendered":"YouTube\u52d5\u753b\u633f\u5165\u30a2\u30c9\u30a4\u30f3 for PowerPoint"},"content":{"rendered":"

\u524d\u56de\u306e\u8a18\u4e8b<\/a>\u3067PowerPoint 2013\u3067YouTube\u306e\u52d5\u753b\u304c\u633f\u5165\u3067\u304d\u306a\u3044\u554f\u984c\u3068\u3001\u305d\u306e\u554f\u984c\u3092\u89e3\u6c7a\u3059\u308b\u305f\u3081\u306e\u30de\u30af\u30ed\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u304c\u3001\u30de\u30af\u30ed\u306b\u6163\u308c\u3066\u3044\u306a\u3044\u65b9\u306b\u3068\u3063\u3066\u306f\u4f5c\u696d\u304c\u96e3\u3057\u3044\u9762\u3082\u3042\u308a\u307e\u3059\u306e\u3067\u3001PowerPoint\u3067YouTube\u306e\u52d5\u753b\u3092\u633f\u5165\u3059\u308b\u305f\u3081\u306e\u30a2\u30c9\u30a4\u30f3(\u30d5\u30ea\u30fc\u30bd\u30d5\u30c8)\u3092\u4f5c\u6210\u3057\u307e\u3057\u305f(PowerPoint 2010\/2013 \u306b\u5bfe\u5fdc<\/span>)\u3002<\/p>\n

\u30fb\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<\/a><\/p>\n

\u30d5\u30a1\u30a4\u30eb\u306fZip\u5f62\u5f0f\u3067\u5727\u7e2e\u3057\u3066\u3044\u307e\u3059\u306e\u3067\u3001Lhaplus<\/a>\u7b49\u306e\u5727\u7e2e\u89e3\u51cd\u30bd\u30d5\u30c8\u3067\u89e3\u51cd\u3057\u3066\u304b\u3089\u304a\u4f7f\u3044\u304f\u3060\u3055\u3044\u3002<\/p>\n

\u203b \u5f53\u30a2\u30c9\u30a4\u30f3\u306e\u8a2d\u5b9a\u65b9\u6cd5\u306b\u3064\u3044\u3066\u306f\u4ed8\u5c5e\u306e\u300creadme.pdf\u300d\u30d5\u30a1\u30a4\u30eb\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002<\/span><\/p>\n

\u25a0 \u4f7f\u3044\u65b9<\/h4>\n

PowerPoint\u3067\u5f53\u30a2\u30c9\u30a4\u30f3\u3092\u8a2d\u5b9a\u3059\u308b\u3068\u300c\u633f\u5165<\/span>\u300d\u30bf\u30d6\u306b\u300cYouTube \u633f\u5165<\/span>\u300d\u30dc\u30bf\u30f3\u304c\u8ffd\u52a0\u3055\u308c\u307e\u3059\u3002<\/p>\n

\"Office2013_52_01\"<\/a><\/p>\n

\u3053\u306e\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068\u300c\u30d3\u30c7\u30aaID\u5165\u529b<\/span>\u300d\u30dc\u30c3\u30af\u30b9\u304c\u8868\u793a\u3055\u308c\u308b\u306e\u3067\u3001YouTube\u52d5\u753b\u306eID\u3092\u5165\u529b\u3057\u3066\u300cOK<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/p>\n

\"Office2013_52_02\"<\/a><\/p>\n

\u203b \u30d3\u30c7\u30aaID\u306f\u52d5\u753b\u306eURL[http:\/\/www.youtube.com\/watch?v=***]\u306e[***]\u90e8\u5206\u306b\u3042\u305f\u308a\u307e\u3059\u3002<\/span><\/p>\n

\"Office2013_52_03\"<\/a><\/p>\n

\u52d5\u753b\u306e\u78ba\u8a8d\u30e1\u30c3\u30bb\u30fc\u30b8\u304c\u8868\u793a\u3055\u308c\u308b\u306e\u3067\u3001\u554f\u984c\u304c\u7121\u3051\u308c\u3070\u300c\u306f\u3044<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002<\/p>\n

\"Office2013_52_04\"<\/a><\/p>\n

\u300c\u52d5\u753b\u3092\u73fe\u5728\u306e\u30b9\u30e9\u30a4\u30c9\u306b\u633f\u5165\u3057\u307e\u3057\u305f\u3002<\/span>\u300d\u3068\u306e\u30e1\u30c3\u30bb\u30fc\u30b8\u304c\u8868\u793a\u3055\u308c\u3001\u9078\u629e\u4e2d\u306e\u30b9\u30e9\u30a4\u30c9\u306b\u52d5\u753b\u304c\u633f\u5165\u3055\u308c\u308c\u3070\u4f5c\u696d\u7d42\u4e86\u3067\u3059\u3002\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u3092\u5b9f\u884c\u3057\u3066\u52d5\u753b\u306e\u518d\u751f\u3092\u78ba\u8a8d\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n

\"Office2013_52_05\"<\/a><\/p>\n

\"Office2013_52_06\"<\/a><\/p>\n

\u203b \u52d5\u753b\u306e\u633f\u5165\u306b\u306f\u6642\u9593\u304c\u639b\u304b\u308b\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u3002<\/span><\/p>\n

\u4eca\u5f8cYouTube\u3084PowerPoint\u306e\u4ed5\u69d8\u5909\u66f4\u306b\u4f34\u3063\u3066\u3001\u30a2\u30c9\u30a4\u30f3\u304c\u52d5\u4f5c\u3057\u306a\u304f\u306a\u308b\u53ef\u80fd\u6027\u306f\u3042\u308a\u307e\u3059\u304c\u30012013\/9\/5 \u73fe\u6642\u70b9\u3067\u306f\u3068\u308a\u3042\u3048\u305a\u52d5\u4f5c\u3057\u307e\u3059\u306e\u3067\u3001\u8208\u5473\u304c\u3042\u308b\u65b9\u306f\u662f\u975e\u3054\u5229\u7528\u304f\u3060\u3055\u3044\u3002<\/p>\n

\u307e\u305f\u3001\u5f53\u30a2\u30c9\u30a4\u30f3\u306eVBA\u30b3\u30fc\u30c9\u3068\u30ea\u30dc\u30f3XML\u306f\u4e0b\u8a18\u306b\u306a\u308a\u307e\u3059\u306e\u3067\u3001\u5f53\u30c4\u30fc\u30eb\u3092\u30ab\u30b9\u30bf\u30de\u30a4\u30ba\u3057\u305f\u3044\u65b9\u306f\u4e0b\u8a18\u30b3\u30fc\u30c9\u3092\u3054\u5229\u7528\u304f\u3060\u3055\u3044\u3002<\/p>\n

\u30fbVBA\u30b3\u30fc\u30c9<\/strong><\/p>\n

'YouTube\u52d5\u753b\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b9\u30e9\u30a4\u30c9\u306b\u633f\u5165\u3059\u308bPowerPoint\u30de\u30af\u30ed\r\n'PowerPoint 2010\/2013\u5bfe\u5fdc\r\n'@kinuasa\r\n\r\nOption Explicit\r\n\r\nPublic Sub btnYouTubeInsert_onAction(control As IRibbonControl)\r\n  Call InsertYouTubeVideoExec\r\nEnd Sub\r\n\r\nPrivate Sub InsertYouTubeVideoExec()\r\n  Dim VideoID As String\r\n  Dim title As String\r\n  \r\n  title = "" '\u521d\u671f\u5316\r\n  VideoID = VBA.InputBox("YouTube\u52d5\u753b\u306e\u30d3\u30c7\u30aaID\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044\u3002" & vbCrLf & vbCrLf & _\r\n                  "\u203b \u30d3\u30c7\u30aaID:\u52d5\u753b\u306eURL[http:\/\/www.youtube.com\/watch?v=***]\u306e[***]\u90e8\u5206", "\u30d3\u30c7\u30aaID\u5165\u529b")\r\n  If StrPtr(VideoID) = 0 Or Len(Trim(VideoID)) < 1 Then Exit Sub\r\n  title = GetYouTubeVideoTitle(VideoID)\r\n  If Len(Trim(title)) < 1 Then Exit Sub\r\n  If MsgBox("\u633f\u5165\u3057\u3088\u3046\u3068\u3057\u3066\u3044\u308b\u52d5\u753b\u306f" & vbCrLf & vbCrLf & title & vbCrLf & vbCrLf & "\u3067\u826f\u3044\u3067\u3059\u304b\uff1f", vbYesNoCancel + vbQuestion + vbSystemModal) = vbYes Then\r\n    InsertYouTubeVideo VideoID\r\n    MsgBox "\u52d5\u753b\u3092\u73fe\u5728\u306e\u30b9\u30e9\u30a4\u30c9\u306b\u633f\u5165\u3057\u307e\u3057\u305f\u3002", vbInformation + vbSystemModal\r\n  End If\r\nEnd Sub\r\n\r\nPrivate Sub InsertYouTubeVideo(ByVal VideoID As String)\r\n'\u30d3\u30c7\u30aaID\u3092\u6307\u5b9a\u3057\u3066YouTube\u52d5\u753b\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b9\u30e9\u30a4\u30c9\u306b\u633f\u5165\u3059\u308b\r\n  Dim sld As PowerPoint.Slide\r\n  Dim embed As String\r\n  \r\n  Set sld = Nothing '\u521d\u671f\u5316\r\n  Set sld = GetActiveSlide(ActivePresentation)\r\n  If Not sld Is Nothing Then\r\n    embed = "<object><param name=""movie"" value=""http:\/\/www.youtube.com\/v\/" & VideoID & "&amp;version=2"" \/><\/object>"\r\n    sld.Shapes.AddMediaObjectFromEmbedTag embed\r\n  End If\r\nEnd Sub\r\n\r\nPrivate Function GetYouTubeVideoTitle(ByVal VideoID As String) As String\r\n'YouTube\u52d5\u753b\u306e\u30bf\u30a4\u30c8\u30eb\u3092\u53d6\u5f97\r\n  Dim url As String\r\n  Dim ret As String\r\n  Dim s As String\r\n  Dim n As Object\r\n  \r\n  ret = "": s = "": Set n = Nothing '\u521d\u671f\u5316\r\n  url = "http:\/\/gdata.youtube.com\/feeds\/api\/videos\/" & VideoID\r\n  On Error Resume Next\r\n  With CreateObject("MSXML2.XMLHTTP")\r\n    .Open "GET", url, False\r\n    .setRequestHeader "Content-Type", "application\/x-www-form-urlencoded;charset=UTF-8"\r\n    .Send\r\n    If .Status = 200 Then s = .responseText 'responseXML\u3060\u3068\u4e0a\u624b\u304f\u3044\u304b\u306a\u304b\u3063\u305f\u306e\u3067responseText\u4f7f\u7528\r\n  End With\r\n  If Len(Trim(s)) > 0 Then\r\n    With CreateObject("MSXML2.DOMDocument")\r\n      .async = False\r\n      If .LoadXML(s) Then\r\n        Set n = .SelectSingleNode("\/entry\/title")\r\n        If Not n Is Nothing Then\r\n          ret = n.Text 'title\u8981\u7d20\u306e\u5185\u5bb9\u53d6\u5f97\r\n        End If\r\n      End If\r\n    End With\r\n  End If\r\n  On Error GoTo 0\r\n  GetYouTubeVideoTitle = ret\r\nEnd Function\r\n\r\nPrivate Function GetActiveSlide(ByVal p As Presentation) As Slide\r\n'\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b9\u30e9\u30a4\u30c9\u3092\u53d6\u5f97\r\n  Dim ret As Slide\r\n  \r\n  Set ret = Nothing '\u521d\u671f\u5316\r\n  On Error Resume Next\r\n  Set ret = p.Slides.FindBySlideID(p.Windows(1).Selection.SlideRange.SlideID)\r\n  On Error GoTo 0\r\n  Set GetActiveSlide = ret\r\nEnd Function<\/pre>\n
\u30fb\u30ea\u30dc\u30f3XML<\/strong><\/p>\n
<?xml version="1.0" encoding="utf-8"?>\r\n<customUI xmlns="http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui">\r\n  <ribbon>\r\n    <tabs>\r\n      <tab idMso="TabInsert">\r\n        <group id="grpYouTubeInsert" label="YouTube \u633f\u5165" insertAfterMso="GroupInsertMediaClips" screentip="YouTube\u306e\u52d5\u753b\u633f\u5165" supertip="YouTube\u306e\u52d5\u753b\u3092\u633f\u5165\u3057\u307e\u3059\u3002">\r\n          <!-- image by : Erlen Masson - http:\/\/erlen.co.uk\/ -->\r\n          <button id="btnYouTubeInsert" label="YouTube \u633f\u5165" size="large" image="YouTubeIcon" onAction="btnYouTubeInsert_onAction" screentip="YouTube\u306e\u52d5\u753b\u633f\u5165" supertip="YouTube\u306e\u52d5\u753b\u3092\u73fe\u5728\u306e\u30b9\u30e9\u30a4\u30c9\u306b\u633f\u5165\u3057\u307e\u3059\u3002" \/>\r\n        <\/group>\r\n      <\/tab>\r\n    <\/tabs>\r\n  <\/ribbon>\r\n<\/customUI><\/pre>\n
\u25a0 \u95a2\u9023Web\u30da\u30fc\u30b8<\/h4>\n
\u30fbPowerPoint 2013 \u3067 YouTube \u304b\u3089\u52d5\u753b\u3092\u633f\u5165\u3057\u305f\u3044\u3010\u5bfe\u51e6\u7de8\u3011<\/strong>
\nhttp:\/\/snow-white.cocolog-nifty.com\/first\/2013\/09\/powerpoint-20-2.html<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"\u524d\u56de\u306e\u8a18\u4e8b\u3067PowerPoint 2013\u3067YouTube\u306e\u52d5\u753b\u304c\u633f\u5165\u3067\u304d\u306a\u3044\u554f\u984c\u3068\u3001\u305d\u306e\u554f\u984c\u3092\u89e3\u6c7a\u3059\u308b\u305f\u3081\u306e\u30de\u30af\u30ed\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u304c\u3001\u30de\u30af\u30ed\u306b\u6163\u308c\u3066\u3044\u306a\u3044\u65b9\u306b\u3068\u3063\u3066\u306f\u4f5c\u696d\u304c\u96e3\u3057\u3044\u9762\u3082\u3042\u308a\u307e\u3059\u306e\u3067\u3001PowerPoint\u3067Y […]","protected":false},"author":1,"featured_media":7130,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,1,58,61],"tags":[],"class_list":["post-3526","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-ribbon","category-powerpoint","category-software"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Ribbon.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-US","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3526","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3526"}],"version-history":[{"count":5,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3526\/revisions"}],"predecessor-version":[{"id":3540,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3526\/revisions\/3540"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7130"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3526"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3526"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3526"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}