代碼如下:subcrtp()onerrorresumetextdimensionterfori1至3張(一)。ActivateRange(a1),選擇活動(dòng)工作表,圖片,插入(thisworkbook。路徑...