摘要:'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
posted @ 2020-03-03 13:27