{"id":10143,"date":"2017-05-10T22:41:54","date_gmt":"2017-05-10T13:41:54","guid":{"rendered":"http:\/\/www.e-nekorakuen.net\/?p=10143"},"modified":"2020-08-28T02:05:59","modified_gmt":"2020-08-27T17:05:59","slug":"powerpoint2013%e3%80%812016%e3%82%b9%e3%83%a9%e3%82%a4%e3%83%89%e3%81%ab%e7%9b%ae%e6%ac%a1%e3%82%92%e6%8c%bf%e5%85%a5%e3%81%99%e3%82%8b%e3%83%9e%e3%82%af%e3%83%ad%ef%bc%88%e4%b8%8a%e7%b4%9a","status":"publish","type":"post","link":"https:\/\/www.e-nekorakuen.net\/?p=10143","title":{"rendered":"PowerPoint2013,2016\u2026\u30b9\u30e9\u30a4\u30c9\u306b\u76ee\u6b21\u3092\u633f\u5165\u3059\u308b\u30de\u30af\u30ed\uff08\u4e0a\u7d1a\u8005\u5411\u304d\uff09"},"content":{"rendered":"<p>PowerPont\u3067\u679a\u6570\u306e\u591a\u3044\u30b9\u30e9\u30a4\u30c9\u3092\u4f5c\u6210\u3059\u308b\u3068\u76ee\u6b21\u3092\u5165\u308c\u305f\u304f\u306a\u308a\u307e\u3059\u304c\u3001PowerPont\u306b\u306fWord\u306e\u3088\u3046\u306a\u76ee\u6b21\u633f\u5165\u6a5f\u80fd\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u300c\u7121\u3044\u306e\u306a\u3089\u3001\u4f5c\u3063\u3066\u3057\u307e\u3048\u76ee\u6b21\u633f\u5165\uff01\u300d\u3068\u8a00\u3046\u3053\u3068\u3067\u3001\u76ee\u6b21\u633f\u5165\u30de\u30af\u30ed\u3092\u4f5c\u6210\u3057\u307e\u3057\u305f\u3002<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-medium wp-image-10146\" src=\"http:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/vba-300x249.png\" alt=\"\" width=\"300\" height=\"249\" srcset=\"https:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/vba-300x249.png 300w, https:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/vba.png 512w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/p>\n<ul>\n<li>\u30d5\u30a1\u30a4\u30eb &gt; \u30aa\u30d7\u30b7\u30e7\u30f3 &gt; \u30ea\u30dc\u30f3\u306e\u30e6\u30fc\u30b6\u30fc\u8a2d\u5b9a &gt; \u958b\u767a\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u3001\u958b\u767a\u30bf\u30d6\u3092\u8868\u793a\u3057\u307e\u3059\u3002\uff08\u30de\u30af\u30ed\u306e\u4f5c\u6210\u6e96\u5099\uff09<br \/>\nBIsual Basic &gt; \u633f\u5165 &gt; \u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb \u3067\u30b3\u30fc\u30c9\u30da\u30a4\u30f3\u304c\u8868\u793a\u3055\u308c\u305f\u3089\u3001\u4ee5\u4e0b\u306evba\u306e\u30b3\u30fc\u30c9\u3092\u8cbc\u308a\u4ed8\u3051\u307e\u3059\u3002<\/li>\n<\/ul>\n<p>\u203b\u3053\u306e\u307e\u307e\u3067\u3082\u52d5\u304d\u307e\u3059\u304c\u3001\u30a4\u30f3\u30c7\u30f3\u30c8\u306f\u9069\u5f53\u306b\u4ed8\u3051\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>&#8216;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;\u958b\u59cb&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-<br \/>\n&#8216;\u623b\u308a\u5024\u30bb\u30c3\u30c8<\/p>\n<p>Dim Rtn As Integer<\/p>\n<p>Sub \u76ee\u6b21\u306e\u633f\u5165()<\/p>\n<p>On Error GoTo ERR_HANDLER<\/p>\n<p>Dim objSlide As Slide<br \/>\nDim objText As TextRange<br \/>\nDim objShape As Shape<br \/>\nDim intId As Integer<br \/>\nDim idxFlag As Integer<br \/>\nDim intPage As Integer<br \/>\nDim intNone As Integer<br \/>\nDim intLoop As Integer<\/p>\n<p>&#8216;\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b9\u30e9\u30a4\u30c9\u306eSlideIndex\u3092\u53d6\u5f97<br \/>\nintId = ActiveWindow.Selection.SlideRange.SlideIndex<\/p>\n<p>&#8216;\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b9\u30e9\u30a4\u30c9\u306e\u524d\u306b\u3001\u76ee\u6b21\u7528\u30b9\u30e9\u30a4\u30c9\u3092\u8ffd\u52a0<br \/>\nActivePresentation.Slides.Add intId, ppLayoutText<br \/>\nActivePresentation.Slides(intId).Shapes(1).TextFrame.TextRange = &#8220;\u76ee\u6b21&#8221;<\/p>\n<p>&#8216;\u4eca\u3001\u8ffd\u52a0\u3057\u305f\u76ee\u6b21\u7528\u30b9\u30e9\u30a4\u30c9\u306b\u3001\u5404\u30b9\u30e9\u30a4\u30c9\u306e\u30bf\u30a4\u30c8\u30eb\u3092\u66f8\u304d\u51fa\u3059<br \/>\nSet objText = ActivePresentation.Slides(intId).Shapes(2).TextFrame.TextRange<br \/>\nobjText = &#8220;&#8221;<\/p>\n<p>idxFlag = 0<br \/>\nintPage = 0<br \/>\nintNone = 0<br \/>\nFor Each objSlide In ActivePresentation.Slides<br \/>\n&#8216;\u30bf\u30a4\u30c8\u30eb\u30d7\u30ec\u30fc\u30b9\u30db\u30eb\u30c0\u304c\u3042\u308b\u5834\u5408<br \/>\nIf objSlide.Shapes.HasTitle Then<br \/>\nSet objShape = objSlide.Shapes.Title<br \/>\n&#8216;\u30bf\u30a4\u30c8\u30eb\u304c\u5165\u529b\u3055\u308c\u3066\u3044\u308b\u5834\u5408<br \/>\nIf Trim(objShape.TextFrame.TextRange.Text) &lt;&gt; &#8220;&#8221; Then<br \/>\nobjText = objText &amp; objShape.TextFrame.TextRange.Text<br \/>\n&#8216;\u30bf\u30a4\u30c8\u30eb\u304c\u76ee\u6b21\u306e\u5834\u5408\u3001\u30d5\u30e9\u30b0\u3092\u30bb\u30c3\u30c8<br \/>\nIf Trim(objShape.TextFrame.TextRange.Text) = &#8220;\u76ee\u6b21&#8221; Then<br \/>\nidxFlag = 1<br \/>\nEnd If<br \/>\n&#8216;\u30bf\u30a4\u30c8\u30eb\u304c\u672a\u5165\u529b\u304b\u30b9\u30da\u30fc\u30b9\u3060\u3051\u306e\u5834\u5408<br \/>\nElse<br \/>\nobjText = objText &amp; &#8220;\uff08\u30bf\u30a4\u30c8\u30eb\u306a\u3057\uff09&#8221;<br \/>\nEnd If<br \/>\n&#8216;\u30bf\u30a4\u30c8\u30eb\u30d7\u30ec\u30fc\u30b9\u30db\u30eb\u30c0\u304c\u306a\u3044\u5834\u5408<br \/>\nElse<br \/>\nobjText = objText &amp; &#8220;\uff08\u30bf\u30a4\u30c8\u30eb\u306a\u3057\uff09&#8221;<br \/>\nEnd If<br \/>\nIf idxFlag &lt;&gt; 0 And objText &lt;&gt; &#8220;\u76ee\u6b21&#8221; Then<br \/>\n&#8216;\u30da\u30fc\u30b8\u6570\u30ab\u30a6\u30f3\u30c8<br \/>\nintPage = intPage + 1<br \/>\nobjText = objText &amp; &#8220;\u30fb\u30fb\u30fb\u30fb\u30fb &#8221; &amp; intPage &amp; Chr(13)<br \/>\nElse<br \/>\n&#8216;\u8868\u7d19\uff0b\u76ee\u6b21\u30da\u30fc\u30b8\u6570\u30ab\u30a6\u30f3\u30c8<br \/>\nintNone = intNone + 1<br \/>\nobjText = &#8220;&#8221;<br \/>\nEnd If<br \/>\nNext objSlide<\/p>\n<p>&#8216;\u30ea\u30f3\u30af\u306e\u8a2d\u5b9a<br \/>\nFor intLoop = 1 To objText.Sentences.Count<br \/>\nSet objSlide = ActivePresentation.Slides(intLoop + intNone)<br \/>\nWith objText.Sentences(intLoop).ActionSettings(ppMouseClick).Hyperlink<br \/>\n&#8216;\u30ea\u30f3\u30af\u5148\u30b9\u30e9\u30a4\u30c9\u306e\u6307\u5b9a<br \/>\n.SubAddress = _<br \/>\nobjSlide.SlideID &amp; &#8220;,&#8221; &amp; _<br \/>\nobjSlide.SlideIndex &amp; &#8220;,&#8221; &amp; _<br \/>\nobjText.Sentences(intLoop).Text<br \/>\n&#8216;\u30dd\u30c3\u30d7\u30d2\u30f3\u30c8\u306e\u6307\u5b9a<br \/>\n&#8216; .ScreenTip = objText.Sentences(intLoop).Text<br \/>\nEnd With<br \/>\nNext intLoop<\/p>\n<p>Exit Sub<\/p>\n<p>ERR_HANDLER:<\/p>\n<p>MsgBox &#8220;\u30b9\u30e9\u30a4\u30c9\u30921\u679a\u3060\u3051\u9078\u629e\u3057\u3066\u304b\u3089\u3001\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3057\u3066\u304f\u3060\u3055\u3044\u3002&#8221;<\/p>\n<p>End Sub<\/p>\n<p>Sub \u76ee\u6b21\u306e\u524a\u9664()<\/p>\n<p>Dim objSlide As Slide<br \/>\nDim objText As TextRange<br \/>\nDim objShape As Shape<br \/>\nDim intPage As Integer<br \/>\nDim delFlag As Integer<\/p>\n<p>intPage = 0<br \/>\ndelFlag = 0<br \/>\nFor Each objSlide In ActivePresentation.Slides<br \/>\nintPage = intPage + 1<br \/>\nIf objSlide.Shapes.HasTitle Then<br \/>\nSet objShape = objSlide.Shapes.Title<br \/>\n&#8216;\u30bf\u30a4\u30c8\u30eb\u304c\u5165\u529b\u3055\u308c\u3066\u3044\u308b\u5834\u5408<br \/>\nIf Trim(objShape.TextFrame.TextRange.Text) = &#8220;\u76ee\u6b21&#8221; Then<br \/>\n&#8216;\u76ee\u6b21\u7528\u30b9\u30e9\u30a4\u30c9\u3092\u524a\u9664<br \/>\nActivePresentation.Slides.Item(intPage).Delete<br \/>\ndelFlag = 1<br \/>\nEnd If<br \/>\nEnd If<br \/>\nNext objSlide<\/p>\n<p>If delFlag = 0 Then<br \/>\nMsgBox &#8220;\u76ee\u6b21\u30b9\u30e9\u30a4\u30c9\u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002&#8221;<br \/>\nRtn = 1<br \/>\nEnd If<\/p>\n<p>End Sub<\/p>\n<p>Sub \u76ee\u6b21\u306e\u518d\u4f5c\u6210()<\/p>\n<p>Rtn = 0<br \/>\nCall \u76ee\u6b21\u306e\u524a\u9664<br \/>\nIf Rtn = 0 Then<br \/>\nCall \u76ee\u6b21\u306e\u633f\u5165<br \/>\nEnd If<\/p>\n<p>End Sub<\/p>\n<p>Sub \u30bb\u30af\u30b7\u30e7\u30f3\u540d\u306e\u8ffd\u52a0()<\/p>\n<p>Dim intId As Integer<br \/>\nDim objSlide As Slide<\/p>\n<p>&#8216;\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b9\u30e9\u30a4\u30c9\u306eSlideIndex\u3092\u53d6\u5f97<br \/>\nintId = ActiveWindow.Selection.SlideRange.SlideIndex<\/p>\n<p>For Each objSlide In ActivePresentation.Slides<br \/>\nActivePresentation.Slides(intId).HeadersFooters.Footer.Text = &#8220;\u30bb\u30af\u30b7\u30e7\u30f3&#8221;<br \/>\nNext objSlide<\/p>\n<p>End Sub<br \/>\n&#8216;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;\u7d42\u4e86&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-<\/p>\n<ul>\n<li>\u958b\u767a\u30bf\u30d6 &gt; \u30de\u30af\u30ed \u3092\u9078\u629e\u3059\u308b\u3068\u30c0\u30a4\u30a2\u30ed\u30b0\u304c\u958b\u304d\u3001\u30de\u30af\u30ed\u304c4\u3064\u767b\u9332\u3055\u308c\u3066\u3044\u308b\u306e\u304c\u5206\u304b\u308a\u307e\u3059\u3002<\/li>\n<li>\u3053\u306e\u4e2d\u3067\u4f7f\u7528\u3059\u308b\u30de\u30af\u30ed\u306f\u3001\u300c\u76ee\u6b21\u306e\u633f\u5165\u300d\u3001\u300c\u76ee\u6b21\u306e\u524a\u9664\u300d\u3001\u300c\u76ee\u6b21\u306e\u518d\u4f5c\u6210\u300d\u306e3\u3064\u3067\u3059\u3002<\/li>\n<li>\u78ba\u8a8d\u3067\u304d\u305f\u3089\u3001\u9589\u3058\u307e\u3059\u3002<\/li>\n<\/ul>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-medium wp-image-10145\" src=\"http:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/mokuji_macro-265x300.jpg\" alt=\"\" width=\"265\" height=\"300\" srcset=\"https:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/mokuji_macro-265x300.jpg 265w, https:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/mokuji_macro.jpg 387w\" sizes=\"auto, (max-width: 265px) 100vw, 265px\" \/><\/p>\n<ul>\n<li>\u76ee\u6b21\u306f\u9078\u629e\u3057\u305f\u30b9\u30e9\u30a4\u30c9\u306e\u4e0a\u306b\u633f\u5165\u3055\u308c\u307e\u3059\u306e\u3067\u3001\u30b9\u30e9\u30a4\u30c9\u30da\u30a4\u30f3\u304b\u3089\u8868\u7d19\u306e\u6b21\u306e\u30b9\u30e9\u30a4\u30c9\u3092\u9078\u629e\u3057\u307e\u3059\u3002<\/li>\n<li>\u30de\u30af\u30ed\u306e\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u300c\u76ee\u6b21\u306e\u633f\u5165\u300d\u3092\u30af\u30ea\u30c3\u30af\u3057\u307e\u3059\u3002\u3053\u308c\u3067\u3001\u76ee\u6b21\u304c\u81ea\u52d5\u7684\u306b\u633f\u5165\u3055\u308c\u307e\u3059\u3002<\/li>\n<\/ul>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone wp-image-10149\" src=\"http:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/mokuji-225x300.png\" alt=\"\" width=\"271\" height=\"361\" srcset=\"https:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/mokuji-225x300.png 225w, https:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/mokuji.png 439w\" sizes=\"auto, (max-width: 271px) 100vw, 271px\" \/><\/p>\n<ul>\n<li>\u300c\u76ee\u6b21\u306e\u524a\u9664\u300d\u3067\u633f\u5165\u6e08\u307f\u306e\u76ee\u6b21\u304c\u524a\u9664\u3055\u308c\u3001\u300c\u76ee\u6b21\u306e\u518d\u4f5c\u6210\u300d\u3067\u76ee\u6b21\u304c\u518d\u4f5c\u6210\u3055\u308c\u307e\u3059\u3002<\/li>\n<li>\u30de\u30af\u30ed\u30dc\u30bf\u30f3\u3092\u30b9\u30e9\u30a4\u30c9\u4e0a\u306b\u7f6e\u304f\u3053\u3068\u304c\u51fa\u6765\u307e\u305b\u3093\u306e\u3067\u3001\u30dc\u30bf\u30f3\u5316\u3057\u305f\u3044\u5834\u5408\u306f\u3001\u30d5\u30a1\u30a4\u30eb &gt; \u30aa\u30d7\u30b7\u30e7\u30f3 &gt; \u30ea\u30dc\u30f3\u306e\u30e6\u30fc\u30b6\u30fc\u8a2d\u5b9a\u306e\u30c0\u30a4\u30a2\u30ed\u30b0\u3092\u958b\u304d\u3001\u65b0\u3057\u3044\u30b0\u30eb\u30fc\u30d7\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002<br \/>\n\u4f5c\u6210\u3057\u305f\u30b0\u30eb\u30fc\u30d7\u306b\u30de\u30af\u30ed\u3092\u767b\u9332\u3057\u307e\u3059\u3002<\/li>\n<\/ul>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-medium wp-image-10150\" src=\"http:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/new_grp-300x273.jpg\" alt=\"\" width=\"300\" height=\"273\" srcset=\"https:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/new_grp-300x273.jpg 300w, https:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/new_grp.jpg 394w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/p>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone size-medium wp-image-10152\" src=\"http:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/macro_add-300x208.png\" alt=\"\" width=\"300\" height=\"208\" srcset=\"https:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/macro_add-300x208.png 300w, https:\/\/www.e-nekorakuen.net\/wp-content\/uploads\/2017\/05\/macro_add.png 703w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/p>\n<p>\u203b\u540d\u524d\u306f\u5f8c\u304b\u3089\u4fee\u6b63\u3059\u308b\u3053\u3068\u304c\u51fa\u6765\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>PowerPont\u3067\u679a\u6570\u306e\u591a\u3044\u30b9\u30e9\u30a4\u30c9\u3092\u4f5c\u6210\u3059\u308b\u3068\u76ee\u6b21\u3092\u5165\u308c\u305f\u304f\u306a\u308a&#46;&#46;&#46;<\/p>\n","protected":false},"author":1,"featured_media":10146,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"sns_share_botton_hide":"","vkExUnit_sns_title":"","_vk_print_noindex":"","_veu_custom_css":"","veu_display_promotion_alert":"","footnotes":""},"categories":[25,23,68],"tags":[],"class_list":["post-10143","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-ms-office","category-pc","category-68"],"veu_head_title_object":{"title":"","add_site_title":""},"_links":{"self":[{"href":"https:\/\/www.e-nekorakuen.net\/index.php?rest_route=\/wp\/v2\/posts\/10143","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.e-nekorakuen.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.e-nekorakuen.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.e-nekorakuen.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.e-nekorakuen.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=10143"}],"version-history":[{"count":0,"href":"https:\/\/www.e-nekorakuen.net\/index.php?rest_route=\/wp\/v2\/posts\/10143\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.e-nekorakuen.net\/index.php?rest_route=\/wp\/v2\/media\/10146"}],"wp:attachment":[{"href":"https:\/\/www.e-nekorakuen.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=10143"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.e-nekorakuen.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=10143"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.e-nekorakuen.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=10143"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}