word中怎样一次性调整所有图片大小?
新建一个宏(名称自定,如“全部图片”),编辑内容。
如下:Sub 选所有图片()ActiveDocument.Shapes.SelectAllEnd Sub在word文档中执行以上宏,即可将所有图片选中,然后再图片工具中选择图片大小,进行设置,全部图片就一样大了。
word宏只修改选中图片大小的代码,不要批量处理
a = Selection.ShapeRange.Count '获取选中的图片数if a=10 then '选中10张运行本宏For Each p In Selection.ShapeRange '也可以为 Selection.InlineShapes p.Width = 100p.Height = 100Nextelseif a=8 then '选中8张运行本宏For Each p In Selection.ShapeRange '也可以为 Selection.InlineShapesp.Width = 80p.Height = 80Nextend if
如何用Word宏操作处理图片?让所有图片统一操作?
展开全部 word2007以上版本使用docm格式可以保存宏,保存的时候选择类型为“带宏的word文档”就可以了,不用向下兼容。
不用VBA是无法实现这一功能的,实际上宏只是用代码记录下操作便于重复使用,其实质与作法与VBA没有什么区别。
不过,VBA是人工编写代码,宏是自动编写代码而已。
创建宏:1、 创建新宏。
点击工具“开发工具”里的分组“代码”里的“宏”命令代码,在弹出的“宏”对话窗里的“宏名称”下面的文本框里输入宏名称(这里输入“CropPicture”),选择“宏的位置”为当前的文档。
最后,点击“创建”命令按钮,会弹出VBA的IDE环境,里面已经给出CropPicture程序的程序头尾。
如下:Sub CropPicture()'' CropPicture 宏''End Sub2、添加代码把下面代码里的Sub CropPicture()与End Sub之间的代码粘贴到上面提到的代码之间或者直接用下面的代码覆盖上面提到的代码。
'剪切图片Sub CropPicture()Dim shps As InlineShapes, shp As InlineShapeSet shps = ActiveDocument.InlineShapes'左、右、顶、底边各剪切20磅,根据需要修改就行了。
For Each shp In shpsWith shp.PictureFormat.CropLeft = 20.CropRight = 20.CropTop = 20.CropBottom = 20End WithNextEnd Sub添加热键点击word文档左上角的Office按钮(logo图标),执行弹出菜单里的“word选项”,会弹出一个对话窗。
在弹出的对话窗里点击左侧导航条“自定义”,点击右侧设置项里的“键盘快捷方式”右侧的“自定义”命令按钮,会弹出“自定义键盘”对话窗。
将“指定命令”的类型选择为“宏”,选择“将更改保存在”右侧的下拉列表,选择为你正在编辑的文档。
这时,“宏”列表里会显示当前文档里的所有宏,我们选择“CropPicture”,然后将光标移入“新按新快捷键”文本框,按下“Ctrl+Q”键,点击“指定”命令按钮退出,即可。
调用按键盘键^q,就可以直接调用宏“CropPicture”,帮你把当前文档里的所有图片向内剪切40磅了。
...
word 里批量修改图片大小。
1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub这样就可以了!
word中批量修改图片尺寸,求帮忙写宏。
我来回答吧,分数随你。
1、选中图片如果它们的文字环绕是“嵌入型”的话,不好改,都设成其它的吧,如“浮于文字上方”然后再把你要改的图片都选中吧2、格式菜单-图片(或者叫设置图片格式):3、在大小--缩放中调整高度和宽度的百分比。
好了,就这么简单。
图片就被同时改变成同样的大小了。
当然,第2、3步也可以用鼠标完成,选中所有图片后,用鼠标拖动任一图片角上的控制点,更方便。
补充:如何选中多张图片?选中第一张后,按Ctrl或Shift再逐个点击其它图片,Ctrl_A或全选不行的。
如果图片太多,不想用手工,那就只能用宏或者VBA程序了。
http://zhidao.baidu.com/question/1443441.html
word如何批量选择所有图片命令
WORD中全选文字(不包括图片):点击文档的第一个字,按住Ctrl不放,拖动右边的滚动栏到最后文档的最后一页,点击文档的最后一个字。
CTRL+C。
在WORD中全选所有的图片(不包括文字),这个有点难,不过你可以试试这两种方法:1. 剪切所有文字到另一个文档,然后只剩下图片。
你可以尽情的处理。
2. 用VBA编程来实现,这个技术含量比较高。
如何将word中所有图片大小改一致
设置方法:1、选中所有图片;2、单击图片工具格式右下角如图所示的按钮;3、弹出大小对话框,去掉锁定纵横比和相对于图片原始尺寸复选框中的对勾即可,如图所示。
word文档中 图片太小 怎么选中它或删除它???!
使用word2013可以打开选择窗格对话框,里面例有文档所有图片,就像一个导航窗口一样,可以任意选取每个图片,点击上方工具栏“开始”——>"编辑"——>"选择窗格",接着弹出的窗口中选择需要选择的图片即可,使用这个方法可以方便的管理具有多个图片的文档,如下图所示。
转载请注明出处51数据库 » word 宏 选择所有图片大小