सम्मिलित करें Word, आकार छवि, छवि सम्मिलित करने के लिए बॉर्डर्स का उपयोग कर Excel VBA एक शब्द फाइल करने के लिए इस कार्यक्रम में एक छवि आवेषण और छवियों और एक सीमा सम्मिलित आकार बदलता है.
व्याख्या इस कार्यक्रम के लिए VBA कार्यपत्रक में सेटिंग के अनुसार एक छवि और इसे डालने शब्द छवि का आकार फाइल करने के लिए निकालने और सीमा के साथ एक छवि के चारों ओर विकसित की है.
आदेश में कार्यक्रम के काम संदर्भ "माइक्रोसॉफ्ट वर्ड XX.X Object पुस्तकालय जरूरत है" बनाने के लिए सक्षम हो. उदाहरण के 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 |
