VBA批量导出图片并重命名

VBA批量导出图⽚并重命名Private Sub导出图⽚_Click()Application.ScreenUpdating = FalseOn Error Resume NextMkDir This