vba设置word图片格式
发布时间：2023-12-14 00:26:52
一、旋转图片
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
投稿猜你喜欢
今天就来给大家介绍下win10系统盘占用空间大小的话题，我们要装win10不是随便配置拿来都能装的，最起码空间要预留够用，来看看对win10- office主题实际上就是幻灯片的设计方案，具体来讲包括幻灯片的背景颜色、背景图案、字体、字体颜色、超链接的颜色等元素。一个好的主题可以为幻
- 如果win10显示器找不到声音输出设备，会导致我们电脑的声音无法正常播放，无法播放音乐等，使用起来非常方便，那么如何解决这个问题呢？让我们看
- 在Word中，有如下的两个段落。 现在，我们要设置第一段的段前段后的间距，如何设置呢?首先选择好要设置的对象，在这
- 1、首先打开wps，选择wps文字--选项，进入设置页面或者点击下拉“工具”选择“选项” 2、在弹出的对话框中选
- 1、准备好数据列表和筛选条件。如图： 2、点击“高级筛选”，“列表区域(L)”选项。如图： &nbs
- 许多小伙伴在使用手机连接电脑时，系统总是出现adb.exe已经停止工作的情况。这通常是由于adb的默认端都是5037，被其他程序占用。例如3
- Win10电脑重装只有C盘怎么办？许多用户在遇到一些电脑问题无法解决的时候，经常会自己重新装一个系统，可是如果我们在重装系统的时候，没有设置
- 最近有使用Win10笔记本的用户反映他的电脑电池充电到60％就不充电了，这个时候该如何解决呢？和小编一起来看看。Win10笔记本充电60就不
- 在升级到 iOS 16 或更新版本后，很多用户发现无法在 iPhone 设置中找到开发者模式的开关了。如需要打开这一模式，可以借助爱思助手进
- 对于电脑来讲，一些高级设置，一般都要通过组策略编辑器来设置，无论是计算机配置，还是用户配置等都可以在组策略编辑器里面设置。那么，Win10系
- Word文档如何添加图片水印1.打开需要添加图片水印的Word文档，接着点击工具栏的“页面布局”→“水印”→“自定义水印”。
- 在微软公司发布win101909操作系统后，不少小伙伴在收到消息后纷纷安装更新电脑。然而，在系统更新过程中，一些小伙伴发现系统更新速度特别慢
- 对于我们经常使用的win10系统，一些小伙伴正在考虑是否安装第三方杀毒软件。对于这个问题，小编认为win10有自己的安全系统防火墙，占用内存
- --方法一通过“插入”—“表格”—根据行列要求通过选择方格的形式插入表格。 --方法二“插入”—“表格”—“插入表
- 第1步，打开Word2013文档窗口，切换到“设计”选项卡。在“页面背景”分组中单击“页面颜色”按钮，并在打开的页面颜色面板中选择“填充效果
- wps中的演示是可以做电子相册的 随着数码相机与智能手机的普及，很多爱好拍照的朋友们手中的电子相片是越来越多了。于
- 列表中项目符号和编号之间的互相转换1.单击列表中要更改的项目符号或编号。通过单击自动识别的项目符号列表或编号列表中的项目符号或编号，您即可选
- 具体实现过程如下：1、打开或者新建一个word文档 2、首先我们选择开始选项卡，在样式区域中单击显示样式的按钮 &
- 希沃白板专业的多媒体教学工具，该软件也是比较受欢迎的，本文中介绍的是使用这款软件设置批注模式的方法希沃白板批注模式在哪?希沃白板拥有遥控模式
