代码如下:subcrtp()onerrorresumetextdimensionterfori1至3张(一)。ActivateRange(a1)，选择活动工作表，图片，插入(thisworkbook。路径...
crtp,垂緌图片
