Sub 图片加边框() ActiveSheet.Shapes.SelectAll With Selection.ShapeRange.Line .Visible = msoTrue .Weight = 3 End WithEnd Sub