{"version":"1.0","height":"190","width":"100%","type":"rich","author_name":"sardine","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.toyfish.blog%2Fentry%2F20040204%2Fp4\" title=\" Excel \u3067\u30b7\u30fc\u30c8\u5185\u306e\u30b7\u30a7\u30a4\u30d7\u3092\u3059\u3079\u3066\u9078\u629e\u3059\u308b\u65b9\u6cd5 - toyfish.blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","categories":["prog"],"url":"https://www.toyfish.blog/entry/20040204/p4","title":" Excel \u3067\u30b7\u30fc\u30c8\u5185\u306e\u30b7\u30a7\u30a4\u30d7\u3092\u3059\u3079\u3066\u9078\u629e\u3059\u308b\u65b9\u6cd5","published":"2004-02-04 00:00:03","image_url":null,"author_url":"https://blog.hatena.ne.jp/sardine/","blog_url":"https://www.toyfish.blog/","blog_title":"toyfish.blog","description":"Public Sub \u30b7\u30a7\u30a4\u30d7\u3092\u3059\u3079\u3066\u9078\u629e() Dim xlsSheet As Excel.Worksheet Dim xls Set xlsSheet = ActiveWorkbook.ActiveSheet If xlsSheet.Shapes.Count > 0 Then xlsSheet.Shapes.SelectAll Else MsgBox \"\u30b7\u30a7\u30a4\u30d7\u304c\u3042\u308a\u307e\u305b\u3093\u3002\", vbInformation, \"\u30b7\u30a7\u30a4\u30d7\u3092\u3059\u3079\u3066\u9078\u629e\" End If End Sub"}