导航:首页 > 文字图片 > 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图片裁剪空白相关的资料

热点内容
男人帅气发型图片大全 浏览:814
word图片怎么变大排列 浏览:163
男生小眼睛的发型图片 浏览:567
少女画画图片简单 浏览:484
word里怎么把图片弄成弧度的 浏览:728
女孩斗鸡眼真人图片 浏览:102
搞笑萌系动漫图片 浏览:446
给男生挠脚心漫图片 浏览:228
女盖头发型图片 浏览:545
我是吃货的文字图片 浏览:390
白袜初中女生图片 浏览:491
动漫骑士高清图片 浏览:327
女主发型烫发图片 浏览:337
表演区衣服制作图片海绵纸 浏览:743
简单的建筑模型图片 浏览:640
男生烫发长长后图片 浏览:827
如何提取移动端页面图片 浏览:849
悟空时代衣服图片 浏览:98
男士牛仔裤图片价格 浏览:668
杂志美女可爱图片 浏览:452