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

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

卡卷网1年前 (2025-01-10)每日看点248

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

分享给朋友:

相关文章

WordPress建设的网站为什么不推荐国内机房?

WordPress建设的网站为什么不推荐国内机房?

我劝大家不要用WordPress做国内网站,不要用国内机房的主机。原因如下:1 WordPress 很多主题和插件都是国外开发的,特别是付费版本,需要联网验证,或者远程写入。国内机房的虚拟主机和服务器大概率会屏蔽或者阻断这些连接,无法完成任...

你有突破100个粉丝了吗?

你有突破100个粉丝了吗?

100粉已经过啦!说说怎么过的吧,最开始疯狂的写回答,写想法,关注人数在50几以下持续有两周多,每天都关注变化,都是个位数增长,后来干脆不看了。到第三周时突然一周增长了100多人,一天十几人,想想应该归功于多互动,给他人点赞评论,让自己曝光...

Layui 不更新了么?

Layui 不更新了么?

layui2.8已经于今天正式发布了,新增优化了大量特性,这里按照layui更新日志的模块结构,详细为你一一介绍。基础风格调整新版调整主色调为#16baaa,在原有的墨绿基础上赋予了清新。更简单的构建构建代码更简单,除字体外,只有js和cs...

无人机真的是中国领先吗?

无人机真的是中国领先吗?

巧了这是。捡到了一台大疆。应该是别人飞丢的。在草丛中泡过水,轴承锈死,电池鼓涨已,经没有维修价值了。但作为玩电子的,免不了要把它解剖,研究一番。那么,我们看看它的国产化率能有多少吧。图片说话:解释一下吧。图一,高通 美国图二,MPS: 美国...

WordPress建站同时面向B端和C端,有什么好的解决方案?

这个很容易实现呀,只不过需要自己开发,整体用权限管理就可以实现了,B端和C端是不同用户权限,C端能看到的菜单入口和B端不一样就行了。技术层面实现没问题的,只不过就是看你们的技术能力和投入了 ,这样的需求应该没有现成的开源插件。只能找人定制开...

腾讯云为何在云服务市场败给了阿里云?

IDC领域,2010年以前,万网、新网互联、新网,三家公司瓜分天下,其中万网市场份额最高,排名第一。当时,万网的域名是http://www.net.cn,通过该域名就可以判断万网的地位。2010年阿里云成立,直接收购了万网,大量用户直接流向...

发表评论

访客

看不清,换一张

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