昨天在给unit test results贴图时,发现要插入一个图片对象时,要点击很多次按钮才能插入一个对象,
如果要插入很多图片的话,太麻烦了.
我想能不能用word的宏来简化操作,昨晚经过多次尝试,已经能够一键插入多个对象,这样就提高了大家以后的效率.
现在分享给大家.
Step 1
Step 2
InsertImageObject
Step 3 选择键盘,按下快捷键
Step 4
在编辑器中插入以下代码,保存.
Code
Sub InsertObject()
Dim
imageFilePath As String
Dim
imageFileName As String
Dim
countSelected As Integer
Dim
index As Integer
Dim
lengthSplit As Integer
Dim
pathSplit() As String
Dim
fopen As FileDialog
Dim
items As FileDialogSelectedItems
Set
fopen = Application.FileDialog(msoFileDialogFilePicker)
fopen.Show
If
fopen.SelectedItems(1) = "" Then
Exit Sub
Else
Set items = fopen.SelectedItems
Set fopen = Nothing
End
If
countSelected = items.Count
For
index = 1 To countSelected
imageFilePath = items(index)
pathSplit = Strings.Split(imageFilePath, "\")
lengthSplit = UBound(pathSplit)
imageFileName = pathSplit(lengthSplit)
Selection.InlineShapes.AddOLEObject ClassType:="htmlfile", FileName:=
_
imageFilePath, LinkToFile:=False, DisplayAsIcon:=True, _
IconFileName:="C:\Program Files\Internet Explorer\iexplore.exe", _
IconIndex:=10, IconLabel:=imageFileName
Next
End Sub
以后在按下CTRL + Y,选择要插入的图片(可多选),就能够一次插入多个图片对象了.
大家有什么修改意见,请留言.
Subscribe