Word VBA-图片操作汇总

==========================

Sub 图片后加回车()Dim s As ShapeDim pg As Paragraph'先将图片批量转换为嵌入型For Each s In ActiveDocument.ShapesWith sIf s.Type = msoPicture Thens.ConvertToInlineShapeEnd IfEnd WithNext s'遍历所有段落For Each pg In ActiveDocument.Paragraphs'计算段落内的图片数量pgCount = pg.Range.InlineShapes.CountIf pgCount > 0 ThenWith pg.Range.SelectSelection.MoveUp unit:=wdParagraph, Extend:=wdMoveSelection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdMoveSelection.InsertAfter Chr(13)End WithEnd IfNext pgEnd Sub

==========================

Sub 批量设置图片大小()Dim n, mDim blnisinlineshape As BooleanDim mylineshape As InlineShapeOn Error Resume Next '忽略错误m = ActiveDocument.InlineShapes.CountFor n = 1 To 2 'inlineshapes类型的图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比ActiveDocument.InlineShapes(n).Height = 153 '设置图片高度为 243pxActiveDocument.InlineShapes(n).Width = 243 '设置图片高度为153pxNext nFor n = 1 To 2 'inlineshapes类型的图片ActiveDocument.Shapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比ActiveDocument.Shapes(n).Height = 153 '设置图片高度为 153pxActiveDocument.Shapes(n).Width = 243 '设置图片高度为243pxNext nFor n = 3 To m 'inlineshapes类型的图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比ActiveDocument.InlineShapes(n).Height = 297 '设置图片高度为 297pxActiveDocument.InlineShapes(n).Width = 405 '设置图片高度为405pxNext nFor n = 3 To m 'inlineshapes类型的图片ActiveDocument.Shapes(n).LockAspectRatio = msoFalse  '不锁定图片的纵横比ActiveDocument.Shapes(n).Height = 297 '设置图片高度为 297pxActiveDocument.Shapes(n).Width = 405 '设置图片高度为405pxNext nWith Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).SpaceBefore = 50.SpaceBeforeAuto = False.SpaceAfter = 50.SpaceAfterAuto = False.LineSpacingRule = wdLineSpaceMultiple.LineSpacing = LinesToPoints(3).Alignment = wdAlignParagraphCenter.WidowControl = False.KeepWithNext = False.KeepTogether = False.PageBreakBefore = False.NoLineNumber = False.Hyphenation = True.FirstLineIndent = CentimetersToPoints(0).OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 0.LineUnitBefore = 10.LineUnitAfter = 10.MirrorIndents = False.TextboxTightWrap = wdTightNone.AutoAdjustRightIndent = True.DisableLineHeightGrid = False.FarEastLineBreakControl = True.WordWrap = True.HangingPunctuation = True.HalfWidthPunctuationOnTopOfLine = False.AddSpaceBetweenFarEastAndAlpha = True.AddSpaceBetweenFarEastAndDigit = True.BaseLineAlignment = wdBaselineAlignAutoEnd WithEnd Sub

==========================

Word VBA-图片操作汇总相关推荐

Word VBA：批量导出Visio对象为图片
目录一.思路 1.遍历文档中的域fd 2.判断每一个域fd 3.二进制存储二.示例代码 1.代码 2.运行效果 (1)示例文件 (2)复制代码-运行 (3)选择存储位置 (4)存储完成 (5)查看 ...
Word VBA中的光标操作
一. 光标对象及其位置属性在Word VBA中,光标对象的名称为Selection.一个Selection实际上由两个位置指示器组成,其中一个指示器称为Start,一个指示器称为End,分别代表光标 ...
解决 Java poi 3.8 等版本操作 word 插入图片不成功的问题
解决 Java poi 3.8等版本操作word插入图片不成功的问题问题: 最近有一个需求是将Excel中的数据转换到word中,其中包括了文字和图片, 在使用 poi 3.8 向word中写入图片 ...
VBA实战(11) - 工作表(Sheet) 操作汇总
Sheet 操作汇总一.读取所有的 Sheet 页二.获取一个 Sheet 页中有效的行数和列数三.添加 Sheet 页四.删除 Sheet 页五.设置 Sheet 页的背景色六.分级 ...
VBA 向Word插入图片
VBA 向Word插入图片 Private Sub Document_open()快捷键设置代码成功 "Fun1" End Sub Sub 快捷键设置代码成功(SubName As ...
Word VBA：结合网友的自定义函数对汉字批量增 / 删拼音
一.已有方法 1.Word中有对汉字加拼音的方法--拼音指南拼音指南通过这种方法手动加拼音是有字符串长度的限制的,因此很多网友基于此也写过VBA自动化批量添加拼音的方法. 常规方法代码截图 2.常 ...
Word VBA 常用语句
原文地址:Word VBA 常用语句作者:cathay 转帖:从n多地方google出来的......... '定制模块行为 '(1)强制对模块内所有变量进行声明 Option Explicit ...
word vba高效排版范例应用_收藏 | 原来word里面也有函数！
Word里面的rand"函数" 可以在文档中快速生成文本,小伙伴在Word中练习排版时,可以用虚拟文本来练习排版.在任意位置输入=rand()必须为英文半角,按[Enter]键,就 ...
SQL字符串操作汇总
-===========字符串使用汇总================ --将字符串中从某个字符开始截取一段字符,然后将另外一个字符串插入此处 select stuff('hello,world!', ...
Aspose实现word转图片、pdf
原文地址:http://www.jiajiajia.club/blog/artical/3z995nkc4c39/529 Aspose Aspose.Total是Aspose公司旗下的最全的一套o ...

Word VBA-图片操作汇总

Word VBA-图片操作汇总相关推荐

最新文章

热门文章