![]() To do this in Calc, first I went to Tools -> Macros -> Organize Dialogs and created a dialog named "ImageViewerForm" with an image control named "MyImageControl". One of the best places to learn OpenOffice Basic is Andrew Pitonyak's Macro Document. However it looks like this task can be accomplished using OpenOffice Basic. I do not know exactly what your code does, because I normally do not use Microsoft Office. Image1.Picture = LoadPicture(oimage.GraphicURL) Set oimage = oDoc.createInstance(".GraphicObjectShape") Set oDoc = objDesktop.loadComponentFromURL("file:///C:\Users\paul\Desktop\ACE Express - Fairview_Sample PC of Gondola.ods", "_blank", 0, ARG()) Set opos = objServiceManager.Bridge_GetStruct(".Point") Set osize = objServiceManager.Bridge_GetStruct(".Size") This is the latest code in VB6 and it has an error saying is missing Dim objServiceManager As Object ' = Clipboard.GetDataį = LoadPicture(oDrawPage) Set oGraph = oDoc.createInstance(".GraphicObjectShape") Set oSheet = oDoc.getSheets().getByIndex(0) Set oDoc = objDesktop.loadComponentFromURL("file:///C:\Users\paul\Desktop\Testing.ods", "_blank", 0, ARG()) Set objDesktop = objServiceManager.createInstance(".Desktop") This is my code but its not working Dim objServiceManager As Object I tried to open the Excel in Openoffice then the file opens now my goal is how can i convert the code above in OpenOffice? I mean run the code for OpenOffice files. Picture1.Picture = Clipboard.GetData(vbCFBitmap)Ĭelladdress = xlsSheet.Cells(x.BottomRightCell.Row + 1, x.TopLeftCell.Column).Address(RowAbsolute:=False, ColumnAbsolute:=False)Īnd unfortunately this code wont work on my friends PC becuase he does not have an Excel installed but he has OpenOffice spreadsheet. Set xlsSheet = xlsBook.Worksheets("Sheet1") ![]() Set appExcel = CreateObject("Excel.Application") I have a code that exports image from excel into a picturebox and here it is.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |