插入图片到Word，调整图像，插入Excel中使用VBA边框该方案插入一个图像到Word文件，并调整大小的图像和插入一个边界。
解释这VBA程序开发提取图像并将其插入到Word文件，调整图像根据工作表的设置与边框环绕图像。
为了使该方案的工作参考“Microsoft Word的XX.X对象库”需要启用。 示例文件的VBA代码可在本网页的底部，下载欣赏！或者只要复制并粘贴此网页的代码直接。
码Public Sub Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel()
Dim Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel_APP As Word.Application
Dim Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel_DOC As Word.Document
Set Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel_APP = CreateObject("Word.Application")
Dim PlaceOfWordFile As String
Dim NameOfWordFile As String
PlaceOfWordFile = Range("B4").Value
NameOfWordFile = Range("B5").Value
PlaceOfImageFile = Range("B6").Value
NameOfImageFile = Range("B7").Value
NamePlaceImage = PlaceOfImageFile + "\" + NameOfImageFile
NamePlace = PlaceOfWordFile + "\" + NameOfWordFile
Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel_APP.Visible = True
Set Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel_DOC = Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel_APP.Documents.Open(NamePlace, ReadOnly:=False)
Set WORD_Image = Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel_APP.Selection.InlineShapes.AddPicture(NamePlaceImage, False, True)
HeightOfImage = Range("D5").Value
With WORD_Image
H = .Height
B = .Width
Ratio = H / B
.Height = HeightOfImage
.Width = HeightOfImage / Ratio
End With
WORD_Image.Borders.OutsideLineStyle = wdLineStyleSingle
Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel_DOC.Save
Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel_APP.Quit
Set Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel_DOC = Nothing
Set Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel_APP = Nothing
End Sub
下载Excel文件！Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel.xls |
