Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Inserting Excel OLE Object
Hi,
I saw an example in this forum to push changes from Excel to Word, and modified it slightly to inste excel table(OLE tables) from Excel to Word. I can get it work for inserting the entire table, but would it be possible to insert just a portion of the table? i.e. i have a huge spreadsheet, but I want to display just the first two columns in Word.... Thanks you for the response. Aga Here is my code from Excel Public Sub rnn() Dim rng As Object Dim wdApp As Object Set wdApp = CreateObject("Word.Application") Dim wddoc As Object Set wddoc = wdApp.Documents.Add("c:\del.doc") Dim bkMark As Object Dim bkMarks As Object Set bkMarks = wddoc.Bookmarks For Each bkMark In bkMarks Debug.Print bkMark.Name If (bkMark.Name = "img_bk") Then Set rng = bkMark.Range End If Next bkMark ' rng.InlineShapes.AddPicture "C:\Projects\VisualScreen_2BETA\Code\vs_logo.j pg", , , rng rng.InlineShapes.AddOLEObject , "c:\someexcel.xml", , , , , , rng wddoc.SaveAs "c:\del_modified.doc" wddoc.Close Set wddoc = Nothing Set wdApp = Nothing End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Inserting a MS Word object into an Excel spreadsheet (2 questions) | Excel Worksheet Functions | |||
Issues inserting wide Word object into Excel | Excel Discussion (Misc queries) | |||
inserting an object in Excel | Excel Programming | |||
Inserting an Object in Excel | Excel Programming | |||
Inserting Object in Excel Footer | Excel Programming |