批量修改Word文档里的大量图片为 灰度颜色 怎么修改 跪求帮忙.
答案:2 悬赏:10 手机版
解决时间 2021-08-15 17:31
- 提问者网友:了了无期
- 2021-08-14 20:32
Word文档里的图片有100多张插图、但颜色是黑白的、我想修改成灰色的。有批量修改的办法么?一个一个的改忒麻烦了。跪求各位给帮忙给想个办法万分感谢。
最佳答案
- 五星知识达人网友:街头电车
- 2021-08-14 21:30
用宏可以很快解决。同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub xx()
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
If ActiveDocument.InlineShapes(i).Type = 3 Then
ActiveDocument.InlineShapes(i).PictureFormat.ColorType = msoPictureGrayscale
End If
Next
End Sub
在此界面直接按F5运行此宏,完成。
Sub xx()
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
If ActiveDocument.InlineShapes(i).Type = 3 Then
ActiveDocument.InlineShapes(i).PictureFormat.ColorType = msoPictureGrayscale
End If
Next
End Sub
在此界面直接按F5运行此宏,完成。
全部回答
- 1楼网友:街头电车
- 2021-08-14 22:39
此方法仅适用于修改设置的计算机
word:打开X:\Documents and Settings\用户名\Application Data\Microsoft\Templates 下面的Normal.dot,格式-背景,选择你要的颜色,保存退出。不能保存的话,你就起个别的名字,关闭word,删除Normal.dot,再把刚刚那个文件改名 Normal.dot。这样每次打开word,就是有背景了。注意word工具选项-文件位置里面的用户模板的位置要与其一致,如果更改默认位置的话,把这个模板文件直接拷贝到新目标文件夹。
EXCEL:打开excel,把工作簿所有工作表中的单元格全部选中,设置颜色为你想要的。(这里有个宏可以用 Sheets.Select
Cells.Select
With Selection.Interior
.ColorIndex = 48'50%的灰度
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With)保存到X:\Program Files\Microsoft Office\OFFICE11\XLSTART目录下,名字叫book.xlt(模板文件)。不要关闭,再把这个文件中的除了sheet1之外的所有工作表删除,另存为D:\Program Files\Microsoft Office\OFFICE11\XLSTART目录下的sheet.xlt。
X:是指你安装windows和office的盘符。Office版本为2003.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯