Indsæt billede i Word, Bo Billed, Indsæt grænserne ved hjælp af VBA Excel Programmet indsætter et billede til et Word-fil og tilpasser billeder og indsætter en grænse.
Forklaring Dette VBA program er udviklet til at udtrække et billede og indsætter det til Word-fil ændre størrelsen på billedet efter de indstillinger i regnearket og surround billedet med en grænse.
For at gøre programmet arbejde henvisning til "Microsoft Word XX.X Object Library" skal være aktiveret. Eksempel fil med VBA-kode kan downloades nederst på denne webside, god fornøjelse! Eller bare kopiere og indsætte koden direkte fra denne side.
Kode 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, Skrivebeskyttet: = 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 =. Højde
B =. Bredde
Ratio = H / B
. Højde = HeightOfImage
. Bredde = 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
Download excel filen!Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel.xls |
