当前位置:首页 > 每日看点 > 正文内容

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

卡卷网10个月前 (01-10)每日看点206

打开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中。

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

扫描二维码推送至手机访问。

版权声明:本文由卡卷网发布,如需转载请注明出处。

本文链接:https://www.kajuan.net/ttnews/2025/01/8557.html

分享给朋友:

相关文章

4000以下的手机有没有推荐的啊?

4000以下的手机有没有推荐的啊?

可以选择标准版的旗舰机型:vivo X100s、一加12、OPPO Find X7、小米14、iQOO 12;也可以选外观时尚的自拍影像机型:vivo S19 Pro、realme GT 5 Pro、荣耀 200Pro、小米 Civi 4...

为什么我感受不到 1500 元的手机比四五千的差?

我长期使用两千元左右的安卓机,一天接近8小时的重度手机使用者。某天我突然想试试看传说中非常赛艇的苹果。狠了心,砸了钱。七千大样买了爱疯。就这?什么辣鸡玩意。而且因为我一直更新软件,用了两年爱疯就卡了。并没有传说中的用四五年不卡。用了这么一次...

Redmi 为什么可以把性价比做得那么高?

一位修手机的老大哥曾经跟我说过,红米1那个手机,除了处理器还凑活,其余零部件,就是市面上山寨机那种。其实红米性价比并不算极致,而且一直都有竞争者,从原来的群魔乱舞,到后来的荣耀,魅蓝,一加,再到现在的IQOO和realme。红米的方法也很简...

阿里云服务器续费价格好贵,想换一家云服务厂商,该怎么选择?

阿里云服务器续费价格好贵,想换一家云服务厂商,该怎么选择?

最近一台买了3年时间的腾讯云轻量服务器到期了,还有5天时间。当时买的价格是3年198元。配置是2核CPU、4GB内存,80GB SSD云硬盘,1200GB 流量包,然后中途给免费升级了CPU,从2核变成了4核。平均下来一年的费用70元不到,...

什么样的网站能快速捕获你的心?

什么样的网站能快速捕获你的心?

大家好,我是程序员鱼皮。大家如果平时使用网站或产品时出现了问题,一般都会去寻找 “联系客服” 的位置,从而获得人工的帮助。我们团队的面试刷题产品 - 面试鸭最近就遇到了这样一个难题:明明我们网站右下角就有联系客服按钮、而且我们每道面试题目下...

为什么张雪峰什么专业都懂?

他不懂专业,他懂的是就业。我记得有个老哥,家里条件不好,母亲吸血。想脱离家庭张雪峰眼睛一亮就说这是个学土木的好苗子。作为土木人我可知道他说的太对了,这种人学土木毕业进中建中铁,直接给你拉非洲看大鳄鱼呲牙。工资不低还能脱离家庭,可不是个学土木...

发表评论

访客

看不清,换一张

◎欢迎参与讨论,请在这里发表您的看法和观点。