当前位置：首页 > 每日看点

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

卡卷网2年前 (2025-01-10)每日看点326

打开Word文档，然后按下Alt+F11，打开代码编辑窗口，然后点击【】-[模块]，双击模块1，然后在右侧输入代码。

代码如下：

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

接着点击上方的运行按钮，则会提示你设置宽度、高度，然后会让你选择图片，选中所有图片后，所有图片将会按照设定的大小Word中。

完成后，如果不需要这些代码了，保存成正常的文档格式即可。