2020年3月3日

摘要: '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 阅读(134) 评论(0) 推荐(0) 编辑

导航