Word怎样让每张图片粘贴时纵横都一样?

SuInsertPictesWithCustomSize() DimfdAsFileDialog DimpicPathAsVariant DimpicAsInlineShape DimwidthInchesAsDoule DimheightInchesAsDoule widthInches=Inputox("请输入图片的宽度（英寸）：")'从用户处获取宽度 heightInches=Inputox("请输入图片的高度（英寸）：")'从用户处获取高度 Setfd=Application.FileDialog(msoFileDialogFilePicker) fd.AllowMultiSelect=True'允许选择多张图片 fd.Filters.Clear fd.Filters.Add"Images","*.jpg;*.jpeg;*.png;*.mp;*.gif",1'可根据需要添加更多图片格式 Iffd.Show=-1Then'如果用户点击了"确定" ForEachpicPathInfd.SelectedItems Setpic=ActiveDocument.InlineShapes.AddPicte(FileName:=picPath,LinkToFile:=False,SeWithDocument:=True) pic.LockAspectRatio=msoFalse'解锁纵横，以便可以单设置宽度和高度 pic.Width=InchesToPoints(widthInches)'将宽度设置为用户输入的英寸值 pic.Height=InchesToPoints(heightInches)'将高度设置为用户输入的英寸值 NextpicPath EndIf Setfd=Nothing EndSu