Infoga bild i Word, Vistas Bild, Infoga Kanter med VBA Excel Programmet infogar en bild till ett Word-fil och ändrar storleken på bilder och infogar en gräns.
Förklaring Detta VBA är utvecklat för att hämta en bild och sätta in den till Word-fil ändra storlek på bilden enligt inställningarna i kalkylbladet och omger bilden med en gräns.
För att göra programmet arbete hänvisningen "Microsoft Word XX.X Object Library" måste vara aktiverat. Exempel fil av VBA-kod finns tillgänglig för nedladdning längst ner på denna webbsida, njut! Eller bara kopiera och klistra in koden direkt från denna sida.
Kod 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: = falskt)
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öjd
B =. Bredd
Ratio = H / B
. Höjd = HeightOfImage
. Bredd = 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
Ladda ner Excel-fil!Insert_Image_to_Word_Resize_Image_Insert_Borders_using_VBA_Excel.xls |
