{"id":5755,"date":"2015-06-24T11:00:43","date_gmt":"2015-06-24T02:00:43","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=5755"},"modified":"2015-06-24T11:00:43","modified_gmt":"2015-06-24T02:00:43","slug":"powerpoint%e3%82%b9%e3%83%a9%e3%82%a4%e3%83%89%e3%82%b7%e3%83%a7%e3%83%bc%e7%b5%82%e4%ba%86%e5%be%8c%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%82%92%e9%96%89%e3%81%98%e3%82%8bvba%e3%83%9e%e3%82%af","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=5755","title":{"rendered":"PowerPoint\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u7d42\u4e86\u5f8c\u30d5\u30a1\u30a4\u30eb\u3092\u9589\u3058\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"

\u300cExcel VBA PowerPoint \u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u5f8c\u9589\u3058\u308b<\/span>\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n

Excel\u304b\u3089\u30de\u30af\u30ed\u3067PowerPoint\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u3092\u5b9f\u884c\u3001\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u304c\u7d42\u308f\u3063\u305f\u3089\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u9589\u3058\u308b\u3001\u305d\u3093\u306a\u4f5c\u696d\u3092\u884c\u3044\u305f\u3044\u306e\u3060\u308d\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

PowerPoint\u30d5\u30a1\u30a4\u30eb\u3092\u9589\u3058\u305f\u5f8c\u3082\u305d\u306e\u307e\u307e\u30de\u30af\u30ed\u3067\u51e6\u7406\u3092\u7d9a\u884c\u3057\u305f\u3044\u306e\u304b\u3001\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u304c\u7d42\u308f\u308c\u3070\u305d\u306e\u307e\u307e\u30de\u30af\u30ed\u306e\u51e6\u7406\u3082\u7d42\u308f\u308b\u306e\u304b\u3067\u5927\u5206\u51e6\u7406\u304c\u5909\u308f\u3063\u3066\u304d\u307e\u3059\u304c\u3001\u3068\u308a\u3042\u3048\u305a\u3001\u305d\u306e\u307e\u307e\u30de\u30af\u30ed\u3067\u306e\u51e6\u7406\u3092\u7d9a\u884c\u3057\u305f\u3044\u5834\u5408\u306f\u4e0b\u8a18\u306e\u3088\u3046\u306a\u30b3\u30fc\u30c9\u3067\u5bfe\u5fdc\u3067\u304d\u307e\u3059\u3002<\/p>\n

Public Sub Sample()\r\n  Const ppSlideShowDone = 5\r\n  \r\n  With CreateObject("PowerPoint.Application")\r\n    .Visible = True\r\n    With .Presentations.Open(Filename:="C:\\Test\\Sample.pptx")\r\n      With .SlideShowSettings.Run.View\r\n        '\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u7d42\u4e86\u5f85\u3061\r\n        Do Until .State = ppSlideShowDone\r\n          DoEvents\r\n        Loop\r\n      End With\r\n      .Close\r\n    End With\r\n    .Quit\r\n  End With\r\n  Debug.Print "\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002"\r\nEnd Sub<\/pre>\n
\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u304c\u7d42\u308f\u308b\u307e\u3067\u30eb\u30fc\u30d7\u3067\u5f85\u3064\u5f62\u3067\u3059\u306d\u3002
\n(\u30b9\u30e9\u30a4\u30c9\u6570\u304c\u591a\u3044\u5834\u5408\u306b\u306f\u3001\u5f85\u3061\u51e6\u7406\u306bSleep<\/a>\u3092\u5165\u308c\u305f\u65b9\u304c\u826f\u3044\u3067\u3059\u3002)<\/p>\n
\u4e0b\u8a18\u306e\u3088\u3046\u306bSlideShowWindow\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u6570\u3067\u5224\u65ad\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002<\/p>\n
Public Sub Sample2()\r\n  Dim pres As Object\r\n  \r\n  With CreateObject("PowerPoint.Application")\r\n    .Visible = True\r\n    Set pres = .Presentations.Open(Filename:="C:\\Test\\Sample.pptx")\r\n    pres.SlideShowSettings.Run\r\n    '\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u7d42\u4e86\u5f85\u3061\r\n    Do Until .SlideShowWindows.Count < 1\r\n      DoEvents\r\n    Loop\r\n    pres.Close\r\n    .Quit\r\n  End With\r\n  Debug.Print "\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002"\r\nEnd Sub<\/pre>\n
\u305d\u3057\u3066\u4eca\u5ea6\u306f\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u304c\u7d42\u308f\u3063\u305f\u3089\u305d\u306e\u307e\u307e\u30de\u30af\u30ed\u306e\u51e6\u7406\u3082\u7d42\u308f\u308b\u5834\u5408\u3067\u3059\u304c\u3001\u3053\u308c\u306f\u5358\u306bPowerPoint\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u3068\u540c\u6642\u306b\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u3092\u5b9f\u884c\u3059\u308c\u3070\u826f\u3044\u306e\u3067\u3001\u4e0b\u8a18\u306e\u3088\u3046\u306b\u30b3\u30de\u30f3\u30c9 \u30e9\u30a4\u30f3 \u30b9\u30a4\u30c3\u30c1<\/a>\u3067\u5bfe\u5fdc\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n
Public Sub Sample3()\r\n  Const PptFilePath As String = "C:\\Test\\Sample.pptx"\r\n  Shell "POWERPNT.exe \/S """ & PptFilePath & """"\r\nEnd Sub<\/pre>\n
\u30d5\u30a1\u30a4\u30eb\u5f62\u5f0f\u3092\u30b9\u30e9\u30a4\u30c9 \u30b7\u30e7\u30fc\u5f62\u5f0f(*.ppsx\u3001*.ppsm\u3001*.pps)\u306b\u3057\u3066\u304a\u3051\u3070\u3001\u30b3\u30de\u30f3\u30c9 \u30e9\u30a4\u30f3 \u30b9\u30a4\u30c3\u30c1\u3059\u3089\u4e0d\u8981\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
Public Sub Sample4()\r\n  CreateObject("Shell.Application").ShellExecute "C:\\Test\\Sample.ppsx"\r\nEnd Sub<\/pre>\n
\u4ee5\u4e0a\u3001PowerPoint\u4ee5\u5916\u306eOffice\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u304b\u3089\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u3092\u5b9f\u884c\u3057\u3066\u3001\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u304c\u7d42\u308f\u3063\u305f\u3089\u30d5\u30a1\u30a4\u30eb\u3092\u9589\u3058\u308b\u30de\u30af\u30ed\u306e\u7d39\u4ecb\u3067\u3057\u305f\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"\u300cExcel VBA PowerPoint \u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u5f8c\u9589\u3058\u308b\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002 Excel\u304b\u3089\u30de\u30af\u30ed\u3067PowerPoint\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u3092\u5b9f\u884c\u3001\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u304c\u7d42\u308f\u3063\u305f\u3089 […]","protected":false},"author":1,"featured_media":7125,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"\u9700\u8981\u304c\u3042\u308b\u306e\u304b\u3069\u3046\u304b\u306f\u8b0e\u3067\u3059\u3002 [PowerPoint\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u7d42\u4e86\u5f8c\u30d5\u30a1\u30a4\u30eb\u3092\u9589\u3058\u308bVBA\u30de\u30af\u30ed]","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,58],"tags":[],"class_list":["post-5755","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-powerpoint"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-PowerPoint.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-1uP","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5755","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=5755"}],"version-history":[{"count":1,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5755\/revisions"}],"predecessor-version":[{"id":5756,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5755\/revisions\/5756"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7125"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5755"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5755"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5755"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}