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
投稿猜你喜欢
- 将网页数据导入到表格中，在日常工作中经常会用到，此法的好处是省去了手动敲入的时间，如何快速的将网页数据导入到表格中成为了一个焦点问题，下面与
- 在Mac的Word 2011中创建新的表格样式？在Mac的Office 2011中使用Word时，可以应用表格样式来更改单元格的外观。如果找
很多用户都会给自己的win10电脑设置一个密码，但有些朋友却碰到了开机输入密码的时候出现了转圈的情况，那么遇到这种情况要怎么解决呢？下面就和- 随着显卡厂商不断的发布新显卡，很多用户比较关注，但是不知道在哪里查看显卡跑分排行，2022最新显卡跑分排行榜已经发布啦，本篇带来了详细的20
- 我们辛辛苦苦用公式计算出许多数据，把这些数据拿给别人看的时候，别人却不小心把公式给修改或者删除了！遇到这种情况怎么办？教你把公式隐藏起来，只
- 文档因为不同的部分，通常会另起一页，但我们都是习惯用空行的方法另起一页，这样就会导致修改文档时重复排版，就会增加工作量，降低了工作效率，下面
- 360浏览器怎么直播视频？如今看直播是很多网民的娱乐项目，看直播的也软件特别多，现在浏览器都要分一杯羹，360浏览器就可以直播看视频。下面就
- VMWare是目前业界最为流行的一款虚拟机工具。那么VMWare虚拟机下Linux无法全屏怎么办？今天小编将为大家分享的是VMWare虚拟机
- ppt2013中怎么复制粘贴无格式文本？复制过来的文本基本上都带格式，粘贴完成以后还要自己修改，太麻烦了，怎么才能粘贴没有格式的文本呢？下面
- Excel右键删除灰色不能用该怎么办？excel中有的数据输入错了，想用右键删除，但是却发现excel右键不能删除该怎么办呢？下面我们来看看
- 想下载什么程序，安装什么软件本应该是用户自己的权利，但在Win10系统上却不是这样。最近有用户反映，当他在安装Win10系统后，系统自带的M
- 这篇文章主要介绍了win2003命令shutdown -r -t 0 (dos cmd重启),需要的朋友可以参考下用cmd命令来关闭或重启电
- 通配符*和?的区别是“*”可以用来代替零个、单个或多个字符，而“？”仅可以使用代替一个字符；“*”表示匹配的数量不受限制，而“？”的匹配字符
- Win11正式版已经正式发布了，很多用户在犹豫不知道现在要不要升级Win11，因此今天小编就为大家带来了Win11详细介绍，希望可以帮助到大
- 这几天整理了一个文档，因为要求专业，需要做文档目录，生成文档结构，现在就告诉介绍word2007自动生成目录和文档结构图的方法这几天整理了一
- 有的时候电脑系统使用久了就会发现运行哪哪都出现卡顿，那么在不更换系统硬件要求的情况下，我们要怎么提升电脑性能呢？不知道具体操作的小伙伴一起来
- 驾考宝典怎么查看考试记录？很多人在考驾照的时候，都会使用驾考宝典进行考试练习，我们在驾考宝典种考完试要怎么查看考试记录呢，下面就给大家分享具
- 正常情况下我们会重装系统来提高电脑的流畅度，但是有一些小伙伴在重装完系统之后发现自己的本地磁盘盘符发生改变，从后D盘变成E盘，那么遇到这种情
- 提到文字和行距，就不得不说一下PPT中，字符间距和行距的一些设置技巧，这也是排版过程中非常重要但往往许多人会忽略的细节。 一、增加
- mapiicon.exe是宽带调制解调器诊断工具进程文件： mapiicon or mapiicon.exe 进程名称： ADSL Diag
