{"width":"100%","blog_url":"https://thom.hateblo.jp/","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/t/t-hom/20170101/20170101090907.png","title":"VBA PowerPoint\u3067Shape\u3092\u4e00\u6c17\u306b\u524a\u9664\u3059\u308b\u30de\u30af\u30ed","description":"\u3053\u3061\u3089\u306e\u30d6\u30ed\u30b0\u3067\u3001PowerPoint VBA\u3067For Each\u3092\u4f7f\u3063\u3066Shape\u3092\u6d88\u3059\u3068\u3046\u307e\u304f\u3044\u304b\u306a\u3044\u3068\u3044\u3046\u554f\u984c\u304c\u7d39\u4ecb\u3055\u308c\u3066\u3044\u305f\u3002chemiphys.hateblo.jp\u3084\u3063\u3066\u307f\u305f\u3068\u3053\u308d\u3001\u5b9f\u969b\u306b1\u3064\u98db\u3070\u3057\u3067\u524a\u9664\u3055\u308c\u308b\u3002 \u5b9f\u969b\u306b\u691c\u8a3c Excel\u3067\u691c\u8a3c\u3057\u3066\u307f\u305f\u3002 Sub Excel\u7248ShapeAdd() Dim i As Long For i = 10 To 200 Step 10 Sheets(1).Shapes.AddShape _ msoShapeRectangle, i, i, 100, 50 Next End Sub Sub Excel\u7248ShapeDelete() Dim s As S\u2026","blog_title":"t-hom\u2019s diary","author_url":"https://blog.hatena.ne.jp/t-hom/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fthom.hateblo.jp%2Fentry%2F2017%2F01%2F01%2F104513\" title=\"VBA PowerPoint\u3067Shape\u3092\u4e00\u6c17\u306b\u524a\u9664\u3059\u308b\u30de\u30af\u30ed - t-hom\u2019s diary\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_url":"https://hatena.blog","height":"190","url":"https://thom.hateblo.jp/entry/2017/01/01/104513","published":"2017-01-01 10:45:13","categories":["VBA","VBA\u306e\u7814\u7a76\u30fb\u8003\u5bdf"],"version":"1.0","type":"rich","author_name":"t-hom","provider_name":"Hatena Blog"}