ActiveCell.AddComment.Shape.Fill.UserPicture Application.GetOpenFilename("图片(*.bmp;*.gif;*.tif;*.jpg;*.jpeg),*.bmp;*.gif;*.tif;*.jpg;*.jpeg")