For i = 1 To 3 '自己改范围。 ActiveSheet.Shapes.AddPicture("图片路径", True, True, 左边距, 上边距, 高度, 宽度).Name = "名称" & iNext
你是要写vba吗，可以用pictures(1),pictures(2)来表示
