Image from Calc to VB6 PictureBox

PagentePaulEdward15

Hello Good Morning.

I want to ask something but before that I tried to find the possible answer before doing it. Here it goes based on the link below.

https://forum.openoffice.org/en/forum/viewtopic.php?f=7&t=42794

It transfers Image from VB6 to Calc, My question is how can I do it Vice Versa? But this time in OpenOffice SpreadSheet.
To make the story short here is my goal.

How can I transfer Image from SpreadSheet into an Image or Picturebox Control? How can I do it in Loop? So get the Image and transfer it in my VB6 ImageBox for every Image. Thats my Goal atleast the transferring only. I will do the loop. I hope someone bear with my problem and TYSM.

This is my code but its not working.

Dim objServiceManager As Object
Dim objDesktop        As Object
Dim objDocument       As Object
Dim objText           As Object
Dim objCursor         As Object
Dim oDoc              As Object
Dim ARG()
Dim oGraph    As Object
Dim oView     As Object
Dim oDrawPage As Object
Dim oSheet    As Object
Dim Image     As System_Drawing.Image
Dim oimage As Object
Dim osize As Object

Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set oDoc = objDesktop.loadComponentFromURL("file:///C:\Users\paul\Desktop\Testing.ods", "_blank", 0, ARG())
Set oSheet = oDoc.getSheets().getByIndex(0)
Set oGraph = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
Set oView = oDoc.CurrentController
Set oDrawPage = oView.getActiveSheet.DrawPage


For i = 0 To 2
    For j = 0 To 9
       ' Form1.Image1.Picture = Clipboard.GetData

        Form1.Image1.Picture = LoadPicture(oDrawPage)
    Next
NexT

tangerine

How is this relevant to DataTables? (This is the DataTables forum.)

allan

Agreed - closing the thread.