导航:首页 > 文字图片 > wordvba图片裁剪空白

wordvba图片裁剪空白

发布时间:2024-06-26 17:21:06

如何调整word中照片的尺寸

刚回答过一个不是你吧,一并粘过来吧.
word2007 选定一张图片后,然后点击“格式相似的文本”,就可以把本文档里的全部图片选定,,然后再在图片工具栏里把长宽修改成相同的尺寸。

2003等:
一,在word中按alt+f11组合键,进入VBA模式
二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
三,把下面代码复制,粘贴进去.
四,更改数值, 改一下宽度和高度数值(10),点运行(类似播放按钮.)或f5,即可设置文档中全部图片

Sub Macro()
Mywidth=10'10为图片宽度(厘米)
Myheigth=10'10为图片高度(厘米)
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape

End Sub

② 求:word中用vba实现删除长宽都小于10mm的图片

以下程序供您参考,希望对你有所帮助。

PS: 操作前请将WORD文档另作备份,谨防误操作,因数据丢失而致遗恨万年!!!

(引用外来程序均请养成数据备份的好习惯!!!)

Sub picDelete()
Dim oDoc As Document
Set oDoc = Word.ActiveDocument
Dim oShape As Shape
Dim oInLineShape As InlineShape

mSize = 10 '设置图片高宽限值为10CM
nRate = 28.345 '默认图片分辨率Dpi=72Px, cm(厘米):Px(像素)=1:28.345,

With oDoc
For Each oShape In .Shapes '删除文字环绕型图片
If oShape.Width < mSize * nRate And oShape.Height < mSize * nRate Then
oShape.Delete
End If
Next
For Each oInLineShape In .InlineShapes '删除嵌入型图片
If oInLineShape.Width < nRate * nRate And oInLineShape.Height < mSize * nRate Then
oInLineShape.Delete
End If
Next
End With
oDoc.Save '文档保存
End Sub

阅读全文

与wordvba图片裁剪空白相关的资料

热点内容
粘土做衣服的图片大全 浏览:887
ps怎么把一张图片只剩文字 浏览:549
怎么把图片单独移动 浏览:390
女孩子出租房卧室图片 浏览:774
小型简易沙发图片大全 浏览:648
大海背景图片高清横屏 浏览:429
word图片如何复制到cad 浏览:752
冷傲的头像图片男生高冷霸气 浏览:667
小婴儿女孩图片可爱 浏览:532
二年级交通安全小报图片大全简单漂亮 浏览:767
情侣动漫头图片 浏览:463
e福州核酸检测报告图片怎么保存 浏览:389
汽车图片怎么设置方向 浏览:386
粉红头发动漫少女图片 浏览:743
情头素描动漫图片 浏览:428
怎样在word文章中插入图片 浏览:895
该如何下载图片 浏览:963
甩脸给你看的文字和图片 浏览:592
qq男生超帅气图片 浏览:357
简单桌面壁纸图片 浏览:368