怎么把WORD文件彩图变黑白
方法:1、打开WORD文档后,双击图片,鼠标点击工具栏的上”重新着色“--黑白。
2、点击后,效果如图。
excel vba 设置图片格式为底图
1.一张一张去设置,不过你可以通“图片格式”里的“大小”先设置好其中一张的大小,然后点一张,F4,再点一张再按F4,这样可能会快一些. 2.使用VBA吧,一次性可以全部调整好。
3.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 iShapeEnd Sub 4.可以全选后再设置 在“绘图工具栏”中有个“选择多个对象按钮”(默认没有显示,可以添加),选中多个图片后“右击鼠标”-----设置图片格式------大小----设置具体的高度、宽度即可...
word上如何批量处理图片,压缩和设定文字环绕方式
操作步骤:1、选中所要需要处理的图片;2、单击图片工具---->格式---->压缩图片,如图所示;3、弹出压缩图片对话框,单击选项按钮,如图所示;4、弹出压缩设置对话框,根据需要,选择一种目标输出即可,如图所示;5、、单击图片工具---->文字环绕,在下拉选项中,选择一种环绕方式即可,如图所示。
批量修改Word文档里的大量图片为 灰度颜色 怎么修改 跪求帮忙.
此方法仅适用于修改设置的计算机word:打开X:\Documents and Settings\用户名\Application Data\Microsoft\Templates 下面的Normal.dot,格式-背景,选择你要的颜色,保存退出。
不能保存的话,你就起个别的名字,关闭word,删除Normal.dot,再把刚刚那个文件改名 Normal.dot。
这样每次打开word,就是有背景了。
注意word工具选项-文件位置里面的用户模板的位置要与其一致,如果更改默认位置的话,把这个模板文件直接拷贝到新目标文件夹。
EXCEL:打开excel,把工作簿所有工作表中的单元格全部选中,设置颜色为你想要的。
(这里有个宏可以用 Sheets.SelectCells.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.
如何用VBA中获取word文档中的图片
于图片来说,,分为二种的,,第一种:是Shape对象(Word中自带的“自选图形”)第二种:是InlineShape对象(嵌入式图片,也就是所谓的通过点击菜单栏中的“插入”->“图片”->“来自文件”)-------------------如何判断word文档中是否存在一张图片呢?这个问题。
我来解答:判断word文档中是否存在一张图片,可以通过看一看word文档中的inlineshape对象的数量来判断。
举例:Dim doc As Document '当前打开的文档对象DocumentDim MyApp As Word.Application 'Word应用程序对象Dim MyFileName As String '当前打开的文件名MyFileName="c;\aaa.doc" '此处可以改成你的文件名字Set MyApp = CreateObject("Word.Application")Set doc = MyApp.Documents.Open(MyFileName)If doc.InlineShapes.Count 0 thenmsgbox "有嵌入式图片存在!"Elsemsgbox "没有嵌入式图片存在!"End if-------------------------------------------------------如果你非要想知道,用户到底是不是插入了你要求的图片的话,你要必须要再他进行插入图片操作时进行控制,也就是说,你必须把用户所插入的图片的(绝对地址)或者(图片名字)添加到用户所插入图片的“可选文字”中记录下来。
MydocInlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)FileName String 类型,必需。
指定要创建对象的文件名。
如果忽略本参数,则使用当前文件夹。
LinkToFile Variant 类型,可选。
如果此属性设置为 True,则将 OLE 对象与创建该对象的文件链接。
如果设置为 False,则令该 OLE 对象成为该文件的独立副本。
默认值为 False。
SaveWithDocument Variant 类型,可选。
如果此属性为 True,则将链接的图片与文档一起保存。
默认值为 False。
Range Variant 类型,可选。
指定一个区域,OLE 对象放置在该区域的文字中。
如果该区域未折叠,那么图片将覆盖该区域。
如果忽略此参数,则自动放置图片。
ActiveDocument.Shapes.AddPicture "C:\stone.bmp",True, True,MyRangeActiveDocument.InlineShapes(ID).AlternativeText = App.Path & "\temp" & shapeII & ".bmp" '添加“可选文字”
word里面怎么压缩全部图片?
01双击打开word文档,在打开页面单击新建空白文档。
02单击插入选项卡,弹出插入功能区,在插入功能区,插图组单击图片。
03在插入图片窗口,找到要压缩的图片,把文件添加到,文件名处,单击插入。
04单击图片,任务栏弹出图片工具,格式选项卡,单击格式选项卡 ,弹出格式功能区。
05在格式功能区,调整组中,单击压缩图片,弹出压缩图片对话框。
06在压缩图片对话框中,选择适当的压缩分辨,单击确定,有些图片不适合压缩,在此框无法调整压缩比例。
07如果压缩框,压缩比例为灰色,这时可以用鼠标右键单击任务栏空白区域,在弹出的下拉菜单中,单击自定义功能区。
08在弹出的word选项页面,单击高级,弹出高级设置窗口。
09在高级设置窗口中,拖动下拉按钮,找到找到图片大小和质量栏。
10单击默认分辨率灰色按钮,在下拉菜单中,选择你压缩的大小,然后单击确定。
11在格式功能区,调整组在次单击压缩图按钮,在弹出的窗口中,选择你已经设置好的默认分辨率进行压缩。
...
如何用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里如何压缩高清晰图片
有很多方法。
这里推荐一个非常好的方法,使用这个工具NXPowerLite来处理。
NXPowerLite是专门用来压缩office文件的工具,网上有很多,推荐绿色版。
下面简单介绍应用方法:1、无论是安装版还是绿色版,打开工具的界面如下图;2、把你要处理的word文档(word中有大型图片需要压缩的文件)拖放到该工具的窗口中;3、设置优化选项。
从图中看到默认到“屏幕”,这个是一个折中的选项,能够保证优化后目测图片基本上无画质损失,但是却能够将大型高分辨率图片体积减少到原来的百分之几。
应用时可根据自己的需要点开下拉菜单选择一下。
(此步骤可以省略)4、点击优化按钮,工具开始优化,完成后默认在原文件位置多出一个压缩后的文件,该文件在原文件名后面增加了NXPowerLite以示区别。
以上操作就完成了含有大体积图片的word文档的大幅度减肥,并且word排版没有任何变化。
该工具适用于所有微软office程序(word、excel、PowerPnt等等)。
其他的方法中最典型的是从word中导出图片,压缩后再贴进去,需要重新调整排版。
导出图片的方法也有很多,这里推荐将word另存为网页文件(html),然后从网页文件的图片文件夹中可以看到该文档中所有的图片。
压缩图片方法也有很多,这里推荐这款工具:Image Optimizer,它的好处是可以批处理图片,最大限度地保真,可以不改变分辨率的情况下大幅度压缩图片。
上面提到的导出图片、压缩后再插入图片,具体操作方法没有什么特别的,就是一般的word操作,操作步骤此处就省略了。
如何用vba取得一个word文件中的所有的图片
提供网上示例代码供参考(此代码的思路是遍历 word 文档中的 Shapes ,缩放到原始图片尺寸,再转粘贴到 Excel 中,借用 Excel 的 ChartObjects 提供的导出功能实现图片原样导出): Sub test() Rem 工具--引用--勾选 Microsoft Excel x.x Object Library.. Dim myshape As Object, ExcelApp As New Excel.Application Dim Excel As Workbook, i%, z% Set Excel = ExcelApp.Workbooks.Add For Each myshape In ActiveDocument.InlineShapes If myshape.Type = 3 Then i = i + 1 myshape.Select Set myshape = myshape.ConvertToShape Rem 以下代码将图片以原始比例展示 With myshape .ScaleHeight 1, True, msoScaleFromMiddle .ScaleWidth 1, True, msoScaleFromMiddle End With Selection.Copy With Excel.ActiveSheet.ChartObjects.Add(0, 0, myshape.Width, myshape.Height).Chart .Paste .Export ActiveDocument.Path & "" & i & ".png" .Parent.Delete End With End If Next Excel.Close False ExcelApp.QuitEnd Sub...
转载请注明出处51数据库 » vba 设置word图片按灰度压缩 所有