03 2020 档案

摘要:'Sub getpicture() 'Dim d, i&, sp As Shape, arr 'Set d = CreateObject("scripting.dictionary") 'For Each sp In Sheet1.Shapes ' If sp.Type = msoPicture T 阅读全文

posted @ 2020-03-03 13:27 隨風.NET 阅读(158) 评论(0) 推荐(0)

导航