{"description":"\u30c7\u30fc\u30bf\u8ee2\u8a18\u3067\u30da\u30fc\u30b8\u304c\u8db3\u308a\u306a\u3044\u6642\u3001 '\u30b9\u30e9\u30a4\u30c9\u3092\u5897\u3084\u3059 ppApp.ActivePresentation.Slides(1).Copy '1\u30da\u30fc\u30b8\u76ee\u3092\u30b3\u30d4\u30fc ppApp.ActivePresentation.Slides.Paste p '\u6700\u7d42\u30b9\u30e9\u30a4\u30c9page\u306b\u8cbc\u308a\u4ed8\u3051 \u3067\u30011\u30da\u30fc\u30b8\u76ee\u3092\u30b3\u30d4\u30fc\u3057\u307e\u3057\u305f\u3002 p = 1 While Len(Trim(\"\" & r.Offset(p, 0))) <> 0 '\u5de6\u7aef\u306b\u30c7\u30fc\u30bf\u304c\u3042\u308b\u9593\u30eb\u30fc\u30d7 'pp\u306e\u30bb\u30c3\u30c8\u30da\u30fc\u30b8\u304c\u306a\u304b\u3063\u305f\u3089\u30011\u30da\u30fc\u30b8\u3092\u6700\u7d42\u306b\u30b3\u30d4\u30fc If p > ppApp.ActivePresentation.Slides.Count Then '\u30b9\u30e9\u30a4\u30c9\u3092\u2026","published":"2022-04-25 23:35:23","author_name":"ken3memo","blog_url":"https://ken3code.hatenablog.jp/","author_url":"https://blog.hatena.ne.jp/ken3memo/","version":"1.0","categories":["PowerPoint","VBA"],"url":"https://ken3code.hatenablog.jp/entry/2022/04/25/233523","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fken3code.hatenablog.jp%2Fentry%2F2022%2F04%2F25%2F233523\" title=\"ActivePresentation.Slides(1).Copy \u30b9\u30e9\u30a4\u30c9\u306e1\u30da\u30fc\u30b8\u76ee\u3092\u30b3\u30d4\u30fc - \u4e09\u6d41\u541b\u306e\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9\u7f6e\u304d\u5834\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","type":"rich","provider_url":"https://hatena.blog","blog_title":"\u4e09\u6d41\u541b\u306e\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9\u7f6e\u304d\u5834","provider_name":"Hatena Blog","width":"100%","title":"ActivePresentation.Slides(1).Copy \u30b9\u30e9\u30a4\u30c9\u306e1\u30da\u30fc\u30b8\u76ee\u3092\u30b3\u30d4\u30fc","height":"190"}