{"id":263,"date":"2018-08-01T17:55:01","date_gmt":"2018-08-01T09:55:01","guid":{"rendered":"http:\/\/euhat.com\/wp\/?p=263"},"modified":"2018-08-01T17:55:01","modified_gmt":"2018-08-01T09:55:01","slug":"excel%e8%a1%a8%e6%a0%bc%e9%87%8c%e8%b7%af%e5%be%84%e6%98%be%e7%a4%ba%e4%b8%ba%e5%9b%be%e7%89%87","status":"publish","type":"post","link":"http:\/\/euhat.com\/wp\/2018\/08\/01\/excel%e8%a1%a8%e6%a0%bc%e9%87%8c%e8%b7%af%e5%be%84%e6%98%be%e7%a4%ba%e4%b8%ba%e5%9b%be%e7%89%87\/","title":{"rendered":"excel\u8868\u683c\u91cc\u8def\u5f84\u663e\u793a\u4e3a\u56fe\u7247"},"content":{"rendered":"<p>\u8def\u5f84\u653e\u5728A\u5217\uff0cB\u5217\u5c06\u8f93\u51fa\u56fe\u7247\u3002\u6309ALT+F11\u6253\u5f00\u5b8fIDE\uff0c\u8f93\u5165\u5982\u4e0b\u8bed\u53e5\u5e76\u6267\u884c\u3002<\/p>\n<p><!--more--><\/p>\n<pre lang=\"vba\" line=\"1\">\nFunction IsExitAFile(filespec)\n    Dim fso\n    Set fso = CreateObject(\"Scripting.FileSystemObject\")\n    If fso.fileExists(filespec) Then\n        IsExitAFile = True\n        Else: IsExitAFile = False\n    End If\nEnd Function\n\nSub Macro1()\n    Dim i As Integer\n    Dim path As String\n    For i = 1 To 5700\n        Range(\"B\" & i).Select\n        \n        path = \"d:\\path\\to\\pic\\\" + Range(\"a\" & i).Value\n        \n        If IsExitAFile(path) Then\n        \n            ActiveSheet.Pictures.Insert(path).Select\n            Selection.Width = Range(\"b\" & i).Width\n            Selection.Height = Range(\"b\" & i).Height\n        \n        End If\n    \n    Next i\nEnd Sub\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u8def\u5f84\u653e\u5728A\u5217\uff0cB\u5217\u5c06\u8f93\u51fa\u56fe\u7247\u3002\u6309ALT+F11\u6253\u5f00\u5b8fIDE\uff0c\u8f93\u5165\u5982\u4e0b\u8bed\u53e5\u5e76\u6267\u884c\u3002<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[],"_links":{"self":[{"href":"http:\/\/euhat.com\/wp\/wp-json\/wp\/v2\/posts\/263"}],"collection":[{"href":"http:\/\/euhat.com\/wp\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/euhat.com\/wp\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/euhat.com\/wp\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/euhat.com\/wp\/wp-json\/wp\/v2\/comments?post=263"}],"version-history":[{"count":0,"href":"http:\/\/euhat.com\/wp\/wp-json\/wp\/v2\/posts\/263\/revisions"}],"wp:attachment":[{"href":"http:\/\/euhat.com\/wp\/wp-json\/wp\/v2\/media?parent=263"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/euhat.com\/wp\/wp-json\/wp\/v2\/categories?post=263"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/euhat.com\/wp\/wp-json\/wp\/v2\/tags?post=263"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}