vba设置word图片格式

一、旋转图片

Dim blnIsInlineShape As Boolean

If Selection.Type = wdSelectionInlineShape Then

blnIsInlineShape = True

Selection.InlineShapes(1).ConvertToShape

End If

Dim intTurn As Integer

intTurn = InputBox("请输入图形要旋转的角度值" & vbCrLf & "正数表示顺时针，负数表示逆时针。", "图形旋转", 30)

Selection.ShapeRange.IncrementRotation intTurn

End Sub

二、将文档中的每张图片的版式转换为嵌入式图形

For Each s In Documents("MyDoc.doc").Shapes

If s.Type = msoPicture Then

s.ConvertToInlineShape

End If

Next s

三、设置图片的高度宽度

Mywidth=10'10为图片宽度(厘米)

Myheigth=10'10为图片高度(厘米)

For Each iShape In ActiveDocument.InlineShapes

iShape.Height = 28.345 * Myheigth

iShape.Width = 28.345 * Mywidth

Next iShape

四、得到图片的像素

Sub 获取嵌入型图片的像素()

On Error Resume Next

With Selection.Range.Find

.ClearFormatting

.Replacement.ClearFormatting

.Execute findtext:="^g", MatchWildcards:=False, Wrap:=wdFindStop

MsgBox "该图片的像素为：" & Selection.InlineShapes(1).Width _

& " * " & Selection.InlineShapes(1).Height

End With

End Sub

五、复制图片到word文档中

Dim objWordApp As Word.Application

Dim objWord As Word.Document

Range(Cells(3, 2), Cells(11, 11)).Select

Selection.CopyPicture

Set objWordApp = CreateObject("Word.Application")

Set objWord = objWordApp.Documents.Add

objWord.Application.Visible = True

objWord.Application.Selection.Paste

Set objWord = Nothing

Set objWordApp = Nothing

赞 (0)

相关推荐

  • MindMaster中的思维导图怎么设置导出图片格式

    MindMaster中的思维导图怎么设置导出图片格式

    我们在工作中,经常会遇到需要制作思维导图的情况,想要将制作好的思维导图导出为图片格式,该怎么操作呢?今天就跟大家介绍一下MindMaster中的思维导图怎么设置导出图片格式的具体操作步骤.1. 打开电 ...

  • 怎么在PPT中设置输出图片格式

    怎么在PPT中设置输出图片格式

    今天给大家介绍一下怎么在PPT中设置输出图片格式的具体操作步骤.1. 首先打开电脑,找到桌面上的PPT软件,双击打开.2. 进入主页面后,选择新建空白文档.3. 如图,进入编辑页面:4. 点击页面上方 ...

  • Word如何用vba设置字体的格式

    以下代码为通过VBA代码来设置Word字体的各种格式. WApp.Selection.Font.NameFarEast = "华文中宋"; WApp.Selection.Font. ...

  • vba设置word文档的格式

    ①将格式应用于选定内容 下列示例使用Selection属性将字符和段落格式应用于选定文本。使用Font属性获得字体格式的属性和方法，使用ParagraphFormat属性获得段落格式的属性和方法。 S ...

  • 如何设置word段落格式 word段落格式设置步骤(图文)

    段落是由字符、图形和其他对象构成。每个段落的最后都有一个“8(即回车符)”标记，称为段落标记，它表示一个段落的结束。段落格式设置是指设置整个段落的外观，包括段落缩进、段落对齐、段落间距、行间距、首字下 ...

  • 怎样设置word图片文字环绕

    word文稿内插入图片,并且使文字环绕在图片的周围. 操作方法 01 打开word2013软件,进入文档编辑页面. 02 在word文档页面使用导航工具插入功能,将图片插入到word文档. 03 在w ...

  • Word图片变成了空白怎么办?

    很多使用Word的朋友都有遇到过插入的图片好久显示不出来的情况，即便是很少的图片有时候也会出现这种情况。最近网友发来了一些Word投稿文档，里边的很多图片都显示不出来，原先以为可能是图片过多，可能一下 ...

  • VBA for Word设置字体的格式

    以下代码为通过VBA代码来设置Word字体的各种格式。 WApp.Selection.Font.NameFarEast = "华文中宋"; WApp.Selection.Font.NameAscii ...

  • WORD文档如何统一设置图片格式

    很多时候,我们需要在Word文档中插入一些图片,但如何对这些图片进行处理,却是一个比较复杂的问题.例如现在需要将其设置为居中,如果一个一个手工设置居中的话,那效率之低是可想而知,有没有办法也能批量完成 ...