摘要： Alt+F11 打开vba，选择工作簿后输入以下代码 Sub exportImg()For Each oShape In ActiveSheet.ShapesstrImageName = oShape.TopLeftCell.Offset(0, -5).ValueoShape.SelectSelec 阅读全文